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

( ) 24. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 7 (B) 6 (C) 5 (D) 4 Sub Main() Console.WriteLine(FNackermann(2, 2)) End Sub Function FNackermann(ByVal m As Integer, ByVal n As Integer) As Integer If m = 0 Then Return n + 1 If n = 0 Then Return FNackermann(m - 1, 1) If (m > 0 And n > 0) Then Return FNackermann(m - 1, FNackermann(m, n - 1)) End If End Function

( ) 25. 若使用下列 Visual Basic 程式片段，F25(20)=6765，F25(21)=10946，則 F25(19)為何？ (A) 10946-6765 (B) 6765+10946 (C) 2* 6765-10946 (D) 6765-2*10946 Function F25(ByVal n As Integer) As Integer If n = 1 Or n = 0 Then Return n Else Return F2(n - 1) + F2(n - 2) End If End Function 第 7 頁 / 共 7 頁

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

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

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

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

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

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

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

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