用vb做比赛分数计算器,程序怎么写?

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/17 23:08:53

用vb做比赛分数计算器,程序怎么写?
想用vb做一个比赛总分计算器.
十几个评委,各给参赛选手打三个分数a（20％）,b（40％）,c（40％）【一百分制】
要求如下：
①一次性输入一个评委所打的三个分数 a,b,c
②所有分数录入完毕后,自动去掉最高分、最低分,计算出平均分a1、b1、c1
③最后得分为 a1、b1、c1的加权平均数
④输入的分数能实时反馈出来,便于检查是否出错

不知道是不是我没有正确理解题意,这是个很简单的问题吧.
输入分数可以用文本框,然后,输入的时候,就在文本框中显示了,应该是实时反馈了吧.
然后,计算文本框的数值就行了.都应该是简单计算问题.
在窗体上画三个文本框,分别接收abc三个数值.两个按钮,一个是“下一个”,表示接着输入下一个评委的给分,一个是“开始计算”,表示输入结束,开始计算.计算结果可以用弹出对话框,或者在窗体上用标签显示.
可以定义三个数组,然后,每输入一组abc,就把值分别赋给三个数组中的元素.输入结束后,点击按钮,开始计算.
可以定义一个窗体级变量i,存储数组元素序号,每输入一个评委的给分后,这个数值就加1,点击开始计算按钮后,完成一个选手的分数计算后,就把这个变量的值归零.

再问：求源码...
再答： '昨天上了源码。不知道为什么弄丢了。
'窗体中：
dim i as integer
dim a(2,20) as single
'20，这个数根据评委人数定义数组长度。如果得分都是整数，也可以定义为integer

'窗体的 formload中：
i=0

'按钮下一个的单击事件中：
dim j as integer
for j=0 to 2
    a(j,i)=text(j).text
    text(j).text=""
next
i=i+1

'按钮开始计算的单击事件中：
dim j as integer
dim k as integer
dim aSum(2) as single
dim aMax(2) as single
dim aMin(2) as single
dim SqMax(2) as integer
dim SqMin(2) as integer
dim a1 as single
dim b1 as single
dim c1 as single
dim zf as single

if i<3 then
    msgbox "请先输入足够的评委给分！"
    '因为要去掉一个最高分，一个最低分，如果低于三个成绩，则可能引发错误。
    exit sub
end if
for k=0 to 2
    aSum(k)=0
    aMax(k)=0
    aMin(k)=1000
    SqMax(k)=0
    SqMin(k)=0
next
for j=0 to i-1
    for k=0 to 2
        if aMax(k)<a(k,j) then aMax(k)=a(k,j)
        if aMin(k)>a(k,j) then aMin(k)=a(k,j)
    next
next
'后面超出长度了。你再追问一下吧。
'后面还有一段，回答在了  abcOT_TO 提问的问题里面了。

怎么做VB语言的计算器啊用VB写计算器程序,用户输入运算数和四则运算符号,输出计算结果我想自己做个计算器程序,怎么做用VB程序制作面积计算器,圆三角形矩形梯形全部! 用VB编写一个判断两个正整数的最大公因数的程序怎么写啊? VB程序里的循环结构怎么写? VB 1到N的平方求和怎么写.程序易语言程序计算器数字按钮代码怎么写 fortran会的进,fortran计算器程序怎么写? 我想在用VB作一个科学计算器,怎样实现sin.cos.tan等功能代码怎么写用vb做一个斐波那契数列程序用vb写牛顿迭代法程序解方程