作业帮 > 综合 > 作业

3. 随机产生20个学生的成绩(整数),统计各分数段人数.即0~59、60~69、70~79、80~89、90

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/23 14:18:30
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
 

不知道哪里写错了
参考答案· 迁延蹉跎,来日无多,二十丽姝,请来吻我,衰草枯杨,青春易过.