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竞赛评分程序的信息别忘了在本站进行查找喔 。
推荐阅读
- 中学老师gis教育培训，中学教师培训心得体会10篇
- 关于go语言中锁的功能的信息
- 如何利用新媒体传播华为，怎么利用新媒体
- 西瓜无人机直播，航拍无人机直播
- go语言rc文件编译 go语言编译可执行文件
- 升级鸿蒙会丢失通话记录吗，升级鸿蒙后聊天记录还在吗
- 怎么关闭路由器无线，怎么关闭路由器无线中继
- 大集直播网红，大集直播网红是谁
- pythoneq函数 python deque函数