vb随机生成50个学生的成绩，计算他们的平均成绩以及统计超过的人数

Question

如题所述

Answer 1

Private Sub Command1_Click()
Dim score(), sum, i%, m%, k%
n = 50
ReDim score(1 To n)
sum = 0
m = 0
Randomize
Print "学生成绩是："
For i = 1 To n
score(i) = Int(101 * Rnd)
Print score(i);
If i Mod 10 = 0 Then Print
sum = sum + score(i)
If score(i) > 60 Then m = m + 1
Next

Print
Print "平均成绩是"; sum / n; "超过60的人数是"; m

k = 0
For i = 1 To n
If score(i) > sum / n Then k = k + 1
Next
Print "超过平均分的人数是"; k
End Sub