3. 随机产生20个学生的成绩(整数),统计各分数段人数.即0~59、60~69、70~79、80~89、90~100,并显示结果,效果如图5-3所示.要求:(1)单击按钮“产生并显示数据”按钮时,产生的数据在Pictu
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/27 00:50:51
![3. 随机产生20个学生的成绩(整数),统计各分数段人数.即0~59、60~69、70~79、80~89、90~100,并显示结果,效果如图5-3所示.要求:(1)单击按钮“产生并显示数据”按钮时,产生的数据在Pictu](/uploads/image/z/1960226-26-6.jpg?t=3.+%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F20%E4%B8%AA%E5%AD%A6%E7%94%9F%E7%9A%84%E6%88%90%E7%BB%A9%EF%BC%88%E6%95%B4%E6%95%B0%EF%BC%89%2C%E7%BB%9F%E8%AE%A1%E5%90%84%E5%88%86%E6%95%B0%E6%AE%B5%E4%BA%BA%E6%95%B0.%E5%8D%B30%EF%BD%9E59%E3%80%8160%EF%BD%9E69%E3%80%8170%EF%BD%9E79%E3%80%8180%EF%BD%9E89%E3%80%8190%EF%BD%9E100%2C%E5%B9%B6%E6%98%BE%E7%A4%BA%E7%BB%93%E6%9E%9C%2C%E6%95%88%E6%9E%9C%E5%A6%82%E5%9B%BE5-3%E6%89%80%E7%A4%BA.%E8%A6%81%E6%B1%82%EF%BC%9A%EF%BC%881%EF%BC%89%E5%8D%95%E5%87%BB%E6%8C%89%E9%92%AE%E2%80%9C%E4%BA%A7%E7%94%9F%E5%B9%B6%E6%98%BE%E7%A4%BA%E6%95%B0%E6%8D%AE%E2%80%9D%E6%8C%89%E9%92%AE%E6%97%B6%2C%E4%BA%A7%E7%94%9F%E7%9A%84%E6%95%B0%E6%8D%AE%E5%9C%A8Pictu)
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
参考答案· 迁延蹉跎,来日无多,二十丽姝,请来吻我,衰草枯杨,青春易过.