vb程序設(shè)計(jì)習(xí)題及答案第6章數(shù)組(已修改)
2025-06-21 11:08 本頁(yè)面
【正文】 第 6章 數(shù) 組 6． 1 試將下面的算術(shù)乘法九九表存入數(shù)組中，并在窗口顯示出來(lái)。 1 2 3 4 5 6 7 8 9 2 4 6 8 10 12 14 16 18 3 6 9 12 15 18 21 24 27 4 8 12 16 20 24 28 32 36 5 10 15 20 25 30 35 40 45 6 12 18 24 30 36 42 48 54 7 14 21 28 35 42 49 56 63 8 16 24 32 40 48 56 64 72 9 18 27 36 45 54 63 72 81 【參考答案】 程序代碼設(shè)計(jì) 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 Print Format(a(i, j), @@@@@)。 Next j Print Next i End Sub 程序運(yùn)行結(jié)果如圖 61所示： 6． 2 編寫程序 ,輸出上題乘法九九表對(duì)角線上的數(shù)。 (兩條對(duì)角線的數(shù)分兩組輸出 )。 【參考答案】 程序代碼設(shè)計(jì) 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 圖 61 程序運(yùn)行結(jié)果 If i = j Then Print Tab(5 * j)。 a(i, j) Next j Next i For i = 1 To 9 For j = 1 To 9 If i + j = 10 Then Print Tab(5 * j)。 a(i, j) Next j Next i End Sub 程序運(yùn)行結(jié)果如圖 62所示： 6． 3 編寫程序 ,輸出上題乘法九九表中任意一列和任意一行上的數(shù)。 【參考答案】 程序代碼設(shè)計(jì) 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(輸入行號(hào) :)) m = Val(InputBox(輸入列號(hào) :)) For i = 1 To 9 Print Tab(5 * i)。 a(n, i)。 Next i Print For j = 1 To 9 Print Tab(5 * m)。 a(m, j) Next j End Sub 運(yùn)行結(jié)果： 如輸入行號(hào)為： 5，輸入列號(hào)為： 5 圖 62 程序運(yùn)行結(jié)果 則 程序運(yùn)行結(jié)果如圖 63所示： 6． 4 編寫程序 ,交換上題乘法九九表中任意兩列上對(duì)應(yīng)的數(shù)。 【參考答案】 程序代碼設(shè)計(jì) 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(輸入要交換的第一個(gè)列號(hào) :)) m = Val(InputBox(輸入要交換的第二個(gè)列號(hào) :)) For i = 1 To 9 For j = 1 To 9 If j = n Then Print Tab(5 * j)。 a(i, m)。 ElseIf j = m Then Print Tab(5 * j)。 a(i,
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1