VB程序設計 習題及答案第6章 數(shù)組VIP

1、第6章 數(shù) 組61 試將下面的算術乘法九九表存入數(shù)組中，并在窗口顯示出來。1 2 3 4 5 6 7 8 92 4 6 8 10 12 14 16 183 6 9 12 15 18 21 24 274 8 12 16 20 24 28 32 365 10 15 20 25 30 35 40 456 12 18 24 30 36 42 48 547 14 21 28 35 42 49 56 638 16 24 32 40 48 56 64 729 18 27 36 45 54 63 72 81【參考答案】程序代碼設計Private Sub Form_Click() Dim a(9, 9) As

2、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 iEnd Sub圖6-1程序運行結果程序運行結果如圖6-1所示：62 編寫程序,輸出上題乘法九九表對角線上的數(shù)。(兩條對角線的數(shù)分兩組輸出)?！緟⒖即鸢浮砍绦虼a設計Private Sub Form_Click() Dim a(9, 9) As Integer For i = 1 To 9 For j = 1 To

3、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); 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圖6-2程序運行結果End Sub程序運行結果如圖6-2所示：63 編寫程序,輸出上題乘法九九表中任意一列和任意一行上的數(shù)?！緟⒖即鸢浮砍绦虼a設計Private Sub Form_Click

4、() 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(n, i); Next i Print For j = 1 To 9 Print Tab(5 * m); a(m, j) Next jEnd Sub運行結果：如輸入行號為：5，輸入列號為：5圖6-3程序運行結果則程序運行結果如圖6-3所示：64 編寫程序,交換上

5、題乘法九九表中任意兩列上對應的數(shù)?！緟⒖即鸢浮砍绦虼a設計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 For j = 1 To 9 If j = n Then Print Tab(5 * j); a(i, m); ElseIf j = m Then Print Tab(5

6、* j); a(i, n); Else Print Tab(5 * j); a(i, j); End If Next j Print Next iEnd Sub運行結果：圖6-4程序運行結果如將第1列與第5列交換，則程序運行結果如圖6-4所示：65 編寫程序,交換上題乘法九九表中任意兩行上對應的數(shù)?！緟⒖即鸢浮砍绦虼a設計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(輸入要交換的第一個行號:)

7、 m = Val(InputBox(輸入要交換的第二個行號:) For i = 1 To 9 For j = 1 To 9 If i = n Then Print Tab(5 * j); a(m, j); ElseIf i = m Then Print Tab(5 * j); a(n, j); Else Print Tab(5 * j); a(i, j); End If Next j Print Next iEnd Sub運行結果：如將第1行與第5行交換，則程序運行結果如圖6-5所示：圖6-5程序運行結果66 矩陣轉(zhuǎn)置，即將矩陣的行、列互換，如下所示： 1 2 3 1 4 7 4 5 6 2

8、5 8 7 8 9 3 6 9 【參考答案】程序代碼設計Private Sub Form_Click() Dim a(3, 3) As Integer, b(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = Val(InputBox(輸入a數(shù)組:) Next j Next i For i = 1 To 3 For j = 1 To 3 b(j, i) = a(i, j) Next j Next i Print 輸出a數(shù)組: For i = 1 To 3 For j = 1 To 3 Print Tab(5 * j); a(i, j

9、); Next j Print Next i Print 輸出b數(shù)組: For i = 1 To 3 For j = 1 To 3 Print Tab(5 * j); b(i, j); Next j Print Next iEnd Sub圖6-6程序運行結果程序運行結果如圖6-6所示：67 利用一維數(shù)組，統(tǒng)計一個班學生成績059，6069，7079，8089，9099和100各分數(shù)段的人數(shù)。 【參考答案】程序代碼設計Private Sub Form_Click() Dim a(5 To 10) As Integer For i = 1 To 30 s = Val(InputBox(輸入一個學生

10、的成績:) If s = 60 And s 0.5 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)計結果 Print 正面落地的次數(shù)為：; z, 概率為:; z / n Print 反面落地的次數(shù)為：; f, 概率為:; f / n Print 兩個正面落地的次數(shù)為：, c(1, 1) Print 兩個反面落地的次數(shù)

11、為：, c(0, 0) Print 一正一反落地的次數(shù)為：, c(0, 1) + c(1, 0)End Sub程序運行結果如圖6-8所示：圖6-8程序運行結果69 利用隨機函數(shù)，分別產(chǎn)生兩個5行4列的矩陣，實現(xiàn)矩陣減法運算。圖6-9程序運行結果【參考答案】程序代碼設計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,

12、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矩陣結果為： For i = 1 To 5 For j = 1 To 4 Print a(i, j) - b(i, j); Next j Print Next iEnd Sub程序運行結果如圖6-9所

13、示。610 有學生成績表如下所示： 姓名 數(shù)學 物理 化學 英語 張 三 85 87 93 95 李 四 91 90 93 75 王 五 83 77 63 85 趙 六 75 80 73 74 孫 七 72 79 86 65 試編寫程序，將上述成績輸入數(shù)組，并對學生成績進行檢索。只要鍵入一個學生姓名，就可以顯示出他的成績。要求：(1) 使用動態(tài)數(shù)組，輸入的人數(shù)可以根據(jù)情況決定。(2) 當要檢索的學生名不在成績表中時，要能給出提示信息。(3) 每次檢索后，詢問是否繼續(xù)檢索，并能根據(jù)輸入信息決定是否結束程序運行?！緟⒖即鸢浮砍绦虼a設計Dim nam() As String, a1() As In

14、teger, a2() As IntegerDim a3() As Integer, a4() As IntegerPrivate Sub Form_Click() n = Val(InputBox(輸入學生人數(shù):) ReDim nam(n), a1(n), a2(n), a3(n), a4(n) For i = 1 To n nam(i) = InputBox(輸入學生姓名:) a1(i) = Val(InputBox(輸入數(shù)學成績:) a2(i) = Val(InputBox(輸入物理成績:) a3(i) = Val(InputBox(輸入化學成績:) a4(i) = Val(InputB

15、ox(輸入英語成績:) Next i Print 姓名 數(shù)學 物理 化學 英語 Do na$ = InputBox(輸入要查詢學生的姓名:) For i = 1 To n If na$ = nam(i) Then Print nam(i); ; Tab(12); a1(i); ; a2(i); ; a3(i); ; a4(i) Exit For End If Next i If i n Then Print na$; 查無此人！ con$ = InputBox(是否繼續(xù)查詢?(Y/N) Loop While con$ = Y Or con$ = yEnd Sub運行結果：圖6-10程序運行結果

16、按題意輸入查詢成績的學生姓名，如輸入的學生姓名在成績表中，則顯示；如輸入的學生姓名不在成績表中，則顯示“查無此人！”，程序運行結果如圖6-10所示：611 某大學召開運動會，有16個學生參加100米短跑，成績表如下：運動員號 成績(秒) 運動員號 成績(秒)023 12.5 075 12.1 102 12.7 062 12.9 091 13.2 021 13.7 078 13.5 018 11.1 162 12.8 107 13.8 032 13.3 017 13.9 045 11.9 056 13.4 圖6-11程序運行結果038 11.8 123 12.3 試編寫程序，將上述成績輸入數(shù)組，

17、并按學生成績排出名次, 輸出前5名運動員的名次, 運動員號和成績?！緟⒖即鸢浮砍绦虼a設計Private Sub Form_Click() Dim no(1 To 16) As String, a(1 To 16) As Single For i = 1 To 16 no(i) = InputBox(輸入第 & i & 個運動員編號:) a(i) = Val(InputBox(輸入第 & i & 個運動員成績:) Next iFor i = 1 To 15 l = i For j = i + 1 To 16 If a(l) a(j) Then l = j Next j If i l Then

18、t = no(i) no(i) = no(l) no(l) = t t = a(i) a(i) = a(l) a(l) = t End If Next i Print 名次 運動員編號 運動員成績 For i = 1 To 16 Print i, no(i), a(i) Next iEnd Sub程序運行結果如圖6-11所示。612 輸入5個學生的學號，姓名和4門課的成績，計算每個學生的總分和平均分，并按平均成績從高到低輸出學生的成績單。（要求：不使用自定義數(shù)據(jù)類型）【參考答案】程序代碼設計Private Sub Form_Click() Dim no(5) As Long, nam(5) A

19、s String, a(5, 4) As Single Dim sum(5) As Single, aver(5) As Single For i = 1 To 5 no(i) = Val(InputBox(輸入第 & i & 個學生的學號:) nam(i) = InputBox(輸入第 & i & 個學生的姓名:) For j = 1 To 4 a(i, j) = Val(InputBox(輸入第 & i & 個學生第 & j & 門課成績:) Next j Next i For i = 1 To 5 sum(i) = 0 For j = 1 To 4 sum(i) = sum(i) + a(i, j) Next j aver(i) = CInt(sum(i) / 4) Next i For i = 1 To 4 For j = i + 1 To 5 If aver(i) aver(j) Then t = no(i) no(i) = no(j) no(j) = t t = nam(i) nam(i) = nam(j) nam(j) = t t = sum(i) sum(i) = sum(j) sum(j) = t t = aver(i) aver(i) = aver(j) aver(j) = t For k = 1 To