vb程序設(shè)計習(xí)題及答案第6章數(shù)組(編輯修改稿)
2025-02-11 04:55 本頁面
【文章內(nèi)容簡介】 Print 90分～99分：。 a(9) Print 100分：。 a(10)End Sub程序運行結(jié)果如圖67所示：6．8 利用隨機函數(shù)，編寫模擬拋硬幣的程序。設(shè)共投幣200次，分別顯示正面和反面落地的情況（正面用“z”表示，反面用“f”表示），計算“兩個正面”、“兩個反面”和“一正一反”3種情況各出現(xiàn)的次數(shù)，并統(tǒng)計正面和反面落地的概率?！緟⒖即鸢浮空f明：定義一個二維數(shù)組c（1，1），其中：c(0,0)——統(tǒng)計“兩個反面”的次數(shù)c(1,1)——統(tǒng)計“兩個正面”的次數(shù)c(1,0)和c(0,1)——統(tǒng)計“一正一反”和“一反一正”的次數(shù)程序代碼設(shè)計Private Sub Form_Click() Dim c(1, 1) As Integer, n As Integer Dim z As Integer, f As Integer n = Val(InputBox(n=, 輸入投幣次數(shù))) Randomize Timer Print 硬幣落地模擬情形: For k = 1 To n If Rnd Then Print Z。 z = z + 1 Else Print F。 f = f + 1 End If If (z + f) Mod 40 = 0 Then Print i = Int(2 * Rnd) j = Int(2 * Rnd) c(i, j) = c(i, j) + 1 Next k Print Print 統(tǒng)計結(jié)果 Print 正面落地的次數(shù)為：。 z, 概率為:。 z / n Print 反面落地的次數(shù)為：。 f, 概率為:。 f / n Print 兩個正面落地的次數(shù)為：, c(1, 1) Print 兩個反面落地的次數(shù)為：, c(0, 0) Print 一正一反落地的次數(shù)為：, c(0, 1) + c(1, 0)End Sub程序運行結(jié)果如圖68所示：圖68程序運行結(jié)果6．9 利用隨機函數(shù)，分別產(chǎn)生兩個5行4列的矩陣，實現(xiàn)矩陣減法運算。圖69程序運行結(jié)果【參考答案】程序代碼設(shè)計Private Sub Form_Click() Randomize Timer Dim a(1 To 5, 1 To 4) As Integer, b(1 To 5, 1 To 4) As Integer For i = 1 To 5 For j = 1 To 4 a(i, j) = Int(Rnd * 9 + 1) b(i, j) = Int(Rnd * 9 + 1) Next j Next i Print A矩陣為: For i = 1 To 5 For j = 1 To 4 Print a(i, j)。 Next j Print Next iPrint B矩陣為: For i = 1 To 5 For j = 1 To 4 Print b(i, j)。 Next j Print Next i Print A矩陣B矩陣結(jié)果為： For i = 1 To 5 For j = 1 To 4 Print a(i, j) b(i, j)。 Next j Print Next iEnd Sub程序運行結(jié)果如圖69所示。6．10 有學(xué)生成績表如下所示： 姓名 數(shù)學(xué) 物理 化學(xué) 英語 張 三 85 87 93 95 李 四 91 90 93 75 王 五 83 77 63 85 趙 六 75 80 73 74 孫 七 72 79 86 65 試編寫程序，將上述成績輸入數(shù)組，并對學(xué)生成績進(jìn)行檢索。只要鍵入一個學(xué)生姓名，就可以
試題試卷相關(guān)推薦
鄂ICP備17016276號-1