a(i) = 9 + i / 10
st = InputBox("第"i"个评委的打分：", "输入", a(i))
If st = "" Then
MsgBox "请输入分数！"
i = i - 1
Else
a(i) = Val(st)
If a(i) = 0 Then
MsgBox "输入错误！请重新输入 。"
i = i - 1
End If
End If
Next
Print "评委打分为："; a(1);
max = a(1)
min = a(1)
sum = a(1)
For i = 2 To 5
If maxa(i) Then max = a(i)
If mina(i) Then min = a(i)
Print a(i);
sum = sum + a(i)
Next
sum = (sum - min - max) / 3
Print
Print "去掉一个最高分："; max; "，去掉一个最低分："; min
Print "最后得分为："; Round(sum, 3)
End Sub
vb.net竞赛评分程序的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb比赛评分程序、vb.net竞赛评分程序的信息别忘了在本站进行查找喔 。

• vbnetmysql
• mysql查询dual mysql查询胜负
• 字符串截取vb.net 字符串截取js
• vb.net浏览pdf vb中的pdf控件
• vb.net单元格执行 vbnet begininvoke
• vb.net三角形 vb三角形代码
• vb.net修改窗体标题 vbs窗口标题
• vb.net文件中查找字符串，vb如何查找字符串
• vb.net2013源码 vb程序源代码
• vb.net图形翻转 vb如何实现图形旋转