Private Sub form_click()
Dim n()
m = Val(Text1.Text)
ReDim n(1 To m)
For i = 1 To m
n(i) = Val(InputBox("输入各个学生的成绩"))
Print n(i);
s = s + n(i)
If i Mod 5 = 0 Then Print
Next
Print
Print
For i = 1 To m
If n(i) > s / m Then
x = x + 1
Print n(i);
End If
Next
Print
Print "分数大于或等于平均分的学生人数为" & x
End Sub
