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

Size: px

Start display at page:

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

积茅
6 years ago
Views:

1 國立北斗家商 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

2 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 ( ) 執行下列程式後,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 ( ) 請由下列程式敘述判斷, 該程式是用來計算下列何者? (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

3 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 ( ) 執行下列程式片段後, 變數 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

4 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)

5 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. ( ) 將等 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, ( ) 利用氣泡排序法, 將以下數列資料 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, ( ) 下列關於排序之敘述, 何者錯誤? (A) 排序就是將資料排成某種特定的順序 (B) 以選擇排序法排序 N 筆資料, 需使用 2 個 For Next 迴圈 (C) 氣泡排序法適用於少量資料之排序 (D) 排序最基本的兩個步驟是資料的比較與搜尋

6 國立北斗家商 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 )

p-2

p-2 B 卷選擇題共 50 題 ( 共 100 分 ) 1. 執行下列 Visual Basic 程式片段後, 共輸出幾筆資料? x = 0: y = 1 Print y x = x + y Print x y = y + 1 If x >= 10 Then Exit Loop While y

國立北斗家商 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 程式語言 (