( )2. 執行以下 Visual Basic 程式片段，其結果為何？
(A) 00
(B) 01
(C) 10
(D) 11

```
Dim A, B, C, D As Integer
A = 1 * 2 * 3 * 2 Xor 4 * 3 / 8
B = 2 * 2 Xor 4 * 3 / 8
C = 2 * 3 And 4 * 3 / 8
D = 2 * 2 Or 4 * 3 / 8
Console.Write(If(A > B, 1, 0))
Console.WriteLine(If(C > D, 1, 0))
```

( )3. 執行下列 Visual Basic 程式片段，其結果為何？(A) 14 (B) 15 (C) 16 (D) 17 ``` Dim Count As Integer = 0 Dim Data() As Integer = {1, 2, 3} For i = 0 To Data.Length - 1 For j = 0 To Data.Length - 1 For k = 0 To Data.Length - 1 If Data(i) = Data(j) Or Data(i) = Data(k) Then Count += 1 End If Next Next Next Console.WriteLine(Count) ```

( )4. 執行以下 Visual Basic 程式片段，其結果為何？(A) 7 (B) 9 (C) 11 (D) 12 ``` Dim dp(100), i As Integer dp(0) = 1 dp(1) = 2 dp(2) = 2 For i = 3 To 7 dp(i) = dp(i - 2) + dp(i - 3) Next Console.WriteLine(dp(7)) ```

5. 執行下列 Visual Basic 程式，輸出結果為何？(A) 2 (B) 3 (C) 4 (D) 5

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

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