求救。做一下VB题:

来源:百度知道 编辑:UC知道 时间:2024/06/16 05:41:34
1. 使用数组,随机生成20个学生成绩,并统计出平均分和不及格人数
20个成绩5个一行,输出4行,每列成绩要对齐
2. 通过键盘随意输入5个学生成绩,采用上面的方法求出平均分和不及格人数

Private Sub Command1_Click()
Dim x(1 To 20) As Integer, dblSUM As Double, i As Integer, j As Integer
Randomize
For i = 1 To 20
x(i) = Int((101 * Rnd))
dblSUM = dblSUM + x(i)
If x(i) < 60 Then j = j + 1
Debug.Print x(i),
If i Mod 5 = 0 Then Debug.Print
Next i
Debug.Print "不及格人数:"; j, "平均分数:"; dblSUM / 20
dblSUM = 0: j = 0
Dim y(1 To 5) As Integer
For i = 1 To 5
x(i) = InputBox("输入第" & i & "个人的分数", "输入分数", "0")
dblSUM = dblSUM + x(i)
If x(i) < 60 Then j = j + 1
Debug.Print x(i),
If i Mod 5 = 0 Then Debug.Print
Next i
Debug.Print "不及格人数:"; j, "平均分数:"; dblSUM / 5

End Sub