作业帮3. 随机产生20个学生的成绩（整数）,统计各分数段人数.即0～59、60～69、70～79、80～89、90～100,并显示结果,效果如图5-3所示.要求：（1）单击按钮“产生并显示数据”按钮时,产生的数据在Pictu
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/06 03:21:27
3. 随机产生20个学生的成绩（整数）,统计各分数段人数.即0～59、60～69、70～79、80～89、90～100,并显示结果,效果如图5-3所示.要求：（1）单击按钮“产生并显示数据”按钮时,产生的数据在Pictu
3. 随机产生20个学生的成绩（整数）,统计各分数段人数.即0～59、60～69、70～79、80～89、90～100,并显示结果,效果如图5-3所示.
要求：（1）单击按钮“产生并显示数据”按钮时,产生的数据在Picture1显示,单击“统计分数段人数”时,统计的结果在Picture2显示.
（2）学生成绩和统计结果分别放在两个不同的数组中.
（3）所有控件字体默认、大小为小四.
Dim sj(20), i As Integer
Private Sub command1_Click()
Dim sj(20), i As Integer
For i = 0 To 19
sj(i) = Int(Rnd * 101)
Picture1.Print sj(i);
If (i + 1) Mod 4 = 0 Then Picture1.Print
Next i
End Sub
Private Sub Command2_Click()
Dim a, b, c, d, e As Integer
a = 0
b = 0
c = 0
d = 0
e = 0
If sj(i) <= 59 Then a = a + 1
If sj(i) >= 60 And sj(i) <= 69 Then b = b + 1
If sj(i) >= 70 And sj(i) <= 79 Then c = c + 1
If sj(i) >= 80 And sj(i) <= 89 Then d = d + 1
If sj(i) >= 90 And sj(i) <= 100 Then e = e + 1
Picture2.Print "s(5)的人数有"; a; "个"; Chr(13);
Picture2.Print "s(6)的人数有"; b; "个"; Chr(13); "s(7)的人数有"; c; "个"; Chr(13); "s(8)的人数有"; d; "个"; Chr(13); "s(9)的人数有"; e; "个"
End Sub
不知道哪里写错了
3. 随机产生20个学生的成绩（整数）,统计各分数段人数.即0～59、60～69、70～79、80～89、90～100,并显示结果,效果如图5-3所示.要求：（1）单击按钮“产生并显示数据”按钮时,产生的数据在Pictu
参考答案· 迁延蹉跎,来日无多,二十丽姝,请来吻我,衰草枯杨,青春易过.