VB：求一个班100个学生的平均成绩，然后统计高于平均分的人数。编写代码！

On Error Resume Next
Dim A(99) As Long,B As Integer,C As Long,D As Long,E As Long
For B = 0 to 99
A(B)=InputBox("输入第" & b & "人的成绩","","100")
C=C+A(B)
Next B
D= C/100
Msgbox "均分" & D
For B=0 to 99
If A(B)> D Then E=E+1
Next B
Msgbox "高于均分" & E & "人"

差不多