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

( )17. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 15 (B) 26 (C) 27 (D) 28 ```vba Dim Sum, i, j As Integer Sum = 0 : i = 0 While i <= 4 For j = 1 To i + 1 Sum = Sum + 1 Next j i = i + 1 End While Console.WriteLine(Sum + i + j) ```

( )18. 執行下列Visual Basic程式片段，輸出結果為何? (A) 110100 (B) 110010 (C) 101011 (D) 011101 ```vba Console.WriteLine(Convert.TuString(A021 + A012, 2)) ```

( )19. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 35 (B) 33 (C) 17 (D) 15 ```vba Console.Write(Box(21)) ```

( )20. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 5 (B) 6 (C) 7 (D) 8 ```vba Sub Main() Dim Sum As Integer = GetSum(5) Console.WriteLine(Sum) End Sub Function GetSum(ByVal N As Integer): If N = 1 Then Return 1 If (N Mod 2 = 1) Then Return GetSum(N * 3 + 1) + 1 Else Return GetSum(N / 2) + 1 End 7f End Function ``` 第 4頁/共 5頁

( )21. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 8 (B) 13 (C) 6 (D) 9 ```vba Sub Main() Console.WriteLine(F(S)) End Sub Function F(ByVal n) As Integer Dim a1, a2, a3, i As Integer a1 = 0 : a2 = 1 If n = 0 Or n = 1 Then Return n End If For i = 2 To n a3 = a1 + a2 a1 = a2 a2 = a3 Next Return a3 End Function ```

( )22. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 5 (B) 4 (C) 3 (D) 2 ```vba Dim Data() As Integer = (1, 4, 2, 3, 5) Dim ChangeCount As Integer = 0 For i = 0 To UBound(Data) For j = i + 1 To UBound(Data) If Data(i) > Data(j) Then Dim d As Integer = Data(i) Data(i) = Data(j) Data(j) = d ChangeCount += 1 End If Next Next Console.WriteLine(ChangeCount) ```

( )23. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) TrueFalse (B) FalseTrue (C) TrueTrue (D) FalseFalse ```vba Dim a As Integer = 10 Dim b As Integer = 8 Dim c As Integer = 6 Dim firstCheck, secondCheck, thirdCheck As Boolean firstCheck = a > b Xor b > c secondCheck = b > a Xor b > c thirdCheck = b > a Xor c > b Console.Write(firstCheck) Console.WriteLine(secondCheck) ```

( )24. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 00 (B) 11 (C) 10 (D) 01 ```vba Dim X As String = 2019 Dim Y As Integer = 2019 Console.Write(1?(X.Squale(Y), 1, 0)) Console.WriteLine(1?(X.Squale(Y.ToString), 1, 0)) ```

( )25. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 4 (B) 21 (C) 15 (D) 10 ```vba Dim S, P, J As Integer S = 1 : P = 1 For J = 1 To 5 S = S + J * P P = P * (-1) Next J Console.WriteLine(S + J) ``` 第 5頁/共 5頁 全國高級中等學校109學年度商業類學生技藝競賽 【程式設計】職種【學科】正式試題答案卷 試題說明：（選擇題共 25 題，每題 4 分，共 100 分） | 題號 | 答案 | 題號 | 答案 | 題號 | 答案 | 題號 | 答案 | 題號 | 答案 | --- | --- | --- | --- | --- | --- | --- | --- | --- | --- 1. C 11 A 21 A 31 41 2. A 12 A 22 D 32 42 3. B 13 B 23 B 33 43 4. B 14 B 24 D 34 44 5. B 15 A 25 D 35 45 6. B 16 B 26 36 46 7. D 17 B 27 37 47 8. C 18 C 28 38 48 9. B 19 D 29 39 49 10. C 20 B 30 40 50 第 1頁/共 1頁

1. 資優班張老師以海洋議題融入特殊需求領域課程，他讓學生蒐集不同時期的海洋溫度變化加 以比較，並探討其可能原因。依平行課程模式，這樣的教學較未涉及下列哪種課程類型？ (A)核心 (B)實務 (C)連結 (D)自我認同

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