Dim mark() As Integer, i%, n%, aver
n = InputBox("输入学生的人数")
ReDim mark(1 To n)
aver = 0
For i = 1 To n
mark(i) = Int(Rnd * 101)
aver = aver + mark(i)
Next i
ReDim Preserve mark(1 To n + 2)
mark(n + 1) = aver / n
mark(n + 2) = 0
For i = 1 To n
If mark(i) > mark(n + 1) Then mark(n + 2) =mark(n + 2) + 1
Next i
For i = 1 To n
Print "mark("; i; ")=";mark(i)
Next i
Print "平均分="; mark(n +1), "高于平均分人数="; mark(n + 2)
End Sub