锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net竞赛评分程序 vb比赛评分程序( 二 )

IT技术输入


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竞赛评分程序的信息别忘了在本站进行查找喔 。

推荐阅读


上一篇：关于go语言中锁的功能的信息

下一篇：中学老师gis教育培训，中学教师培训心得体会10篇