( )9. 執行下列 Visual Basic 程式片段，輸出結果為何?
(A)1
(B)12
(C)14
(D)15

```vba
Dim A(3, 3) As Integer
For I = 1 To 3
For J = 1 To 3
If J = 1 Then
A(I, J) = A(I - 1, J - 1) + I + J
Else
A(I, J) = A(I - 1, J - 1) + I + J + 1
End If
Next J
Next I
Console.Write(A(3, 3))
```

第 3 頁，共 9 頁

( )10. 執行下列 Visual Basic 程式，輸出結果為何?(A) 20 (B) 39 (C) 15 (D) 10```vbaSub Main( )Dim K As IntegerK = GAME(5)Console.WriteLine(K)End SubFunction GAME(ByVal X As Integer) As IntegerIf (X > 3) ThenGAME = X + GAME(X - 1) + GAME(X - 2) + GAME(X - 3)ElseGAME = XEnd IfEnd Function```

( )11. 執行下列 Visual Basic 程式片段，輸出結果為何?(A) 0 (B) 6 (C) 7 (D) 8```vbaDim A, S As IntegerS = 0 : A = 6While A > 0S = S + (A Mod 10) : A = A / 10End WhileConsole.WriteLine(S)```

( )12. 執行下列 Visual Basic 程式片段，輸出結果為何?(A) 2 (B) 3 (C) 0 (D) 4```vbaDim I, J, K, Temp, A(5) As IntegerFor K = 0 To 5A(K) = (K ^ 2 + 1) Mod 5Next KFor I = 5 To 1 Step -1For J = 0 To I - 1If A(J) > A(J + 1) ThenTemp = A(J)A(J) = A(J + 1)A(J + 1) = TempEnd IfNextNextConsole.WriteLine(A(4))```第 4 頁，共 9 頁

( ) 13. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 58 (B) 47 (C) 59 (D) 48```vbaDim i, j, k, sum As Integersum = 0For i = 0 To 3For j = i To 4For k = j To 5sum = sum + 1NextNextNextConsole.WriteLine(sum)```

( ) 14. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 78 (B) 76 (C) 68 (D) 62```vbaDim i, j, k, sum As Integersum = 0For i = 0 To 3For j = i To 4For k = i To 5sum = sum + 1NextNextConsole.WriteLine(sum)```

( ) 15. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 4 (B) 5 (C) 25 (D) 30```vbaDim i, j, S As IntegerS = 0 : i = 0 : j = 0Do While i <= 5Do While j <= 4S = S + 1j = j + 1Loopi = i + 1LoopConsole.Write(S)```第 5 頁，共 9 頁

( ) 16. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 27 (B) 28 (C) 29 (D) 30```vbaDim Sum, i, j As IntegerSum = 0 : i = 0While i <= 7For j = 1 To iSum = Sum + 1Next ji = i + 1End WhileConsole.WriteLine(Sum)```

( ) 17. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 1 (B) 7 (C) 8 (D) 9 ```vba Dim Number As String Number = "456789" Dim Int(5) As Integer Dim x, num, sun As Integer For x = 0 To 5 num = Number.Substring(x, 1) If (x + 1) Mod 2 <> 0 Then '偶數乘1奇數乘2 Int(x) = num * 2 Else Int(x) = num End If Next For x = 0 To 5 If (Int(x) > 9) Then Int(x) = Int(x) - 9 End If sun += Int(x) Next Console.WriteLine(sun Mod 10) ``` 第 6 頁，共 9 頁

( )18. 執行下列Visual Basic程式片段，輸出結果為何? (A) 1 (B) 2 (C) 3 (D) 4 Dim ans, num As Integer Dim a As String num = 1025 ans = 0 a = Convert.ToString(num, 2) For k = 1 To Len(a) If Mid(a, k, 1) = "1" Then ans = ans + 1 End If Next Console.WriteLine(ans) 提示: 'Console.WriteLine(Convert.ToString(14, 2)) '1110 'Console.WriteLine(Convert.ToString(13, 2)) '1101

( )19. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 112 (B) 113 (C) 114 (D) 115 Dim b(3) As String Dim c(3) As String Dim id(3) As String b(0) = Convert.ToString(115, 2) Do Until Len(b(0)) = 8 b(0) = "0" & b(0) Loop c(0) = Convert.ToString(252, 2) Do Until Len(c(0)) = 8 c(0) = "0" & c(0) Loop For i = 1 To 8 If Mid(b(0), i, 1) = Mid(c(0), i, 1) And Mid(b(0), i, 1) = 1 Then id(0) = id(0) & "1" Else id(0) = id(0) & "0" End If Next Console.WriteLine(Convert.ToInt32(id(0), 2)) 提示: 'Console.WriteLine(Convert.ToInt32(1110, 2)) '14 'Console.WriteLine(Convert.ToInt32(1101, 2)) '13 第 7 頁，共 9 頁

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