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分）并在屏幕上显示出来？

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

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,a As Integer
Dim iPass As Integer, iUnpass As Integer '及格的和不及格的人数
For i = 0 To 9
x(i) = i + 1
s(i) = Int(Rnd * 101)
y(i) = Int(Rnd * 101)
j = x(i)
Next i

'计算及格的和不及格的
Print "及格者:"
For i = 0 To 9
k = s(i)
e = y(i)
a = (k + e) \ 2
If a >= 60 Then
Print x(i); ":"; "数学 "; k; " 语文 "; e; " 平均分 "; a
End If
End Sub
Print "不及格者:"
For i = 0 To 9
k = s(i)
e = y(i)
a = (k + e) \ 2
If a < 60 Then
Print x(i); ":"; "数学 "; k; " 语文 "; e; " 平均分 "; a
End If
End Sub