UC知道关于一道vb编程的题
来源：百度知道 编辑：UC知道 时间：2024/05/31 22:32:34
连续输入10个同学的计算机考试成绩，求总分和平均分，并且要统计出超过80分的人数。
前两天才教过- -！
Private Sub Command1_Click()
Dim i%
Dim a! '总分
Dim b! '超过80分的人数
For i = 1 To 10
c = Val(InputBox("请输入第" & i & "个同学的分数"))
If c > 80 Then b = b + 1
a = a + c
Next
Print "总分=" & a
Print "平均分=" & a / 10
Print "超过80分的人有" & b & "个"
End Sub