怎么想也想不出来。。（眼泪T.T)...vb 初学者敢问大家 ...

Private Sub Form_Click()
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

为什么在上面 平均分是 mark(n + 1) = aver / n
和 高于平均分人数是mark(n + 2) = mark(n + 2) + 1 ？？？
想了老半天》。。 。

怎么想也想不出来。。（眼泪T.T)...vb 初学者敢问大家 ... 眼泪怎么出来滴？ 哪位好心美女可以告诉我眼泪妆是怎么化出来的 想了老半天...(眼泪T.T) vb 初学者敢问大家.... 魔戒－中土战争怎么老T我出来啊 台湾五大帅T是怎么评选出来的 怎么进互联网的CS老是被T出来啊 街头篮球 怎么 使用加速才能不被 T出来？ 魔兽争霸里一刷好图就被T出来 英语眼泪怎么写？