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

```vba
Dim A, B, C As Integer
A = 8 : B = 2 : C = 3
While B > 0
C = A Mod B : A = B : B = C
End While
Console.WriteLine( A )
```

( )9. 執行下列 Visual Basic 程式片段，輸出結果為何? (A)1 (B)12 (C)14 (D)15```vbaDim A(3, 3) As IntegerFor I = 1 To 3For J = 1 To 3If J = 1 ThenA(I, J) = A(I - 1, J - 1) + I + JElseA(I, J) = A(I - 1, J - 1) + I + J + 1End IfNext JNext IConsole.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

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