UC知道求救。做一下VB题：
来源：百度知道 编辑：UC知道 时间：2024/06/16 03:18:36
1. 使用数组，随机生成20个学生成绩，并统计出平均分和不及格人数
20个成绩5个一行，输出4行，每列成绩要对齐
2. 通过键盘随意输入5个学生成绩，采用上面的方法求出平均分和不及格人数
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