Private Sub Form_Click()
Print "姓名", "语文", "数学", "平均分"
Dim x(9) As String, s(9) As Integer, y(9) As Integer
Dim i As Integer, j As Integer, k As Integer, e As Integer
For i = 0 To 9
x(i) = i + 1
s(i) = Int(Rnd * 101)
y(i) = Int(Rnd * 101)
j = x(i)
k = s(i)
e = y(i)
Print j, k, e, (k + e) / 2
Next i
End Sub

统计出平均分低于60的人数（不包括60分）以及平均分高于60的人数（包括60分）并在屏幕上显示出来？

上面怎么统计啊，那位大大教教我，小弟非常感谢啊！