close
標題:

請寫程式完成以下條件：

發問:

(1) 產生50個1到100的亂數並以陣列儲存。(2) 輸出以上資料(3) 統計與輸出0~9,10~19,20~29,30~39,40~49,50~59,60~69,70~79,80~89,90~100等區間的人數 高手幫忙 小的先在這裡謝謝大大 我用的是vb6

最佳解答:

您沒說輸出輸入方式, 只好用 print 就好了 程式碼約如下, 請參考 Private Sub Form_Activate() Dim a(50) As Integer '存放 50 個亂數 Dim b(10) As Integer '存放各區間統計 For i = 1 To 50 ' 產生50個1到100的亂數並以陣列儲存 a(i) = Int(Rnd * 100) + 1 Print a(i), '輸出以上資料 Select Case a(i) '統計各區間數字 Case 0 To 9 b(1) = b(1) + 1 Case 10 To 19 b(2) = b(2) + 1 Case 20 To 29 b(3) = b(3) + 1 Case 30 To 39 b(4) = b(4) + 1 Case 40 To 49 b(5) = b(5) + 1 Case 50 To 59 b(6) = b(6) + 1 Case 60 To 69 b(7) = b(7) + 1 Case 70 To 79 b(8) = b(8) + 1 Case 80 To 89 b(9) = b(9) + 1 Case 90 To 100 b(10) = b(10) + 1 End Select If i Mod 10 = 0 Then Print Next For i = 1 To 10 ' 輸出各區間數字 Print (i - 1) * 10; " ===> "; b(i) Next End Sub

aa.jpg

 

此文章來自奇摩知識+如有不便請留言告知

其他解答:

Dim a(50), b(10), i, j, k, s As Integer Dim RR(10) As String Private Sub Command1_Click() List1.Clear List2.Clear For i = 0 To 9 b(i) = 0 If i = 9 Then RR(i) = Str(i * 10) + "- " + Str(i * 10 + 10) Else RR(i) = Str(i * 10) + "- " + Str(i * 10 + 9) End If Next Randomize For i = 0 To 49 a(i) = Int(Rnd * 100) + 1 List1.AddItem a(i) k = Int(a(i) / 10) If k = 10 Then k = 9 b(k) = b(k) + 1 Next s = 0 For i = 0 To 9 List2.AddItem RR(i) + " => " + Str(b(i)) s = s + b(i) Next Text1 = s End Sub
arrow
arrow
    文章標籤
    好了 方位 高手 程式 好用
    全站熱搜

    ohe09nz81r 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄