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

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

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/81.html