( ) 13. 請問 NOT (A AND B) 的運算結果與以下何者相同？

(A) (NOT A) AND (NOT B)

(B) NOT (A X or B)

(C) (NOT A) AND B

(D) (NOT A) OR (NOT B)

( ) 14. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 1234 (B) 123 (C) 6 (D) 10 Dim A, S As Integer S = 0 : A = 1234 While A > 0 S = S + (A Mod 10) A = A / 10 End While Console.WriteLine(S)

( ) 15. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 3 (B) 4 (C) 5 (D) 6 Dim i, n, Sum As Integer Dim isPrime As Boolean Sum = 0 For n = 3 To 10 isPrime = True For i = 2 To Math.Sqrt(n) If n Mod i = 0 Then isPrime = False Exit For End If Next If isPrime = True Then Sum = Sum + 1 End If Next Console.WriteLine(Sum)

( ) 16. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 28 (B) 40 (C) 48 (D) 60 Dim K, S As Integer S = 0 : K = 0 While K < 20 S = S + K K = K + 4 End While Console.Write(S) 第 4 頁 / 共 7 頁

( )17. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 8 (B) 4 (C) 3 (D) 12 ```vba Sub Main() Console.WriteLine(F17(2, 1)) End Sub Function F17(ByVal A, ByVal B) As Integer If (A > 0) And (B > 0) Then Return (F17(A - 1, B) + F17(A, B - 1)) Else Return (A + B) End If End Function ```

( )18. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 0 (B) 3 (C) 13 (D) 23 ```vba Dim i, j, k As Integer Dim A(,) As Integer = {{1, 2, 3, 4}, {1, 0, 1, 0}, {1, 2, 3, 4}} Dim B(,) As Integer = {{1, 2, 3, 4, 5}, {1, 0, 1, 0, 1}, {0, 1, 0, 1, 0}, {1, 2, 3, 4, 5}} Dim C(3, 5) As Integer For i = 0 To 2 For j = 0 To 4 For k = 0 To 3 C(i, j) = C(i, j) + A(i, k) * B(k, j) Next k Next j Next i Console.WriteLine(C(1, 2)) ```

( )19. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 3 (B) 4 (C) 6 (D) 8 ```vba Dim A, S As Integer S = 0 : A = 19 While A > 0 S = S + (A Mod 16) A = A / 16 End While Console.WriteLine(S) ``` 第 5 頁 / 共 7 頁

( )20. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 1 (B) 2 (C) 3 (D) 4 Dim A, S As Decimal S = 0 : A = 15 While A > 0 S = S + (A Mod 2) A = Math.Floor(A / 2) End While Console.WriteLine(S)

( )21. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 12 (B) 10 (C) 9 (D) 6 Dim A, B As Integer A = 24 B = A - 1 While A Mod B > 0 B = B - 1 End While Console.WriteLine(B)

( )22. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 3 (B) 4 (C) 8 (D) 9 Sub Main() Console.WriteLine(X22(8)) End Sub Function X22(ByVal n) As Integer If n = 1 Then Return 1 Else If (n Mod 2 = 1) Then Return X22(n * 3 + 1) + 1 Else Return X22(n / 2) + 1 End If End If End Function 第 6 頁 / 共 7 頁

( ) 23. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) B123456789 (B) 10123456789 (C) 123456789 (D) 11123456789 Dim A(), B(), S As String A = Split("A B C D E F G H I J K L M N O P Q R S T U V W X Y Z", " ") B = Split("10 11 12 13 14 15 16 17 34 18 19 20 21 22 35 23 24 25 26 27 28 29 32 30 31 33", " ") S = "B123456789" For k = 0 To UBound(A) If Left(S, 1) = A(k) Then S = Replace(S, A(k), B(k)) Next k Console.WriteLine(S)

114年 - 114 全國高級中等學校學生技藝競賽考試_商業類:程式設計#140178

112年 - 112 全國高級中等學校學生技藝競賽考試_商業類:程式設計#140179

111年 - 111 全國高級中等學校學生技藝競賽考試_商業類:程式設計#140166

111年 - 111 全國高級中等學校學生技藝競賽學科試題_商業類:程式設計#112729

110年 - 110 全國高級中等學校學生技藝競賽考試_商業類:程式設計#140064

106年 - 106 全國高級中等學校學生技藝競賽考試_商業類:程式設計#140235

105年 - 105 全國高級中等學校學生技藝競賽考試_商業類:程式設計#140232

104年 - 104 全國高級中等學校學生技藝競賽考試_商業類:程式設計#140384