當前位置:首頁 ? VB程序題 ? 正文

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://www.cojdcn.tw/post/81.html

本站文章搜索:

<< 上一篇下一篇 >>

文章搜索

Tags列表

贊助商鏈接

湘公網安備 43011102000514號 - ICP備08100508號

黑龙江福彩22选5开奖果