当前位置:首页 » VB程序题 » 正文

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

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号