05855BT07.indd

Size: px

Start display at page:

Download "05855BT07.indd"

澄锺
5 years ago
Views:

1 第 7 章陣列 95 第 7 章陣列參考答案 7-1 認識陣列一維陣列馬上練習配合課本第 272 頁 ( A )1. 下列 Visual Basic 宣告敘述, 何者不正確? (A)Dim X(1 To 5) As Integer (B)Dim T As String (C)Dim A(19) As Integer (D)Dim Beauty As Boolean 統測 ( A )2. Visual Basic 的陣列註標, 是從哪一個數值開始? (A)0 (B)1 (C)2 (D)3 ( D )3. 若陣列 A 之內容如下圖, 執行 MsgBox(A(A(2) + 1) + 1) 指令後答案為何? (A)1 (B)2 (C)3 (D)4 統測陣列 A 內容註標 ( D )4. 執行下列 Visual Basic 程式的最後輸出結果? (A)6 (B)8 (C)16 (D)21 技競 Dim P(10) a = 8 P(0) = 0 P(1) = 1 For i = 2 To a P(i) = P(i - 1) + P(i - 2) Next MsgBox(P(a))

2 96 程式語言與設計 -Visual Basic Ⅰ 教師手冊 ( C )5. 執行下列 Visual Basic 程式片段, 請問最後 a 的值為何? (A)0 (B)1 (C)5 (D)10 技競 Dim x(10) As Integer a = 0 For i = 10 To 1 Step -1 x(i) = i Mod 2 : a = a + x(i) Next 2 下課想配合課本第 278 頁若要增加當遊戲者猜對, 可繼續猜下一首歌曲的原唱者之功能, 並記錄答對的題數, 上述程式應如何修改?( 提示 : 將原宣告陣列 song singer 的敘述, 移至事件程序的上方, 並在 Button1_Click 中的 If Then Else 敘述加入, 若答對, 繼續顯示下一首歌曲名稱, 並累計答對題數 ; 若答錯, 則結束程式 ) 成果預覽 : Label3 解請參考教資光碟中的方案檔 "ans7-1a_1.sln" 多維陣列 2 下課想配合課本第 287 頁若要根據血型專家提供的血型速配指數 ( 如下表 ), 增加可依選取的性別及血型, 顯示血型配對指數的功能, 上述程式應如何修改?( 提示 : 宣告用來儲存血型速配指數的二維陣列 match) 男 / 女 A 型 B 型 O 型 AB 型 A 型 B 型 O 型 AB 型

執行下列 Visual Basic 程式片段時, 請問陣列 A 占用記憶體多少 bytes 的儲存空間? (A)160 (B)96 (C)80 (D)48 統測 Dim A(3, 4) As Double ( D )3. 下列何種資料結構的資料元素存取方式是先進先出 (First In First Out)?

3 第 7 章陣列 97 成果預覽 : Label2 GroupBox2 Label3 Label4 ~ Label8 解請參考教資光碟中的方案檔 "ans7-1b_1.sln" 7-1 練習配合課本第 289 頁一選擇題基礎 ( C )1. 在 Visual Basic 中, 執行陣列宣告敘述 "Dim A() As Integer = {4, 1, 0, 6, 8}", 則 A(3) 的值為何? (A)1 (B)0 (C)6 (D)8 ( A )2. 執行下列 Visual Basic 程式片段時, 請問陣列 A 占用記憶體多少 bytes 的儲存空間? (A)160 (B)96 (C)80 (D)48 統測 Dim A(3, 4) As Double ( D )3. 下列何種資料結構的資料元素存取方式是先進先出 (First In First Out)? (A) 陣列 (B) 雙向串列 (C) 堆疊 (D) 佇列統測 ( C )4. 在 Visual Basic 中, 某陣列宣告敘述以 "Dim B(,, ) As String" 開頭, 由此可知該陣列為幾維陣列? (A)1 (B)2 (C)3 (D)4 ( D )5. 在 Visual Basic 中, 執行陣列宣告敘述 "Dim X(2, 3, 2) As Long", 則陣列 X 可儲存幾個陣列元素? (A)7 (B)12 (C)27 (D)36

4 98 程式語言與設計 -Visual Basic Ⅰ 教師手冊 ( D )6. 執行程式 ( 一 ) 後,A(3) 的值為何? (A)0 (B)1 (C)3 (D)6 統測 Dim A(3), Sum, I As Integer Sum = 0 For I = 1 To 3 Sum = Sum + I A(I) = Sum Next I Dim A(8) As Integer For I = 1 To 8 A(I) = I + 2 Next I MsgBox(A(A(A(2) + 1) - 2) + 3) 程式 ( 一 ) 程式 ( 二 ) 進階 ( C )7. 執行程式 ( 二 ) 後, 其顯示的結果為何? (A)12 (B)11 (C)10 (D)9 技競 ( B )8. 執行下列 Visual Basic 程式片段後, 輸出的結果為何? (A)15 (B)20 (C)25 (D)30 統測 Dim A(4) For i = 1 To 4 If (i Mod 2 <> 0) Then A(i) = i ^ 2-1 Else A(i) = i ^ End If Next i MsgBox(A(4) + A(3) - A(2)) ( A )9. 下列 Visual Basic 程式片段執行後,A(1, 3) 的值與下列哪一個元素的值相同? (A)A(2, 0) (B)A(2, 1) (C)A(2, 2) (D)A(2, 3) 統測 Dim A(3, 3) As Integer For I = 0 To 3 For J = 0 To 3 A(I, J) = 2 * I * (I + J) Next J Next I

5 第 7 章陣列 99 ( B )10. 下列程式執行前陣列 A(1) 至 A(5) 之值依序為 5, 6, 3, 4, 1, 則其執行後印出陣列 A(1) 至 A(5) 的結果為? (A)5, 6, 3, 4, 1 (B)6, 5, 4, 3, 1 (C)1, 3, 4, 5, 6 (D)5, 4, 6, 1, 3 技競 Dim a(5) For J = 2 To 5 T = a(j) : I = J - 1 : M = J While (I >= 1 And a(i) < T) If a(i) < T Then a(m) = a(i) : I = I - 1 : M = M - 1 End While a(i + 1) = T Next J ( B )11. 執行下列 VB 程式後, 輸出的結果為何? (A) (B) (C) (D) 統測 Dim a(6), i, b As Integer a(1) = 27 : a(2) = 12 : a(3) = 8 a(4) = 9 : a(5) = 21 : a(6) = 72 For i = 1 To 3 b = a(i) a(i) = a(7 - i) a(7 - i) = b Next i For i = 1 To 6 Console.Write(a(i) & " ") Next i ( B )12. 執行下列 Visual Basic 程式片段後,sum k 的值分別為何? (A) 產生陣列索引超出範圍之錯誤 (B)48 4 (C)66 3 (D)44 2 統測 Dim a(4, 3) As Integer a(1, 1) = 0 : a(1, 2) = 1 : a(1, 3) = 11 a(2, 1) = 0 : a(2, 2) = 2 : a(2, 3) = 22 a(3, 1) = 0 : a(3, 2) = 3 : a(3, 3) = 33 For i = 1 To 4 For j = 1 To 3 If a(i, j) <> 0 And a(i, j) Mod 2 <> 0 Then sum = sum + a(i, j) : k = k + 1 End If Next j Next i

6 100 程式語言與設計 -Visual Basic Ⅰ 教師手冊二多元練習題 1. 請依據下面各小題的資料儲存需求, 撰寫宣告陣列的敘述 (1) 利用陣列 temp 記錄全國某年 1 ~ 12 月的平均氣溫 ( 溫度取至小數 1 位 ): Dim temp(11) As Single (2) 利用陣列 score 記錄全班 50 位同學的國英數計概 4 科成績 ( 分數為整數 ): Dim score(49, 3) As Integer (3) 利用陣列 match 記錄如下表所示的十二星座之速配指數 : Dim match(11, 11) As Integer 男 / 女牡羊金牛雙子巨蟹獅子處女天秤天蠍射手魔羯水瓶雙魚牡羊金牛雙子巨蟹獅子處女天秤天蠍射手魔羯水瓶雙魚

第 7 章陣列 101 2. 選按檔案 / 開啟專案選項, 開啟專案 "ex7-1c.

TextBox6 1 按輸入 4 星彩開獎號碼鈕 1 2 依序輸入五期的開獎號碼 TextBox7 ~ TextBox11 2 3

宣告一個用來存放每個開獎號碼 (0 ~ 9) 出現次數的一維陣列 count (3) 利用巢狀迴圈及 InputBox() 函數,

7 第 7 章陣列選按檔案 / 開啟專案選項, 開啟專案 "ex7-1c.sln", 利用二維陣列儲存近五期的 4 星彩開獎號碼, 並計算每個號碼出現的次數成果預覽 : TextBox1 TextBox2 ~ TextBox6 1 按輸入 4 星彩開獎號碼鈕 1 2 依序輸入五期的開獎號碼 TextBox7 ~ TextBox 顯示開獎號碼及每個號碼的出現次數 3 提示 :(1) 宣告一個用來存放近五期 4 星彩開獎號碼的二維陣列 n (2) 宣告一個用來存放每個開獎號碼 (0 ~ 9) 出現次數的一維陣列 count (3) 利用巢狀迴圈及 InputBox() 函數, 讓使用者輸入近五期開獎的號碼 (4) 利用 Select Case 敘述計算每個開獎號碼的出現次數, 並顯示在對應的文字方塊 (TextBox2 ~ TextBox11) 中解請參考教資光碟中的方案檔 "ans7-1c.sln"

8 102 程式語言與設計 -Visual Basic Ⅰ 教師手冊 7-2 陣列的應用資料排序馬上練習配合課本第 296 頁 ( B )1. 佳佳想依照段考總分來排列 30 位同學的段考名次, 如果她使用的是氣泡排序法, 請問她最多需要進行幾次的排序循環? (A)30 (B)29 (C)31 (D)28 ( A )2. 如果要以氣泡排序法, 將 20 個原先由重到輕依序排列的包裹 ( 每個包裹的重量皆不相同 ), 改為由輕到重的順序重新排列, 共需進行幾次比較? (A)190 (B)210 (C)200 (D)180 ( C )3. 若要以氣泡排序法, 將數列資料由小到大依序排列, 請問在第一次循環結束後, 數列排列的狀況為何? (A) (B) (C) (D) 馬上練習配合課本第 299 頁 ( D )1. 若要依照銷售總額的高低, 以選擇排序法來排列園遊會中 30 個攤位的銷售名次, 請問需要進行幾次的排序循環? (A)30 (B)28 (C)31 (D)29 ( A )2. 若要將未依大小順序排列的 13 張黑桃撲克牌 (A ~ K), 以選擇排序法由小到大依序排列, 共需進行幾次比較? (A)78 (B)91 (C)71 (D)82 ( C )3. 使用選擇排序法, 將數列資料 ( ) 由大到小依序排列, 共需進行幾次比較? (A)8 (B)9 (C)10 (D) 資料搜尋馬上練習配合課本第 303 頁 ( B )1. 下列哪一種情形, 較不適合使用循序搜尋法來搜尋資料? (A) 在蛋糕店的產品展示櫥窗中找出起司蛋糕 (B) 在數萬筆的計程車駕駛名單中, 找出名為 " 張富貴 " 的駕駛員 (C) 在家裡鞋櫃中找出自己的夏季涼鞋 (D) 在收到的 10 封電子郵件中, 找出老師回覆問題的郵件 ( A )2. 使用循序搜尋法, 在 1000 筆學生資料中, 搜尋謝明華的資料, 請問最多需要進行幾次的搜尋比較? (A)1000 (B)1 (C)999 (D)1001

9 第 7 章陣列 103 ( B )3. 使用循序搜尋法, 在 45 張考卷中搜尋自己的考卷, 請問平均要進行幾次的搜尋比較? (A)1 (B)23 (C)45 (D) 練習配合課本第 307 頁基礎一選擇題 ( C )1. 利用氣泡排序法排列 N 筆資料的順序, 最多做幾次的排序循環? (A)N / 2 次 (B)N 次 (C)N - 1 次 (D)N + 1 次統測 ( D )2. 二元搜尋法在搜尋升冪排序過後的資料時, 是將所欲搜尋的數值與資料中的哪一個元素進行比較? (A) 任意一個 (B) 第一個 (C) 最後一個 (D) 最中間的統測 ( B )3. 一組 10 個已排序的數值資料, 若用二元搜尋法找其中某一個特定值, 至多需要比對幾次即可找到? (A)3 (B)4 (C)5 (D)9 統測 ( A )4. 利用循序搜尋法, 找尋某一筆已知存在陣列 ( 有 15 筆資料 ) 中的資料, 最好的情況要作比較次數與最壞的情況要作比較次數的平均為 : (A)8 (B)7 (C)15 (D)2 統測 ( D )5. 利用循序搜尋法在 31 筆已排序資料中尋找指定資料 ( 假設該筆資料存在 ), 請問最少需要比較幾次, 才能找到指定資料? (A)32 (B)31 (C)5 (D)1 統測進階 ( D )6. 下列對二元搜尋法 (Binary Search) 的敘述, 何者有誤? (A) 平均效率比循序搜尋法好 (B) 資料必須先排序 (C) 在 N 個資料中搜尋, 比較次數最多為 log 2 (N + 1) (D) 又稱為線性搜尋法統測 ( C )7. 給定 10 個大小隨機排列的正整數, 如果要以泡沫排序的方式, 由小而大排列, 在程式設計上使用巢狀 For Next 處理, 請問至少要使用幾層巢狀 For Next? (A)10 (B)9 (C)2 (D)1 統測 ( D )8. 有關循序搜尋法的敘述, 何者正確? (A) 若要在 10 筆資料中進行循序搜尋, 最少需要 10 次的搜尋比較 (B) 當資料筆數很大時, 使用循序搜尋法來找尋資料會較其它搜尋法有效率 (C) 在 N 個資料中要找到欲搜尋的資料, 最多需要 N / 2 次的搜尋比對 (D) 適合用來找尋未排序且資料個數不多的資料 ( D )9. 下列哪一組資料, 不能使用二元搜尋法 (Binary search)? (A)rose,rosa,paul,mary,john,jane,fred,bill,anne,adam (B)1,10,15,30,50,55,100,123,150 (C)1,5,6,8,9,12,15,20,30,53 (D)1.43,-2,0,10.2,5.8,3.56,1.44 技競

10 104 程式語言與設計 -Visual Basic Ⅰ 教師手冊 ( B )10. 執行下列程式, 印出的結果為何? (A) (B) (C) (D) 統測 Dim A(5), B A(1) = 15 A(2) = 8 A(3) = 5 A(4) = 20 A(5) = 35 For X = 4 To 1 Step -1 For Y = 1 To X If A(Y) < A(Y + 1) Then B = A(Y) A(Y) = A(Y + 1) A(Y + 1) = B End If Next Y Next X For X = 1 To 5 Console.Write(A(X) & " ") Next X 二多元練習題 1. 下列哪些情況適合使用循序搜尋法來找尋資料? 請在方格中勾選 (1) 在文化走廊的 10 幅畫作中, 找出名為拾穗的作品 (2) 在上萬筆統測資料中, 找出准考證號碼為的考生成績 (3) 從 50 張數學考卷中, 找出得分 90 分以上的同學 (4) 在依釀造年份排序的數萬瓶葡萄酒中, 找出釀造年份為 1965 年的法國波爾多紅葡萄酒 2. 請將同學每 3 人分為 1 組, 每組依照下面的說明, 完成下表的內容 (1) 資料排序 : 每人分別提供 2 個數字, 數字須介於 1 ~ 99 之間, 且不得重複 ; 再利用本節所介紹的任一種資料排序法, 將數列由大到小排列 (2) 資料搜尋 : 請老師提供 6 個數字 ( 須介於 1 ~ 99 之間 ) 及目標資料數字 ; 同學利用二元搜尋法來搜尋該數字是否存在排序完成的數列中

11 第 7 章陣列 105 資料排序原始資料 : 利用任一種資料排序法, 將數字由大到小排列 : 請勾選所使用的資料排序法氣泡排序法選擇排序法資料搜尋已排序資料 : 目標資料 : 利用二元搜尋法來搜尋數字是否存在於排序完成的數列中 ( 請在每一次搜尋的數列下方, 標示 L R M 值 ) 第 1 次排序循環 : 第 2 次排序循環 : 第 3 次排序循環 : 第 1 次搜尋 : 第 2 次搜尋 : 第 3 次搜尋 : 第 4 次排序循環 : 第 5 次排序循環 : 解略基礎綜合評量配合課本第 310 頁一選擇題 ( D )1. 在 Visual Basic 中, 執行陣列宣告敘述 "Dim Y(, ) = {{1, 7}, {13, 17}}", 則 Y(1, 1) 的值為何? (A)1 (B)7 (C)13 (D)17 ( C )2. 在 Visual Basic 中, 我們可以使用下列哪一個敘述來變更陣列元素的個數? (A)UBound (B)Length (C)ReDim (D)LIFO ( A )3. 在 Visual Basic 中, 不管陣列的維度是多少, 各註標的下限值預設為? (A)0 (B)1 (C)2 (D)3 ( B )4. 在 Visual Basic 中, 宣告一個陣列 "Dim salary(9) As Short", 表示陣列 salary 需使用多少記憶體空間 ( 提示 : 短整數型別佔用 2 bytes 的記憶體空間 )? (A)18 (B)20 (C)22 (D)24

12 106 程式語言與設計 -Visual Basic Ⅰ 教師手冊 ( A )5. 在 3000 筆已由大至小排序好的資料中, 用二元搜尋法 (Binary Search) 搜尋某一筆特定資料 ( 假定資料存在 ), 最多需要比較幾次可以搜尋到該筆資料? (A)12 (B)16 (C)20 (D)30 統測 ( A )6. 在電影裡, 被害人 ( 或目擊證人 ) 到警局指認室中, 從數十位可疑份子中找尋出兇嫌的方法, 類似於下列哪一種搜尋方法? (A) 循序搜尋法 (B) 二元搜尋法 (C) 費氏搜尋法 (D) 插補搜尋法 ( A )7. 對下列 7 筆已排序的資料 (2, 13, 27, 32, 44, 58, 67), 以二元搜尋法找尋關鍵值為 58 的資料, 總共要作幾次比較? (A)2 (B)3 (C)4 (D)6 統測進階 ( A )8. 下列有關陣列的敘述, 何者錯誤? (A) 同一陣列中的元素可儲存不同資料型別的資料 (B) 一維陣列只有 1 個註標值 (C) 陣列元素通常會依先後順序儲存在電腦記憶體中 (D) 必須使用註標值才能存取陣列元素的資料內容 ( C )9. 若陣列 A 之宣告為 Dim A(2, 3) As Integer,A 之內容如下圖, 則 A(A(1, 2) - 1, A(2, 3) + 1) 的答案為何? (A)0 (B)1 (C)2 (D)3 統測陣列 A 標註 ( C )10. 執行程式 ( 一 ) 後, 何者的值與 B(3, 1) 的值相等? (A)B(0, 2) (B)B(1, 1) (C)B(1, 3) (D)B(2, 1) Dim B (3, 3) As Integer For I = 0 To 3 For J = 0 To 3 B(I, J) = 2 * I * J Next J Next I Dim A(3, 3) As Integer For I = 1 To 3 For J = 1 To 3 A(I, J) = A(I - 1, J - 1) + (I + J) * 2 Next J Next I 程式 ( 一 ) 程式 ( 二 ) ( B )11. 執行程式 ( 二 ) 後,A(3, 3) 的值為何? (A)16 (B)24 (C)30 (D)36 統測

13 第 7 章陣列 107 ( C )12. 執行下列 VB 程式片段後, 請問 A(3, 1) =? (A)4 (B)3 (C)2 (D)0 統測 Dim A (5, 5) As Integer Dim I, J As Integer For I = 0 to 5 For J = 0 to 5 If (I > J) Then A(I, J) = A(I - 1, J) ElseIf (I = J) Then A(I, J) = I + J Else A(I, J) = I * J End If Next J Next I 二實作題 1. 選按檔案 / 開啟專案選項, 開啟專案 "ex7-a.sln", 撰寫一支可用來測驗英文單字能力的程式成果預覽 : Label1 ComboBox1 提示 :(1) 在事件程序的上方, 宣告變數 n, 用來儲存隨機產生的亂數 (2) 宣告一維陣列 English 用來儲存 "afraid" "art" "basketball" "beach" "chance" 等 5 個英文單字 ; 宣告一維陣列 Chinese 用來儲存 " 害怕 " " 藝術 " " 籃球 " " 海灘 " " 機會 " 等 5 個中文字義 (3) 在標籤 (Label1) 控制項中隨機顯示一個英文單字

108 程式語言與設計 -Visual Basic Ⅰ 教師手冊 (4) 利用 For Next 迴圈敘述在下拉式方塊 (ComboBox1) 控制項中加入 5 個中文字義 (5) 雙按下拉式方塊控制項, 在下拉式方塊的 SelectedIndexChanged 事件中撰寫程式 : 利用 If Then Else 敘述判斷使用者所點選的中文字義選項是否正確解請參考教資光碟中的方案檔

14 108 程式語言與設計 -Visual Basic Ⅰ 教師手冊 (4) 利用 For Next 迴圈敘述在下拉式方塊 (ComboBox1) 控制項中加入 5 個中文字義 (5) 雙按下拉式方塊控制項, 在下拉式方塊的 SelectedIndexChanged 事件中撰寫程式 : 利用 If Then Else 敘述判斷使用者所點選的中文字義選項是否正確解請參考教資光碟中的方案檔 "ans7-a.sln" 2. 選按檔案 / 開啟專案選項, 開啟專案 "ex7-b.sln", 撰寫一支可用來查詢國英數成績並計算總分及平均的程式成果預覽 : Button1 科目座號國文英文數學 TextBox1 Label2 ~ Label 提示 :(1) 宣告 1 個二維陣列 (score), 並依上表設定 5 位同學的國英數成績 (2) 依使用者輸入的座號, 在標籤 (Label2 ~ Label4) 控制項, 顯示對應的國英數成績, 並將計算所得的總分 (sum) 與平均 (avg) 顯示於標籤 (Label5 Label6) 控制項中解請參考教資光碟中的方案檔 "ans7-b.sln"

國立北斗家商 107 學年度第 2 學期第二次期中考科目 : 計算機應用計算機概論 IV 班級 : 商二 1 2 貿二資二綜二 1 作答方式 : 答案卡選擇題共 33 題, 除第 1 題 4 分, 其餘每題 3 分, 注意作答時間 1. ( ) 使用 Visual Basic 程式語言 (

國立北斗家商 107 學年度第 2 學期第二次期中考科目 : 計算機應用計算機概論 IV 班級 : 商二 1 2 貿二資二綜二 1 作答方式 : 答案卡選擇題共 33 題, 除第 1 題 4 分, 其餘每題 3 分, 注意作答時間 1. ( ) 使用 Visual Basic 程式語言 ( 以下皆是 ) 執行下列程式碼後,T 值為何? (A)495 (B)550 (C)594 (D)5050