Question

VB程序设计大奖赛评分程序设计 编写程序实现在歌手大奖赛中，有10个评委为参赛的选手打分，分数为1到100

Answer 1

Private Sub Command1_Click()
s = 0
zf = 0
For i = 1 To 10
s = InputBox("第" & i & "位评委给分:")
zf = zf + s
Next i
Print "总得分：" & zf
End Sub