vb程序設(shè)計習(xí)題及答案第6章數(shù)組-文庫吧資料
2025-01-21 04:55本頁面
【正文】 Print b(i, j)。6．9 利用隨機(jī)函數(shù)，分別產(chǎn)生兩個5行4列的矩陣，實(shí)現(xiàn)矩陣減法運(yùn)算。 f / n Print 兩個正面落地的次數(shù)為：, c(1, 1) Print 兩個反面落地的次數(shù)為：, c(0, 0) Print 一正一反落地的次數(shù)為：, c(0, 1) + c(1, 0)End Sub程序運(yùn)行結(jié)果如圖68所示： z / n Print 反面落地的次數(shù)為：。 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ù)為：?！緟⒖即鸢浮空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。6．8 利用隨機(jī)函數(shù)，編寫模擬拋硬幣的程序。 a(9) Print 100分：。 a(7) Print 80分～89分：。 a(5) Print 60分～69分：。6．7 利用一維數(shù)組，統(tǒng)計一個班學(xué)生成績0～59，60～69，70～79，80～89，90～99和100各分?jǐn)?shù)段的人數(shù)。 b(i, j)。 a(i, j)。 1 2 3 1 4 7 4 5 6 2 5 8 7 8 9 3 6 9 a(i, j)。 a(n, j)。 a(m, j)。6．5 編寫程序,交換上題乘法九九表中任意兩行上對應(yīng)的數(shù)。 a(i, j)。 a(i, n)。 a(i, m)。6．4 編寫程序,交換上題乘法九九表中任意兩列上對應(yīng)的數(shù)。 Next i Print For j = 1 To 9 Print Tab(5 * m)?！緟⒖即鸢浮砍绦虼a設(shè)計Private Sub Form_Click() Dim a(9, 9) As Integer For i = 1 To 9 For j = 1 To 9 a(i, j) = i * j Next j Next i n = Val(InputBox(輸入行號:)) m = Val(InputBox(輸入列號:)) For i = 1 To 9 Print Tab(5 * i)。 a(i, j) Next j Next i圖62程序運(yùn)行結(jié)果End Sub程序運(yùn)行結(jié)果如圖62所示：【參考答案】程序代碼設(shè)計Private Sub Form_Click() Dim a(9, 9) As Integer For i = 1 To 9 For j = 1 To 9 a(i, j) = i * j Next j Next i For i = 1 To 9 For j = 1 To 9 If i = j Then Print Tab(5 * j)。6．2 編寫程序,輸出上題乘法九九表對角線上的數(shù)。1 2 3 4 5 6 7 8 92 4 6 8 10 12 14 16 183 6 9 12 15 18 21
試題試卷相關(guān)推薦
鄂ICP備17016276號-1