python统计各分数段人数_VB程序题：随机产生20个学生的成绩，统计各分段人数。即0-59、60-69、70-79、80-89、90-100,并显示结果。产生的数据在Picture1显示，统计结果...

VB程序题：随机产生20个学生的成绩，统计各分段人数。即0-59、60-69、70-79、80-89、90-100,并显示结果。产生的数据在Picture1显示，统计结果在Picture2显示。龚沛曾

解题，如下面的效果图所示，画2个图片框，画2个按钮，代码如下：

Dim a%(19)

Private Sub Command1_Click()

Picture1.Cls

For i = 0 To 19

a(i) = Int(Rnd * 101)

Picture1.Print a(i); "  ";

If (i + 1) Mod 4 = 0 Then Picture1.Print

Next i

End Sub

Private Sub Command2_Click()

Picture2.Cls

Dim s(5 To 9)

For i = 0 To 19

k = a(i) \ 10

Select Case k

Case 0 To 5

s(5) = s(5) + 1

Case 9 To 10           '90～100分的人数

s(9) = s(9) + 1

Case 6 To 8             ' 存放其他三个分数段的下标有规律，根据K获得

s(k) = s(k) + 1

End Select

Next i

For i = 5 To 9

If s(i) <> 0 Then Picture2.Print "s("; i; ")的人数有 "; Format(s(i), "0"); "个"

Next i

End Sub

运行程序效果图如下：

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码 wb86.com