( )6. 執行下列 Visual Basic 程式片段，輸出結果為何?
(A) 1
(B) 2
(C) 3
(D) 4

```vba
Sub Main()
Console.WriteLine(Compute($))
End Sub
Function Compute(ByVal N As Integer)
If N = 1 Then Return 1
If N Had 2 = 1 Then .
Return Compute(N - 1) + Compute(N + 1)
Else
Return Compute(N / 2)
End If
End Function
```

( )7. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 11 (B) 12 (C) 55 (D) 66 ```txt Dim ans As Integer = 0 For i As Integer = 0 To 11 ans += i Next Console.WriteLine(ans) ```

( )8. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 20 (B) 27 (C) 33 (D) 40 ```txt Dim A(4, 4), i, j As Integer For i = 0 To 3 For j = 0 To 3 If j Nod 2 = 0 Then A(i, j) = 2 Else A(i, j) = 1 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) Next Next Console.WriteLine(A(3, 3)) ```

( )9. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 2 (B) 3 (C) 4 (D) 5 ```txt Dim A() As Integer = {2, 5, 7, 9, 3, 1, 2} Dim B() As Integer = {3, 5, 3, 2, 8} Dim DP(A.Length, B.Length) As Integer For i = 1 To A.Length For j = 1 To B.Length If A(i - 1) = B(j - 1) Then DP(i, j) = DP(i - 1, j - 1) + 1 Else DP(i, j) = Math.Max(DP(i - 1, j), DP(i, j - 1)) End If Next Next Console.WriteLine(DP(A.Length, B.Length)) ``` 第 2頁/共 5頁

( )10. 執行下列Visual Basic程式片段，輸出結果為何? (A) 3 (B) 4 (C) 9 (D) 50 ```vba Dim Sum, i, j As Integer Sum = 0 i = 2 While i >= 0 For j = 1 To i Sum = Sum + i + j Next j i = i - 1 End While Console.WriteLine(Sum) ```

( )11. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 6 (B) 7 (C) 8 (D) 5 ```vba Dim A() As Integer = (92, 85, 80, 100, 76, 41, 34, 90) Dim i, Count_1, Count_2 As Integer Count_1 = 0 : Count_2 = 0 For i = 0 To ? If A(i) > 80 Then Count_1 = Count_1 + 1 If A(i) <= 60 Then Count_2 = Count_2 + 1 Next i Console.WriteLine(Count_1 + Count_2) ```

( )12. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 24 (B) 31 (C) 19 (D) 30 ```vba Dim Data As String = "2 3 5 7 11 13 17" Dim Numbers As New List(Of Integer) Dim Count As Integer = 0 For i = 0 To Data.Length - 1 Numbers.Add(Val(Data(i))) Next Numbers.Sort() For i = 1 To Numbers.Count - 2 Count = Count + Numbers(i) Next Console.WriteLine(Count) ```

13. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 7 (B) 8 (C) 11 (D) 12

( )14. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 2 (B) 3 (C) 12 (D) 15 ```vba Dim i, j, S As Integer S = 0 : i = 2 : j = 0 Do While i <= 5 Do While j < 3 S = S + 1 j = j + 1 Loop i = i + 1 Loop Console.WriteLine(S) ``` 第 3頁/共 5頁

( )15. 執行下列Visual Basic程式片段，輸出結果為何? (A) 1 (B) 6 (C) 7 (D) 12 ```vba Dim A, B, C As Integer A = 12 : B = 7 : C = 18 While B > 0 C = A Mod B : A = B : B = C End While Console.WriteLine(A + B + C) ```

( )16. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 4 (B) 5 (C) 6 (D) 7 ```vba Dim A, B, Count As Integer A = 6 : B = 8 While Count <= 12 While A < B A += 3 B += 2 Count += Math_Abs(A - B) End While A = A / 2 - 1 B = B / 2 End While Console.WriteLine(A + B) ```

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

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

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

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

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

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

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

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

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

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