國立新化高級工業職業學校 102 學年度第 1 學期第 2 次期中考試卷 選擇題 100 分 1. ( ) 執行下列 Visual Basic 語言片段程式的結果為何? S = 0 For K = 1 To 2 For J = 2 To 3 S = S + K * J Next K Print S (95 工管管理 ) (A)10 (B)13 (C)15 (D)20 2. ( ) 執行下列 Visual Basic 語言片段程式的結果為何? S = 0 X = 1 For K = 1 To 4 S = S + X X = X * 2 Next K Print S (96 工管管理 ) (A)4 (B)7 (C)15 (D)30 3. ( ) 執行下列 Visual Basic 語言片段程式的結果為何? X = 110 If X < 100 Then Y = 1 Y = 2 If X > 120 Then Y = 3 Print Y (97 工管管理 ) (A)1 (B)2 (C)3 (D)110 科目 : 程式語言 4. ( ) 下列 Visual Basic 宣告敘述, 何者不正確? (101 工管管理 ) 第 1 頁 共 6 頁 命題教師 : 許哲彰 班級 : 綜二乙 ( 資應 23 人 ) 姓名 : 姓名 : (A)Dim Print As Integer (B)Dim T As String (C)Dim A(19) As Integer (D)Dim Beauty As Boolean 5. ( ) 下列程式的執行結果為何? If (6 > 5 Or 4 > 5) Then Print "A" Print "B" (95 電子計概 ) (A)4 (B)6 (C)A (D)B 6. ( ) 以下是一個體重評估的 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 = " 適中 " End Select (100 商業類 ) (A) 小明和小華 evaluation 的結果都是 " 太瘦 " (B) 小明和小華 evaluation 的結果都是 " 太胖 " (C) 小明 evaluation 的結果為 " 適中 ", 而小華 evaluation 的結果為 " 太胖 " (D) 小明 evaluation 的結果為 " 太瘦 ", 而小華 evaluation 的結果為 " 適中 " 7. ( ) 在 Visual Basic 6 中, 下列哪一種資料型態所佔用的記憶體空間最多? (100 工管管理 ) (A) 整數 (Integer) (B) 長整數 (Long Integer) (C) 單精準度浮點數 (Single-precision Floating-point) (D) 倍精準度浮點數 (Double-precision Floating-point) 8. ( ) 在 Visual Basic 中, 關於運算的優先順序, 下列何者正確? (95 商業類 ) (A) 算術運算 > 關係運算 > 邏輯運算 (B) 關係運算 > 邏輯運算 > 算術運算 (C) 邏輯運算 > 算術運算 > 關係運算 (D) 關係運算 > 算術運算 > 邏輯運算 9. ( ) 執行下列 Visual Basic 程式片段後, 變數 S 的值為何? S = 1 R = 1 For I = 1 To 10 S = S + I * R R = R * ( 1) Next I (102 工管管理 ) (A) 5 (B) 4 (C)8 (D)55 10. ( ) 凱文老師利用 Visual Basic 撰寫一支用來統計段考成績的程式, 請問用來儲存考試科目名稱的變數, 最適合宣告成下列哪一種資料型別? (A)Integer (B)Date (C)Single (D)String 11. ( ) CheckBox( 核取方塊 ) 控制項可用來 (A) 提供使用者輸入文字資料 (B) 提供使用者勾選多個選項 (C) 提供使用者從多個選項中點選其中一個選項 (D) 顯示清單資料 12. ( ) 以下敘述何者正確? (A)X! 代表雙倍精確度浮點數型態, 佔 8 個位元組 (B)C% 代表整數型態, 佔 8 個位元組 (C) 若未明確宣告變數型態, 則該變數僅能存放整數型態的資料 (D)Boolean 資料型態僅表示 true 及 false 二種值, 佔 2 個位元組 13. ( ) Visual Basic 的方案檔, 其副檔名為何? (A).vbproj (B).bat (C).vb (D).sln 14. ( ) 下列是一個巢狀 If 判斷敘述, 請問其層級共有幾層? If 條件式 1 Then If 條件式 2 Then 程式敘述區塊 2 If 條件式 3 Then 程式敘述 (A)1 (B)2 (C)3 (D)4 15. ( ) 下列 Visual Basic 語言片段程式執行後, 下列哪一項是正確的? Dim a, b As Integer a = 1 : b = 2 If (a > 1) Then a = a + 1 第 2 頁 共 6 頁
b = b + 2 If (b > 2) Then b = b + 1 a = a + 2 (A)a = 3 (B)b = 3 (C)a = 5 (D)b = 5 16. ( ) 執行下列程式後, 訊息交談窗顯示的結果為何? Select Case 5 Mod 2 Case 1 MsgBox("s") Case 2 MsgBox("m") Case MsgBox("l") End Select (A)error (B)l (C)m (D)s 17. ( ) 執行下列 Visual Basic 程式片段後, 會產生哪一種錯誤? For i = 1 To 2 For j = 1 To 5 For k = j To 6 s = ans + k * i Next i, j, k (A) 沒有定義變數的初始值 (B) 運算公式錯誤 (C)For 迴圈不能共用一個 Next 敘述 (D)Next 敘述後的變數, 排列順序須由內層至外層 18. ( ) 執行下列程式片段後,k 值為何? k = 10 For I = 1 To 3 For J = I + 1 To 4 k = 1 k = k + 1 Next I (A)1 (B)3 (C)6 (D)7 19. ( ) 執行下列程式片段後,s 值為何? For i = 1 To 4 t = i + 10 * t s = s + t Next (A)1370 (B)136 (C)120 (D)13715 20. ( ) 在下列程式片段中,If 敘述的條件式更換成下列哪一個選項, 其執行結果不變? Dim t, s, i For i = 1 To 100 If i / 7 = i \ 7 Then s = s + 1 Next (A)i * 7 (B)i Mod 7 = 0 (C)i \ 7 = i Mod 7 (D)7 ^ i > 100 21. ( ) 請由下列程式敘述判斷, 該程式是用來計算下列何者? N = InputBox(" 輸入正整數 ") Sum = 1 For I = 1 To N Step 2 第 3 頁 共 6 頁
If I Mod 2 = 1 Then Sum = Sum * I Next I (A)1~N 之間的偶數和 (B)N 階層 (C)1~N 之間奇數的乘積 (D)1~N 之間奇數的個數 22. ( ) 執行下列程式後,j 值為何? Dim i, j As Double Dim n As Integer n = 8 j = 1 For i = 2 To n j = j * ((i * 2) / (n i + 2)) Next i (A)64 (B)128 (C)256 (D)512 23. ( ) 執行下列程式後,ans 的值為何? For i = 50 To 1 Step 3 ans = ans + i Next (A)442 (B)444 (C)450 (D)1275 24. ( ) 在 Visual Basic 2010 內部編輯完的程式, 存檔時至少會產生哪三種類型的檔案? (A).bas.txt.frm (B).com.exe.bat (C).doc.xls.ppt (D).sln.vbproj.vb 25. ( ) 下列 Visual Basic 程式片段執行後, 何者的值為 5? (A)Print(5 9 + 3) (B)Print(6 * 2 7) (C)Print(1 + 2 + 7) (D)Print(3 + 5 2) 26. ( ) 某一程式使用 1 個按鈕控制項, 來清除使用者在文字方塊中所輸入的資料 ; 若希望表單載入時, 使用者暫時無法使用該按鈕控制項, 請問應將按鈕的哪一個屬性值設為 False? (A)Font (B)Text (C)Name (D)Enabled 27. ( ) 從物件導向的觀點來看, 文字的字型 大小 顏色是文字的 (A) 事件 (B) 類別 (C) 屬性 (D) 物件 28. ( ) 在 VB 中, 如果 A$ = " 徐志摩 ", 請問 A$ 佔用多少記憶體空間? (A)2Bytes (B)3Bytes (C)6Bytes (D)12Bytes 29. ( ) 下列哪一個 Visual Basic 的保留字可用來宣告常數? (A)Dim (B)Const (C)For (D)Print 30. ( ) 下列 Visual Basic 程式片段執行後,X 之值為何? Dim X As Boolean X = NOT FALSE AND TRUE OR FALSE OR TRUE (A)FALSE (B)NOT (C)OR (D)TRUE 31. ( ) 使用 MsgBox 敘述時, 若要同時設定訊息圖示及回覆鈕, 則須使用哪一個符號來連接? (A)+ (B)& (C)* (D) 32. ( ) 在 VB 中, 一個專案可以包含幾個表單? (A)0 個 (B)1 個 (C)1 個以上 (D) 最多 3 個 33. ( ) 在程式敘述的組成要素中, 下列何者是程式中具有特別意義的字元組合, 例如 :Dim Const 等? (A) 運算子 (B) 變數 (C) 保留字 (D) 註解 34. ( ) 利用 Visual Basic 設計程式時, 若希望在表單顯示時, 可以輸出目前系統的時間及日期, 則應在下列哪一個事件中撰寫對應的程式碼? (A)Form1_Load (B)Form1_Activated (C)Form1_Click (D)Form1_DoubleClick 35. ( ) Visual Basic 中變數命名的規則及限制, 下列何者不正確? (A) 須以英文字母為起頭 (A ~ Z 或 a ~ z) (B) 變數名稱的字數沒有限制 (C) 不可使用保留字 (D) 英文字母大小寫並無 區別 第 4 頁 共 6 頁
36. ( ) 下列 Visual Basic 程式敘述, 何者可獲得 2 的 3 次方之運算結果? (A)2 * 3 (B)2 + 3 (C)2 ^ 3 (D)2 \ 3 37. ( ) 在 Visual Basic 語言中執行 Y = 2 2 + 8/5 後, 則 Y 值為何? (A)0.8 (B) 2.4 (C) 2 (D)1.6 38. ( ) 執行下列程式片段後,A 預設的初始值為何? Dim A As Integer (A)0 (B)1 (C)A (D) 空字串 39. ( ) 執行 Visual Basic 敘述 S = Not (3 ^ 2 = 6) Or (6 <> 3 * 2) 後, 其 S 值為何? (A) 1 (B)False (C)2 (D)True 40. ( ) 小龍班上將舉辦人氣王的選拔, 他是這次活動的負責人, 為了方便投票及票數的統計, 他利用 VB 語言撰寫了一個投票程式, 以輔助活動的進行 如果要宣告一個姓名變數, 使用以下何種資料型別最合適? (A)String (B)Single (C)Boolean (D)Double 41. ( ) 執行下列程式後, 結果何者正確? A = 3 : B = 4 If A + 3 < 5 Or B 2 < 1 Then A = A + 2 B = B 1 A = A 2 B = B + 1 (A)A = 3 (B)A = 5 (C)B = 3 (D)B = 5 42. ( ) 執行下列程式後, 即時運算視窗顯示的結果為何? Dim a, b, c As Integer a = 3 : b = 5 : c = 4 If a > b Then If b > c Then Debug.Print(a) Debug.Print(b) Debug.Print(c) (A)4 (B)3 4 (C)5 4 (D)3 5 4 43. ( ) 執行下列程式後, 變數 C 的值為何? A = 1 : B = 2 : C = 3 If B > 1 Then If A < 1 Then C = 2 C = 4 (A)1 (B)2 (C)3 (D)4 44. ( ) 下列 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" 第 5 頁 共 6 頁
Case 15, 20 s = "c" Case 20 s = "d" End Select (A)a (B)b (C)c (D)d 45. ( ) 執行下列程式片段後, 訊息交談窗顯示的結果為何? age = 6 Select Case age Case Is <= 6 MsgBox(" 幼稚園 ") Case Is > 6 MsgBox(" 國小 ") Case 6 MsgBox(" 可升級考 ") Case MsgBox(" 輸入值重複 ") End Select (A) 幼稚園 (B) 國小 (C) 可升級考 (D) 輸入值重複 46. ( ) 下列程式是用來計算輸入數值的絕對值, 請問空格處應該填入的程式碼為何? a = InputBox(" 輸入數值 :") If Then a = a MsgBox(a) (A)a > 0 (B)a = 0 (C)a < 0 (D)a <> 0 47. ( ) 執行下列程式後,Y 值為何? X = 110 If X < 100 Then Y = 1 Y = 2 If X > 120 Then Y = 3 (A)1 (B)2 (C)3 (D)110 48. ( ) 關於 For Next 敘述, 下列何者正確 ( 教育視導 ) (A)For 的遞增值若為 1 或 1, 則 Step 可省略不寫 (B)Next 後面的控制變數可省略不寫 (C)For 的終值不得小於初值 (D)For 的初值若為 1, 則可省略不寫 49. ( ) 若想以程式計算 1 + 2 + 3 + + 99 + 100 的總和, 則下列程式敘述空格處應加入哪一行敘述? S = 0 For J = 1 To 100 (A)S = 1 + 2 + + J (B)S + J = S (C)S = S + J (D)S = J 50. ( ) 執行下列程式後, 即時運算視窗會顯示下列何者? For I = 1 To 2 For J = 1 To I Debug.Print("$") Next I (A)$$ (B)$$$ (C)$$$$ (D)$$$$$ 第 6 頁 共 6 頁