Private Sub Command1_Click()
Dim N As Integer
N = InputBox("输入人数", , 3)
Dim a() As String, i As Integer
ReDim a(N - 1, 1)
For i = 0 To N - 1
a(i, 0) = InputBox("输入姓名" & i, , "name" & i)
a(i, 1) = InputBox("输入分数", , Int(Rnd * 100 + 1))
Next
Dim ag As Single, sm As Integer
For i = 0 To N - 1
ag = ag + a(i, 1)
If a(i, 1) < 60 Then sm = sm + 1
Next
MsgBox "平均分为" & ag / N & "不及格人数为" & sm
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024