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

1. 執行以下 Visual Basic 程式片段，其輸出結果有幾個為-1？

(A) 1 (B) 2 (C) 3 (D) 4

2. 執行以下 Visual Basic 程式片段，其結果為何？

(A) 00 (B) 01 (C) 10 (D) 11 

3. 執行下列 Visual Basic 程式片段，其結果為何？

(A) 14 (B) 15 (C) 16 (D) 17 

4. 執行以下 Visual Basic 程式片段，其結果為何？

(A) 7 (B) 9 (C) 11 (D) 12 

5. 執行下列 Visual Basic 程式，輸出結果為何？

(A) 2 (B) 3 (C) 4 (D) 5

6. 執行下列 Visual Basic 程式片段，輸出結果為何?

(A) 1 (B) 2 (C) 3 (D) 4 

7. 執行下列 Visual Basic 程式片段，輸出結果為何?

(A) 11 (B) 12 (C) 55 (D) 66 

8. 執行下列 Visual Basic 程式片段，輸出結果為何?

(A) 20 (B) 27 (C) 33 (D) 40 

9. 執行下列 Visual Basic 程式片段，輸出結果為何?

(A) 2 (B) 3 (C) 4 (D) 5 

10. 執行下列Visual Basic程式片段，輸出結果為何?

(A) 3 (B) 4 (C) 9 (D) 50 

11. 執行下列 Visual Basic 程式片段，輸出結果為何?

(A) 6 (B) 7 (C) 8 (D) 5 

12. 執行下列 Visual Basic 程式片段，輸出結果為何?

(A) 24 (B) 31 (C) 19 (D) 30 

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

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頁