第 5 章 選擇結構 45 第 5 章選擇結構 參考答案 5-1 If Then 判斷敘述 舉一反三配合課本第 153 頁 若要讓程式判斷數值 i 是否能被 3 整除, 但不能被 7 整除, 應該如何修改上述程式?( 提示 : 修改 If Then 敘述的條件式 ) 解請參考教資光碟中的方案檔 "ch5-1c_1.sln" 基礎 5-1 練習配合課本第 154 頁一 選擇題 ( A )1. 在 Visual Basic 中, 若 A = 1 B = 2, 則執行敘述 If A < B Then A += B 後, 何者正確? (A)A = 3 (B)A = 2 (C)B = 1 (D)B = 3 ( D )2. 下列這段程式碼是要將變數 A 與 B 的數值重新調整, 把較大的數值存放到變數 A, 較小的數值存放到變數 B, 則空格中應填入的程式碼為何? (A)B = H (B)A = B (C)H = A (D)H = B 統測 IF B > A THEN B = A A = H END IF ( C )3. 執行下列 Visual Basic 程式後,X 值為何? (A)3 (B)13 (C)23 (D)43 X = 13 X = X + 10 If X >= 30 Then X = X - 20
46 程式語言與設計 -Visual Basic Ⅰ 教師手冊 進階 ( B )4. 下列 VB 程式片段, 執行後 AA 值為何? (A)5 (B)10 (C)50 (D)2 統測 AA = 5 : BB = 10 If AA < BB Then AA = BB ( C )5. 下列 Visual Basic 語言片段程式的執行結果為何? (A)A = 1, B = 1 (B)A = 1, B = 2 (C)A = 2, B = 1 (D)A = 2, B = 2 統測 A = 1 : B = 2 If A < B Then A = B If A >= B Then B = A - 1 MsgBox("A =" & A & ", " & "B =" & B) ( D )6. 下列生活實例的敘述中, 何者不適合使用判斷敘述來處理? (A) 販賣機依據消費 者投入的金額, 顯示符合該金額的多種飲料 (B) 新光三越推出紅利積點活動, 依 據消費者購物的金額, 給予相對的紅利點數 (C) 購買高鐵車票, 售票系統會依據 路程長度顯示票價 (D) 電腦系統隨機挑選 17,500 個名額, 決定哪些歌迷可參加 Lady Gaga 演唱會 ( B )7. 執行下列 Visual Basic 程式後,B 值為何? (A)1 (B)2 (C)3 (D)5 A = 1 : B = 2 If A > 1 Then B = B + 3 ( D )8. 下列程式執行的結果為何? (A)byebye (B)sorry (C)sorrybyebye (D)byebyesorry 技競 H = 10 y = 4 If H >= 10 And y < 6 Then TextBox1.Text = TextBox1.Text & "byebye" Q = y * 5 R = H * 2 TextBox1.Text = TextBox1.Text & "sorry" ( C )9. 執行下列 Visual Basic 程式後, 訊息交談窗會依序顯示下列何種結果? (A)1 2 3 (B)2 3 (C)1 2 0 (D)1 2 4 Y = -1 If Y > 1 Or Y <= -1 Then MsgBox("1") If Y >= -1 And Y <= 0 Then MsgBox("2") If Y > 0 And Y <= 1 Then MsgBox("3") MsgBox(Y + 1)
第 5 章 選擇結構 47 ( B )10. 執行下列 Visual Basic 程式片段, 若輸入數值 10, 則顯示的結果為 : (A)0 (B)8 (C)11 (D)18 a = InputBox("input data") b = a Mod 2 ^ 3 If a < b Then MsgBox(a + b) If a > b Then MsgBox(a - b) 二 多元練習題 1. 下面是 3 個使用 If Then 敘述的程式片段, 請依照指示, 在空白處填入正確的條件式 (1) 判斷是否成年 ( 假設 18 歲成年 ) y = InputBox(" 請輸入年齡 :") If y >= 18 Then MsgBox(" 成年 ") (2) 判斷視力檢測值是否合理 ( 視力檢測值應介於 0 ~ 2.0 之間 ) x = InputBox(" 請輸入視力檢測值 :") If x >= 0 And x <= 2.0 Then MsgBox(" 視力檢測值合理 ") (3) 判斷體重是否合理, 假設合理的體重應介於 2 ~ 200 公斤, 若輸入的體重介於此範圍, 則將公斤換算成磅數 ( 提示 :1 公斤 = 2.2 磅 ) wt = InputBox(" 請輸入體重 ( 單位 : 公斤 ):") If wt >= 2 And wt <= 200 Then pounds = wt * 2.2 MsgBox(wt & " 公斤 = " & pounds & " 磅 ") 2. 選按 檔案 / 開啟專案 選項, 開啟專案 "ex5-1a.sln", 利用 If Then 敘述設計一支計算藍光 BD 影片租借費用的程式 成果預覽 : 提示 : (1) 租借一片藍光 BD 影片的費用為 120 元 (2) 若租借片數大於 5, 則租借費用享 95 折優惠 解請參考教資光碟中的方案檔 "ans5-1a.sln"
48 程式語言與設計 -Visual Basic Ⅰ 教師手冊 5-2 If Then 判斷敘述 舉一反三配合課本第 158 頁 請撰寫一支程式, 顯示一個含有確定 取消回覆鈕的訊息交談窗, 並在按確定鈕後即結束程式?( 提示 : 回覆鈕的常數為 "MsgBoxStyle.OkCancel"; 利用 If Then 敘述判斷回傳值是否為 1) 解請參考教資光碟中的方案檔 "ch5-2c_1.sln" 馬上練習配合課本第 160 頁 ( C )1. IF THEN ELSE 的結構是屬於 (A) 重複結構 (B) 循序結構 (C) 選擇結構 (D) 迴圈結構 技競 ( B )2. 在繪製流程圖時,If Then 語法, 應用何種符號表示? (A) (B) (C) (D) 統測 ( C )3. 下列程式的執行結果為何? (A)4 (B)6 (C)A (D)B 統測 If (6 > 5 Or 4 > 5) Then MsgBox("A") MsgBox("B") ( C )4. 求執行下列 VB 程式後,a 的結果為何? (A)0 (B)1 (C)2 (D)4 統測 a = 0 : j = 2 If a > j Then a = a + 2 a = a + 1 a = a * j
第 5 章 選擇結構 49 ( B )5. 求執行下列 VB 程式後, 輸出的結果為何? (A)48 (B)8 (C)5 (D)a + b + c a = 5 If a < 5 Then a = a * a b = b + a c = c - 2 b = b * a c = c + a a = a - 2 MsgBox(a + b + c) 2 下課想 配合課本第 166 頁 若要增加上 下按鈕, 以控制車子 (Label1) 往上或往下移動, 上述程式應如何修改? ( 提示 : 新增 2 個 Timer 控制項來更改 Label1 控制項的上 下位置 ; 更改控制項位置的的程式敘述為 "Label1.Top± 數值 ") 成果預覽 : Label1 Button3 Button4 解請參考教資光碟中的方案檔 "ans5-2a_1.sln"
50 程式語言與設計 -Visual Basic Ⅰ 教師手冊 5-2 練習配合課本第 166 頁 基礎 一 選擇題 ( B )1. 執行下列程式片段後,min 值為何? (A)15 (B)12 (C)x (D)y x = 15 : y = 12 min = x If x > y Then min = y ( C )2. 執行下列 Visual Basic 程式片段後, 訊息交談窗顯示的結果為何? (A)5 (B)3 (C)a > b (D)a < b a = 5 : b = 3 If a > b Then MsgBox("a > b") MsgBox("a < b") ( B )3. 執行下列程式片段後,M 值為何? (A)12 (B)4 (C)1 (D)0 統測 X = 12 : Y = 4 If X < Y Then M = X M = Y ( C )4. 下列程式執行後,a 的值為何? (A)0 (B)1 (C)2 (D)4 技競 Dim a, j As Integer a = 0 : j = 2 If a > j Then a = a + 2 a = a + 1 a = a * j
第 5 章 選擇結構 51 進階 ( C )5. 下列這段 VB 程式碼, 可以由身高及性別計算標準體重, 計算後 Weight 值為何? (A)54 (B)56 (C)60 (D)63 統測 Dim Sex, Height, Weight Sex = "F" Height = 170 If Sex = "M" Then Weight = (Height - 80) * 0.7 Weight = (Height - 70) * 0.6 ( D )6. 使用 VB 程式語言執行下列程式碼後, 則訊息交談窗顯示的結果是多少? (A)0 (B)1 (C)4 (D)5 統測 X = 9 Y = 5 Z = 6 If (X Mod Y) > Z Then MsgBox(Y Mod X) MsgBox(Y Mod Z) ( B )7. 執行下列 Visual Basic 程式片段後,z 的值為何? (A)10 (B)8 (C)6 (D)4 x = 2 : y = 4 : z = 10 If y = 2 * x Then z -= x z -= y ( A )8. 假設判斷閏年的方法為 : 若該年可以被 400 整除即為閏年, 另若能被 4 整除且不可 被 100 整除亦為閏年, 其餘為平年 請問要判斷以下程式中的 y 值是否為閏年, 空白處應分別填入何值? (A)Or, And Not (B)Or, And (C)And, Or Not (D)And, Or 技競 Dim y As Integer y = 2000 If y Mod 400 = 0 y Mod 4 = 0 y Mod 100 = 0 Then MsgBox(y & " 年是閏年 ") MsgBox(y & " 年是平年 ")
52 程式語言與設計 -Visual Basic Ⅰ 教師手冊 ( C )9. 執行下列程式, 第 8 行的執行結果為何? (A)2 (B)3 (C)4 (D)5 技競 1 A = 20 2 B = 30 3 If A > B Then C = 1 C = 2 4 MsgBox(C) 5 If (A > B) And (B > C) Then D = 0 D = 3 6 MsgBox(C & D) 7 If (A < B) And (B > D) Or (C = 2) Then C = D + 1 C = D + 2 8 MsgBox(C) ( D )10. 執行下列 Visual Basic 程式片段後, 請問其執行結果為何? (A)0 (B)5 (C) 編譯錯誤 (D) 執行錯誤 技競 Dim i As Integer i = 0 MsgBox(IIf(i <> 0, 10 \ i, 5)) 二 多元練習題 1. 下面是兩個使用 If Then 敘述的程式片段, 請依照提示, 在空格處填入正確的 條件式 (1) 判斷吃素與否 ( 假設農曆初一或十五要吃素 ) d = InputBox(" 請輸入今天的農曆日期 ") If d = 1 Or d = 15 Then MsgBox(" 要吃素 ") MsgBox(" 葷素不拘 ") (2) 判斷視力檢測值是否介於 0.8( 不含 )~ 1.2 之間? 若是, 則顯示 " 視力正常 " 的訊 息 ; 否則, 就顯示 " 視力可能需要矯正 " 的訊息 x = InputBox(" 請輸入視力檢測值 ") If x > 0.8 And x <= 1.2 Then MsgBox(" 視力正常 ") MsgBox(" 視力可能需要矯正 ")
第 5 章 選擇結構 53 2. 建立 "ans5-2b.sln" 新專案, 請利用 If Then 判斷敘述, 撰寫一支可用來計算兩數之差的程式, 並顯示相差之值 成果預覽 : 提示 : 利用 If Then 敘述先判斷兩數何者較大, 再以大數減去小數 解請參考教資光碟中的方案檔 "ans5-2b.sln" 5-3 巢狀 If 判斷敘述 舉一反三配合課本第 171 頁 若要增加判斷是否為直角三角形的功能, 上述程式應如何修改? ( 提示 : 當 a 2 = b 2 + c 2 時為直角三角形 ) 解請參考教資光碟中的方案檔 "ch5-3b_1.sln" 若要增加判斷 TextBox1.Text( 斜邊 ) 的值是否為最長的邊之功能, 上述程式應如何修改?( 提示 : 利用 If Then 敘述, 判斷 TextBox1.Text 的值是否為最大值 ; 是的話才判斷三角形的種類 ) 解請參考教資光碟中的方案檔 "ch5-3b_2.sln" 2 下課想 配合課本第 179 頁 若要增加依據身高來計算標準體重的功能, 上述程式應如何修改?( 提示 : 標準體重的計算公式, 男生為 ( 身高 - 80) * 0.7 女生為( 身高 - 70) * 0.6) 解請參考教資光碟中的方案檔 "ans5-3a_1.sln" 成果預覽 : Label8
54 程式語言與設計 -Visual Basic Ⅰ 教師手冊 5-3 練習配合課本第 180 頁 一 選擇題 基礎 ( A )1. 執行下列 Visual Basic 程式片段後,C 值為何? (A)4 (B)3 (C)2 (D)1 A = 1 : B = 2 : C = 3 If B > 1 Then If A < 1 Then C = 2 C = 4 ( C )2. 執行下列 Visual Basic 程式片段後, 訊息交談窗依序顯示的結果為何? (A)3 (B)5 3 (C)7 3 (D)3 5 7 A = 7 : B = 5 : C = 3 If A > B Then If B > C Then MsgBox(A) MsgBox(B) MsgBox(C) ( A )3. 執行程式 ( 一 ) 後,C 值為何? (A)4 (B)8 (C)16 (D)64 A = 13 : B = 5 : C = 8 If A > B Then If A > C Then C = C / 2 C = C * 2 If 條件式 1 Then If 條件式 2 Then 程式區塊 A If 條件式 3 Then 程式敘述 程式 ( 一 ) 程式 ( 二 ) ( C )4. 程式 ( 二 ) 是一個巢狀 If 判斷敘述, 請問其層級共有幾層? (A)1 (B)2 (C)3 (D)4
第 5 章 選擇結構 55 進階 ( B )5. 下列程式執行後 m 值為何? (A)20 (B)30 (C)10 (D)23 技競 d = 16 : m = 20 If d < 5 Then m = m + 7 If d < 10 Then m = m + 3 m = m + 10 ( D )6. 下列 Visual Basic 語言片段程式執行後, 何者正確? (A)a = 6 (B)a = 7 (C)b = 11 (D)b = 12 統測 a = 5 b = 10 If (a Mod 2 = 0) Then a = a + 1 If (b Mod 2 = 0) Then b = b + 2 a = a + 2 b = b + 1 ( B )7. 下列是一個利用巢狀 If 判斷敘述來檢查大月 (1 3 5 7 8 10 12 月 ) 之日期 是否合理的程式片段, 請問空格處應填入哪一個條件式, 才能判斷日期是否合理 ( 假設變數 d 儲存日期資料 )? (A)d = 1 ~ 31 (B)d >=1 And d <= 31 (C)d <=31 (D)d >= 1 If m = 1 Or m = 3 Or m = 5 Or m = 7 Or m = 8 Or m = 10 Or m = 12 Then If Then MsgBox(" 日期合理 ") MsgBox(" 日期不合理 ")
56 程式語言與設計 -Visual Basic Ⅰ 教師手冊 ( B )8. 執行下列 Visual Basic 程式片段後, 若變數 m 的值為 300, 則 fee 值為何? (A)780 (B)657 (C)630 (D)220 If m > 330 Then fee = (m - 330) * 2.6 + 220 * 2.3 + 110 * 2 If m > 110 Then fee = (m - 110) * 2.3 + 110 * 2 fee = 110 * 2 ( C )9. 執行程式 ( 三 ) 後,Fare 值為何? (A)800 (B)1100 (C)1200 (D)400 D = 400 If D <= 100 Then Fare = D * 2 If D <= 300 Then Fare = 200 + (D - 100) * 3 Fare = 400 + (D - 200) * 4 X = 1 : Y = 150 : Z = 56.25 B = Z / (Y / 100) ^ 2 If (X Mod 2 <> 0) Then If B < 26 Then MsgBox("ma") MsgBox("mb") If B < 24 Then MsgBox("fa") MsgBox("fb") 程式 ( 三 ) 程式 ( 四 ) ( A )10. 程式 ( 四 ) 執行後的結果為何? (A)ma (B)mb (C)fa (D)fb 統測
第 5 章 選擇結構 57 二 實作題 1. 建立 "ans5-3b.sln" 新專案, 利用巢狀 If 判斷敘述, 撰寫一支可依據輸入之風速來判斷及顯示颱風強度的程式 成果預覽 : 提示 :( 依據氣象局規定 ) (1) 風速每小時在 62 ~ 117 公里 : 輕度颱風 (2) 風速每小時在 118 ~ 183 公里 : 中度颱風 (3) 風速每小時在 184 ~ 220 公里 : 強烈颱風解請參考教資光碟中的方案檔 "ans5-3b.sln" 2. 下列 Visual Basic 程式片段是利用巢狀 If 判斷敘述, 依據使用者輸入的年齡, 來判斷所屬之年齡層代稱 建立 "ans5-3c.sln" 新專案, 將程式中的巢狀判斷敘述改以 If If 來撰寫 If age < 13 Then MsgBox(" 兒童 ") If age < 20 Then MsgBox(" 青少年 ") MsgBox(" 成年人 ") 解請參考教資光碟中的方案檔 "ans5-3c.sln"
58 程式語言與設計 -Visual Basic Ⅰ 教師手冊 5-4 Select Case 判斷敘述 舉一反三配合課本第 187 頁 若要增加當所有條件式皆不成立時 ( 如輸入的數量 <= 0), 程式能夠顯示警示訊息的功能, 上述程式應如何修改?( 提示 : 利用 Case, 設定顯示 " 輸入錯誤 " 的訊息 ) 解請參考教資光碟中的方案檔 "ch5-4f_1.sln" 馬上練習配合課本第 189 頁 ( D )1. 在 Visual Basic 程式語言中, 下列何種指令最適合用於多重選擇結構中? (A)Do Loop (B)For Next (C)If Then (D)Select Case 統測 ( A )2. 下列 Visual Basic 程式執行後, 訊息交談窗共顯示幾個 $? (A)1 (B)2 (C)3 (D)6 統測 X = 3 \ 2 Select Case X Case 1 : MsgBox("$") Case 2 : MsgBox("$$") Case : MsgBox("$$$") 2 下課想 配合課本第 194 頁 若要增加先判斷使用者輸入的數量是否合理的功能, 上述程式應如何修改?( 提示 : 利用 If Then 敘述, 判斷當輸入的數量 <= 0 時, 要求使用者重新輸入 ) 成果預覽 : 解請參考教資光碟中的方案檔 "ans5-4a_1.sln"
第 5 章 選擇結構 59 5-4 練習配合課本第 194 頁 基礎 一 選擇題 ( A )1. 下列 Visual Basic 程式片段執行後,s 之值為何? Dim i As Integer = 20, s As String Select Case i Case Is > 10 s = "a" Case 10 To 30 s = "b" Case 15, 20 s = "c" Case 20 s = "d" (A)"a" (B)"b" (C)"c" (D)"d" 統測 ( B )2. 下面是利用 Visual Basic 撰寫一支可判斷機車等級的程式片段 ; 判斷規則 :50c.c 以下為輕型機車 90 ~ 250c.c 為普通重型機車 超過 250c.c 為大型重型機車 請問底線處應填入的條件式為何? (A)90 ~ 250 (B)90 To 250 (C)90, 250 (D)Is >= 90 Dim cc As Integer cc = InputBox(" 請輸入機車的 c.c 數 ") Select Case cc Case Is <= 50 : MsgBox(" 輕型機車 ") Case : MsgBox(" 普通重型機車 ") Case Is > 250 : MsgBox(" 大型重型機車 ") Case : MsgBox(" 輸入有誤 ") ( C )3. 執行下面的 Visual Basic 程式碼後,a 值為何? (A)error (B)large (C)medium (D)small 統測 X = 5 \ 2 Select Case X Case 1 a = "small" Case 2 a = "medium" Case a = "large"
60 程式語言與設計 -Visual Basic Ⅰ 教師手冊 進階 ( D )4. 執行下列 Visual Basic 程式片段的結果為何? (A)5 (B)25 (C)125 (D)130 a = 5 Select Case a Case 1 : b = a ^ 1 Case 3 : b = a ^ 2 Case 5 : b = a ^ 3 MsgBox(a + b) ( B )5. 執行下列 Visual Basic 程式後,y 值為何? (A)5 (B)9 (C)10 (D)12 x = 4 : y = 1 Select Case x Case 1 To 3 : y = x + 3 * y Case 4 To 6 : y = x + 5 * y Case 7 To 9 : y = x + 7 * y ( C )6. 執行下列 VB 程式片段後, 若輸入數值 3, 則 y 值為何? (A)3 (B)-3 (C)9 (D)27 x = InputBox(" 請輸入任一整數 ") Select Case x Case 1, 3 y = x * x Case Is >= 10, Is <= 0 y = x Case 3 y = -x ( D )7. 執行下列 Visual Basic 程式片段的結果為何? (A)5 (B)7 (C)10 (D)14 a = 5 : b = 7 : c = 3 If a > b Then c = 0 If a < b Then c = 1 Select Case c Case 0 : d = a * 2 Case 1 : d = b * 2 MsgBox(d)
第 5 章 選擇結構 61 ( A )8. 若 a = 1, 則執行下列 Visual Basic 程式片段後,r 的值為何? (A)uk (B)jp (C)au (D)ca a = InputBox(" 請輸入國家 :(1) 英國 (2) 日本 (3) 澳洲 (4) 加拿大 ") r = Choose(a, "uk", "jp", "au", "ca") ( D )9. 以下是一個體重評估的 Visual Basic 程式片段, 假設小明和小華的身高和體重相同, 都是 height = 160,weight = 54, 但是小明的性別 sex = "M", 而小華的 sex = "F", 若由以下程式進行評估, 執行之後 evaluation 的結果分別為何? Dim standard, height, weight As Integer Dim sex, evaluation As String If sex = "M" Then standard = (height - 80) * 0.7 standard = (height - 70) * 0.6 Select Case weight - standard Case Is > 0 evaluation = " 太胖 " Case Is < 0 evaluation = " 太瘦 " Case evaluation = " 適中 " (A) 小明和小華 evaluation 的結果都是 " 太瘦 " (B) 小明和小華 evaluation 的結果都是 " 太胖 " (C) 小明 evaluation 的結果為 " 適中 ", 而小華 evaluation 的結果為 " 太胖 " (D) 小明 evaluation 的結果為 " 太瘦 ", 而小華 evaluation 的結果為 " 適中 " 統測 ( D )10. 執行下列程式, 若輸入 12.8, 則訊息交談窗顯示的結果為何? (A)12 (B)13 (C)14 (D)15 技競 A& = InputBox(" 請輸入一個數 ") LL: Select Case (A& Mod 3) Case 1 A& = A& - 1 GoTo LL Case 2 A& = A& - 2 GoTo LL Case A& = A& + 3 MsgBox(A&)
62 程式語言與設計 -Visual Basic Ⅰ 教師手冊 二 多元練習題 1. 小傑利用 Select Case 敘述, 撰寫了一支可依據氣溫來提醒使用者出門應穿著何種衣物的程式 ( 如下所示 ), 但是程式卻無法正常執行, 請你幫幫他, 找出程式中錯誤之處, 以便進行除錯 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim tmp As Single tmp = InputBox(" 請輸入今天的氣溫 ") Select tmp Case < 15 : MsgBox(" 厚外套 ") Case 15 ~ 25 : MsgBox(" 薄外套 ") To Case > 25 : MsgBox(" 短袖 T 恤 ") End Sub 2. 建立 "ans5-4b.sln" 新專案, 利用 Select Case 敘述, 撰寫一支可依據使用者的智力測驗成績, 來判斷及顯示智力等級的程式 成果預覽 : 提示 : 智力判斷方式如下表所示 智力測驗成績 智力等級 80 ~ 110 正常智力 111 ~ 120 高智力 121 ~ 140 極高智力 141 分以上 天才 解請參考教資光碟中的方案檔 "ans5-4b.sln"
第 5 章 選擇結構 63 基礎 綜合評量配合課本第 199 頁 一 選擇題 ( A )1. 執行 Visual Basic 敘述 If 4 < 5 Then MsgBox("A") 後, 結果為何? (A) 顯示 A (B) 顯示 B (C) 顯示 4 (D) 顯示錯誤訊息 ( C )2. 當 RadioButton( 選項按鈕 ) 呈現點選狀態時, 其 Checked 屬性值為何? (A)0 (B)1 (C)True (D)False ( C )3. 在 Visual Basic 程式 Select Case 的結構中, 若 Case 條件要判斷多個資料時, 以下 哪種表示法有誤? (A)Case 1, 2, 3 To 5 (B)Case Is < 10, 11 To 15 (C)Case Is < 10 Or > 20 (D)Case 2, 4, 6, 8, 10 技競 ( C )4. 在 Visual Basic 工具箱中, 哪一種控制項可用來將不同作用的控制項明顯地加以區 隔分類, 以使表單變得整齊而有系統? (A)Button( 按鈕 ) (B)Timer( 計時器 ) (C)GroupBox( 群組方塊 ) (D)RadioButton( 選項按鈕 ) ( D )5. 下列哪一個不是使用群組方塊的優點? (A) 可使視窗變得較易閱讀 (B) 可一次 調整群組方塊內的所有控制項位置 (C) 可區隔不同作用的控制項 (D) 可佈建超 過表單範圍的控制項 ( A )6. 執行下列 Visual Basic 程式片段後,Min 的值為何? (A)7 (B)12 (C)5 (D)19 A = 7 : B = 12 If A > B Then Min = B Min = A ( A )7. 執行下列程式片段後,Z 值為何? (A)12 (B)20 (C)24 (D)32 X = 12 : Y = 20 If 2 * X > Y Then Z = X Z = Y
64 程式語言與設計 -Visual Basic Ⅰ 教師手冊 ( D )8. 執行下列 Visual Basic 程式片段後, GR 值為何? (A)3 (B)4 (C)5 (D)9 GR = 3 Select Case GR Case 1 : GR += 1 Case 2 : GR += 2 Case : GR += 6 進階 ( C )9. 執行下列 Visual Basic 程式片段, 請問最後 b 的值為何? (A)60 (B)45 (C)10 (D)50 技競 Dim a, b As Integer a = 60 b = 45 If a < 100 Then If a < 120 Then b = 10 b = 50 ( D )10. 執行下列 Visual Basic 程式片段後,s 值為何? (A)100 (B)50 (C)25 (D)2 a = 10 Select Case a Case Is < 10 : s = a ^ 2 Case Is > 10 : s = a * 5 Case : s = a \ 4 ( C )11. 執行下列 Visual Basic 程式片段後, 訊息交談窗顯示的結果為何? (A) 打九折 (B) 打八折 (C) 打七折 (D) 無折扣 amount = 100 If amount >= 10 And amount <= 40 Then MsgBox(" 打九折 ") If amount >= 41 And amount <= 70 Then MsgBox(" 打八折 ") If amount >= 71 Then MsgBox(" 打七折 ") MsgBox(" 無折扣 ")
第 5 章 選擇結構 65 ( B )12. 執行下列 Visual Basic 語言片段程式,Y 值結果為何? (A)1 (B)2 (C)3 (D)110 統測 X = 110 If X < 100 Then Y = 1 Y = 2 If X > 120 Then Y = 3 ( C )13. 執行下列 VB 程式後, 訊息交談窗依序顯示的結果為何? (A)4 (B)3 4 (C)5 4 (D)3 5 4 統測 Dim a, b, c a = 3 : b = 5 : c = 4 If a > b Then If b > c Then MsgBox(a) MsgBox(b) MsgBox(c) ( D )14. 執行程式 ( 一 ) 後,a 值為何? (A)1 (B)2 (C)3 (D)7 Dim a = 2 If 3 + a * 2 < 10 Then a = 1 Select Case a Case 1 a = 6 + a Mod 4 Case 2 a = a * 3 / 2 N=InputBox(" 請輸入數字 ") If N < 100 Then If N < 90 Then MsgBox("B") MsgBox("C") MsgBox("A") 程式 ( 一 ) 程式 ( 二 ) ( A )15. 請問程式 ( 二 ), 如果輸入為 85, 則訊息交談窗依序顯示的結果為何? (A)B A (B)C A (C)B (D)C 統測
66 程式語言與設計 -Visual Basic Ⅰ 教師手冊 二 實作題 1. 下列 Visual Basic 程式片段是利用 If Then 敘述, 判斷使用者輸入的體溫是否正常, 若體溫小於等於 35 度, 則顯示 " 失溫 "; 若體溫大於 37.5 度, 則顯示 " 發燒 "; 若在正常範圍中, 則顯示 " 正常 " 建立 "ans5-a.sln" 新專案, 將程式中的判斷敘述改以 Select Case 敘述來撰寫 Dim t As Single t = InputBox(" 請輸入體溫 ") If t <= 35 Then MsgBox(" 失溫 ") If t > 37.5 Then MsgBox(" 發燒 ") MsgBox(" 正常 ") 解請參考教資光碟中的方案檔 "ans5-a.sln" 2. 選按 檔案 / 開啟專案 選項, 開啟專案 "ex5-b.sln", 撰寫當使用者按下評定鈕後, 會先判斷輸入的成績是否合理 ( 介於 0 ~ 100 之間 ), 若合理, 則顯示對應的成績等級, 並給予評語 成果預覽 : TextBox1 Label4 Label6 提示 :(1) 成績等級的判斷, 可參考本章第 4 節之例 1 (2) 成績等級與評語的判斷方式如下表所示 分數區間 等級 評語 100 ~ 90 優 表現很好, 給你按讚! 89 ~ 80 甲 很不錯, 給你拍拍手! 79 ~ 70 乙 還有很大的進步空間喔! 69 ~ 60 丙 別氣餒, 要好好加油! 低於 60 丁 不用心不行了! 愛拼才會贏! 解請參考教資光碟中的方案檔 "ans5-b.sln"