( )9. 執行下列 Visual Basic 程式片段，輸出結果為何?
(A) 14
(B) 23
(C) 29
(D) 30
Sub Main()
Dim i, Sum
Sum = 0
For i = 1 To 3
Sum = Fun_9(i) + Sum
Next i
Console.Write(Sum)
End Sub

Function Fun_9(ByVal X As Integer) As Integer
Fun_9 = X ^ 2 + 2 * (X ^ 1) + 1
End Function

第 2 頁 / 共 7 頁

( )10. 執行下列 Visual Basic 程式，輸出結果為何? (A) 45 (B) 44 (C) 48 (D) 21 ```vba Dim A(3, 3), i, j As Integer For i = 0 To 3 For j = 0 To 3 If (i Mod 2) = 1 Then A(i, j) = i * j Else A(i, j) = i + j End If Next Next For i = 1 To 3 For j = 1 To 3 A(i, j) = A(i - 1, j) + A(i, j - 1) + A(i - 1, j - 1) Next Next Console.WriteLine(A(3, 3)) ```

( )11. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 12 (B) 13 (C) 7 (D) 8 ```vba Dim i, j As Integer Dim S(., ) As Integer = {{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 For j = 0 To 3 If i = j Then S(i, j) = S(i, j) + 1 Else S(i, j) = S(i, j) + 2 End If Next j Next i Console.WriteLine(S(2, 2)) ```

( )12. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 10 (B) 11 (C) 13 (D) 33 ```vba Dim A, B, C As Integer A = 3 : B = 8 : C = 3 While B > 0 C = A Mod B : A = B : B = C End While Console.Write(A & " " & B) ``` 第 3 頁 / 共 7 頁

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

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

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

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

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

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

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

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

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