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

科目：高中技藝◆程式設計 | 年份：109年 | 選擇題數：25 | 申論題數：0

試卷資訊

所屬科目：高中技藝◆程式設計

選擇題 (25)

1. 執行以下 Visual Basic 程式片段，其輸出結果有幾個為-1？(A) 1 (B) 2 (C) 3 (D) 4

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

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頁

申論題 (0)