用vb做比赛分数计算器,程序怎么写?想用vb做一个比赛总分计算器.十几个评委,各给参赛选手打三个分数a（20％）,b（40％）,c（40％）【一百分制】要求如下：①一次性输入一个评委所打的三个

问题：用vb做比赛分数计算器,程序怎么写?想用vb做一个比赛总分计算器.十几个评委,各给参赛选手打三个分数a（20％）,b（40％）,c（40％）【一百分制】要求如下：①一次性输入一个评委所打的三个

答案：↓↓↓

刘玉蓉的回答：

网友采纳　　不知道是不是我没有正确理解题意,这是个很简单的问题吧.输入分数可以用文本框,然后,输入的时候,就在文本框中显示了,应该是实时反馈了吧.然后,计算文本框的数值就行了.都应该是简单计算问题.在窗体上画三个文本框,分...

黄钊洪的回答：

网友采纳　　'昨天上了源码。不知道为什么弄丢了。　　'窗体中：　　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 aMin(k)=a(k,j)　　next　　next　　'后面超出长度了。你再追问一下吧。　　'后面还有一段，回答在了abcOT_TO 提问的问题里面了。