國立北斗家商 107 學年度第 2 學期第二次期中考科目 : 計算機應用 計算機概論 IV 班級 : 商二 1 2 貿二 資二 綜二 1 作答方式 : 答案卡 選擇題共 33 題, 除第 1 題 4 分, 其餘每題 3 分, 注意作答時間 1. ( ) 使用 Visual Basic 程式語言 ( 以下皆是 ) 執行下列程式碼後,T 值為何? (A)495 (B)550 (C)594 (D)5050 T = 0 For I = 1 To 100 If I Mod 9 = 0 Then T = T + I 2. ( ) 執行下列程式片段後, 變數 S 的值為何? (A)1 (B)2 (C)4 (D)6 Dim S% = 13 For I = 1 To 3 S = S / 2 3. ( ) 執行下列程式片段後變數 S 的結果為何? (A)10 (B)13 (C)15 (D)20 Dim S%, J%, K% For K = 1 To 2 For J = 2 To 3 S = S + K * J Next J Next K 4. ( ) 下列程式執行後,X 值為何? (A)0 (B)2 (C)11 (D)20 Dim X, Y, Z as Integer For Y = 1 To 10 Step 2 For Z = 10 To 1 Step -3 If Y = Z Then X = X + 1 Next Z Next Y 5. ( ) 執行下列程式後, 共會輸出幾個 "@" 符號? (A)4 (B)5 (C)6 (D)7 X = 100 While X > 1 X = X \ 2 Debug.Print("@") 6. ( ) 請由下列程式敘述判斷, 該程式是用來計算下列何者? (A)N * 10 (B)N! (C)10 + N (D)10! i = 1 : N = 1 While i <= 10 N = N * i 7. ( ) 執行下列程式片段,Sum 值為何? (A)3 (B)4 (C)5 (D)7 Dim Sum, i, j As Integer i = 1 While i < 3 For j = 1 To i + 1 Sum = Sum + 1 Next j
8. ( ) 執行下列程式片段, 變數 Sum 的值為何? (A)8 (B)12 (C)16 (D)32 Dim A = 1 While A < 10 Sum = Sum + A A = Sum 9. ( ) 執行下列語言片段程式後,N 值為何? (A)15 (B)27 (C)82 (D)88 Dim N, I as Integer While I < 50 If I Mod 14 = 1 Then N = N + I I = I + 3 10. ( ) 執行下列程式後,ANS 的值為何? (A)33 (B)36 (C)39 (D)42 Dim ANS, I, J As Integer I = 1 While I < 9 For J = 1 To I ANS = ANS + J Next J I = I + 3 11. ( ) 請由下列程式敘述判斷, 該程式是用來計算下列何者? (A)1~N 之間的奇數和 (B)1~N 之間的偶數和 (C)1~N 之間奇數的乘積 (D)1~N 之間偶數的個數 i = 1 : ans = 0 N = InputBox(" 請輸入正整數 ") Do While i <= N If i Mod 2 = 0 Then ans = ans + i 12. ( ) 執行下列程式片段後, 則 Ans 值為何? (A)1 (B)2 (C)3 (D)4 Dim N, M, Ans, i As Integer Ans = 1 : i = 2 : N = 6 : M = 9 Do While i < N If (N Mod i = 0) And (M Mod i = 0) Then Ans = i 13. ( ) 請問哪一組 (x, y, z) 數值可讓下列 Visual Basic 程式顯示 3 次 "$"? (A)(3, 5, 1) (B)(-1, 3, -1) (C)(-1, 3, 2) (D)(1, -4, -2) V = x Do MsgBox("$") V = V + z Until V < y 14. ( ) EuroPark 遊樂園推出車牌中含有數字 2 或 3, 即可獲得免費入園券的方案 請問若要以 Visual Basic 程式來判斷輸入 的車牌號碼是否符合該方案, 最不可能需要使用下列哪一個程式敘述或函數? (A)Mid( ) (B)For Next (C)If Then (D)Int( ) 15. ( ) 下列有關內建函數的執行結果, 何者正確? (A)Val(" 我們與惡的距離 電視首播約 300 萬人觀賞 ") = 300 (B)Len(Mid("Lady Gaga", 5)) = 5 (C)Fix(-9.5) + CInt(2.7) = -7 (D)Len(#5/11/2019#) = 11
16. ( ) 若 m = 20 n = 18, 則執行下列程式後,m 值為何? (A)8 (B)4 (C)2 (D)1 Do While m <> n Do While m > n m = m - n Do While m < n n = n - m 17. ( ) 執行下列程式片段後,K 值為何? (A)5 (B)6 (C)7 (D)8 Dim I, J, K as Integer Do While (J < 4) For I = 1 To J K = K + 1 J = J + 1 18. ( ) 執行下列程式片段後, 變數 MyVal 的值為何? (A)4 (B)8 (C)11 (D)12 Dim MyVal As Integer Do MyVal = MyVal + 2 Do MyVal = MyVal + 1 If MyVal > 4 Then Exit Do If MyVal > 8 Then Exit Do 19. ( ) 執行下列程式, 最後 T 值是多少? (A)40 (B)30 (C)20 (D)10 Function FNP(ByRef X) FNP = X * X + X End Function Private Sub Form1_Activated( ) Dim K, T As Integer For K = 1 To 4 Next T = T + FNP(K) MsgBox(T) 20. ( ) 執行下列程式片段, 輸出結果為何? (A)2 (B)4 (C)8 (D)16 Sub Main() MsgBox(X(3)) Function X(ByVal n) As Integer If n = 1 Then Return 1 If (n Mod 2 = 1) Then End Function Return X(n * 3 + 1) + 1 Return X(n / 2) + 1
21. ( ) 下列程式片段執行後,Z 的結果為何? (A)13.22 (B)3.22 (C)13 (D)13.2 X$ = "13.2" : Y$ = "22.22" : L = 4 Z = Val(Strings.Left(X$ + Y$, L)) 22. ( ) 執行完下列程式後, 印出結果為何? (A)P(5, 6, 2) (B)11 (C)121 (D)562 Private Sub Form_Activate( ) Dim X, Y, Z As Integer X = 5 : Y = 6 : Z = 2 MsgBox P(X, Y, Z) Function P(A, B, C) P = (A + B) ^ C End Function 23. ( ) 下列程式之執行結果為何? (A)1 (B)2 (C)3 (D)4 Sub mess(byref A, ByRef B) A = A + 1 B = B + 1 Private Sub Form1_Activated( ) Dim X, Y As Integer X = 2 : Y = 3 mess(x, Y) Debug.Print(X) 24. ( ) 執行下列程式後, 其執行結果為何? (A)-40 (B)40 (C)-200 (D)200 Sub Sum(ByVal X, ByVal Y) Dim TOTAL As Integer TOTAL = X ^ 2 * (-Y) MsgBox(TOTAL) Private Sub Form1_Activated( ) Call Sum(2, 10) 25. ( ) 下列程式執行後,Sum k 的值為何? (A)24 2 (B)48 4 (C)66 3 (D)44 2 Dim a(4, 3), I%, J%, Sum%, k% 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 3 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 Next J 26. ( ) 執行下列程式, 最後 A 值是多少? (A)14 (B)89 (C)98 (D)101 Dim Y%(10), I%, J%, A% J = 1 While J <= 10 Y(J) = J * J + 1 J = J + 1 A = Y(1) + Y(4) + Y(9)
27. ( ) 執行下列程式, 輸出結果為何? (A)12 (B)16 (C)20 (D)32 Dim i, j As Integer Dim S = {{1, 2, 3, 4}, {5, 6, 7, 8}, {9, 10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}} For i = 0 To 3 Next i For j = 0 To 3 Next j If i = j Then MsgBox (S(3, 3)) S(i, j) = S(i, j) * 2 S(i, j) = S(j, i) 28. ( ) 執行下列程式後, 即時運算視窗顯示的結果為何? (A)0 (B)1 (C)3 (D)6 Dim A(3), Sum, I as Integer For I = 1 To 3 Sum = Sum + I A(I) = Sum Debug.Print(A(3)) 29. ( ) 執行下列程式片段 A(4) 的結果為何? (A)3 (B)4 (C)5 (D)6 Dim A(4), K As Integer For K = 2 To 4 If K Mod 2 = 1 Then A(K) = A(K-1) + 1 A(K) = A(K-1) + 2 Next K 30. ( ) 在 Visual Basic 中, 宣告一個陣列 "Dim F(6) As Integer", 表示陣列 F 需使用多少記憶體空間 ( 提示 : 整數型別佔用 4bytes 的記憶體空間 )? (A)10 (B)12 (C)24 (D)28 Bytes 31. ( ) 將 17 11 84 26 49 3 67 等 7 個數字的數列資料, 以選擇排序法進行遞減排序, 請問在第二次循環結束後, 此數列應為下列哪一個? (A)84, 11, 17, 26, 49, 3, 67 (B)84, 67, 17, 26, 49, 3, 11 (C)3, 11, 84, 26, 49, 17, 67 (D)3, 11, 17, 26, 49, 67, 84 32. ( ) 利用氣泡排序法, 將以下數列資料 30, 50, 20, 60, 40 依遞減順序排列, 請問在第一次循環結束後, 此數列應是下列那 一個? (A)30, 50, 60, 40, 20 (B)50, 30, 60, 40, 20 (C)20, 30, 40, 50, 60 (D)30, 40, 50, 60, 20 33. ( ) 下列關於排序之敘述, 何者錯誤? (A) 排序就是將資料排成某種特定的順序 (B) 以選擇排序法排序 N 筆資料, 需使用 2 個 For Next 迴圈 (C) 氣泡排序法適用於少量資料之排序 (D) 排序最基本的兩個步驟是資料的比較與搜尋
國立北斗家商 107 學年度第 2 學期第二次期中考科目 : 計算機應用 計算機概論 IV 班級 : 商二 1 2 貿二 資二 綜二 1 作答方式 : 答案卡 選擇題答案請忽略題號 8. ( C ) 9. ( B ) 10. ( C ) 11. ( B ) 12. ( C ) 13. ( D ) 14. ( C ) 15. ( C ) 16. ( A ) 17. ( C ) 18. ( B ) 19. ( C ) 20. ( D ) 21. ( D ) 22. ( B ) 23. ( C ) 24. ( B ) 25. ( A ) 26. ( A) 27. (C ) 28. ( D ) 29. ( C ) 30. ( C ) 31. ( A ) 32. ( B ) 33. ( D ) 34. ( D ) 35. ( D ) 36. ( C ) 37. ( D ) 38. ( B ) 39. ( B ) 40. ( D )