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

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

試卷資訊

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

選擇題 (25)

全國高級中等學校104學年度商業類學生技藝競賽

【程式設計】職種【學科】試卷

周位編號：____________________ 姓名：____________________

注意事項：請將答案劃記於答案卡，未依規定劃記者不予計分。

試題說明：(選擇題每題 4 分，共 100 分)
( )1. 執行以下 Visual Basic 程式片段，其結果為何？(A) 1 (B) 2 (C) 3 (D) 4
Console.Write(((Math.Pow(-3, 2) Mod 5) * (Math.Pow(3, 3) Mod 4)) Mod 5)
提示: Math.Pow(-3, 2)=(-3)^2=9；Math.Pow(1, 2)=1^2=1。
( )2. 執行以下 Visual Basic 程式片段，其結果為何？(A) 10 (B) 11 (C) 01 (D) 00
Console.Write(1 Xor 1 Xor 1): Console.Write(1 Xor 0 Xor 0 Xor 1)
( )3. 執行下列 Visual Basic 程式片段，其結果為何？(A) 23 (B) 17 (C) 11 (D) F
Console.Write(Hex (Hex(23)))
( )4. 執行以下 Visual Basic 程式片段，其結果為何？(A) 2 (B) 3 (C) 5 (D) 9
Dim i, j As Integer
Dim A(,) As Integer = {{1, 2, 3, 4}, {5, 6, 7, 8}, {9, 10, 11, 12}}
Dim B(3, 4) As Integer
For i = 0 To 2
For j = 0 To 3
B(j, i) = A(i, j)
Next j
Next i
Console.WriteLine(B(0, 2))
( )5. 執行下列 Visual Basic 程式片段，輸出結果為何？(A) 11 (B) 12 (C) 21 (D) 22
Sub Main()
A5(12)
End Sub
Sub A5(ByVal x As Integer)
If (x > 0) Then
A5(x / 10)
Console.Write(x Mod 10)
End If
End Sub

第 1 頁 / 共 7 頁
( )6. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) BC (B) CD (C) ED (D) DC
Dim X As String
Dim Y(6) As Char
X = "ABCDEF"
For I = 0 To Len(X) - 1
Y(I) = Mid(X, I + 1, 1)
Next I
Console.WriteLine(Y(2) & Y(3))
( )7. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 1 1 (B) 2 2 (C) 1 2 (D) 2 1
Dim A, B As Integer
A = 1 : B = 2
A = A X or B
B = A X or B
A = A X or B
Console.WriteLine(A & " " & B)
( )8. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 0 (B) 4 (C) 9 (D) 36
Dim Count As Integer
Count = 0
For C = 0 To 8
Count = Count + (C Mod 3)
Next C
Console.WriteLine(Count)
( )9. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 14 (B) 23 (C) 29 (D) 30
Sub Main()
Dim i, Sum
Sum = 0
For i = 1 To 3
Sum = Fun_9(i) + Sum
Next i
Console.Write(Sum)
End Sub

Function Fun_9(ByVal X As Integer) As Integer
Fun_9 = X ^ 2 + 2 * (X ^ 1) + 1
End Function

第 2 頁 / 共 7 頁
( )10. 執行下列 Visual Basic 程式，輸出結果為何? (A) 45 (B) 44 (C) 48 (D) 21

```vba
Dim A(3, 3), i, j As Integer
For i = 0 To 3
For j = 0 To 3
If (i Mod 2) = 1 Then
A(i, j) = i * j
Else
A(i, j) = i + j
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) + A(i - 1, j - 1)
Next
Next
Console.WriteLine(A(3, 3))
```
( )11. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 12 (B) 13 (C) 7 (D) 8

```vba
Dim i, j As Integer
Dim S(., ) As Integer = {{1, 2, 3, 4}, {5, 6, 7, 8}, {9, 10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}
For i = 0 To 3
For j = 0 To 3
If i = j Then
S(i, j) = S(i, j) + 1
Else
S(i, j) = S(i, j) + 2
End If
Next j
Next i
Console.WriteLine(S(2, 2))
```
( )12. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 10 (B) 11 (C) 13 (D) 33

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

第 3 頁 / 共 7 頁
( ) 13. 請問 NOT (A AND B) 的運算結果與以下何者相同？
(A) (NOT A) AND (NOT B)
(B) NOT (A X or B)
(C) (NOT A) AND B
(D) (NOT A) OR (NOT B)
( ) 14. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 1234 (B) 123 (C) 6 (D) 10
Dim A, S As Integer
S = 0 : A = 1234
While A > 0
S = S + (A Mod 10)
A = A / 10
End While
Console.WriteLine(S)
( ) 15. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 3 (B) 4 (C) 5 (D) 6
Dim i, n, Sum As Integer
Dim isPrime As Boolean
Sum = 0
For n = 3 To 10
isPrime = True
For i = 2 To Math.Sqrt(n)
If n Mod i = 0 Then
isPrime = False
Exit For
End If
Next
If isPrime = True Then
Sum = Sum + 1
End If
Next
Console.WriteLine(Sum)
( ) 16. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 28 (B) 40 (C) 48 (D) 60
Dim K, S As Integer
S = 0 : K = 0
While K < 20
S = S + K
K = K + 4
End While
Console.Write(S)

第 4 頁 / 共 7 頁
( )17. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 8 (B) 4 (C) 3 (D) 12

```vba
Sub Main()
Console.WriteLine(F17(2, 1))
End Sub

Function F17(ByVal A, ByVal B) As Integer
If (A > 0) And (B > 0) Then
Return (F17(A - 1, B) + F17(A, B - 1))
Else
Return (A + B)
End If
End Function
```
( )18. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 0 (B) 3 (C) 13 (D) 23

```vba
Dim i, j, k As Integer
Dim A(,) As Integer = {{1, 2, 3, 4}, {1, 0, 1, 0}, {1, 2, 3, 4}}
Dim B(,) As Integer = {{1, 2, 3, 4, 5}, {1, 0, 1, 0, 1}, {0, 1, 0, 1, 0}, {1, 2, 3, 4, 5}}
Dim C(3, 5) As Integer
For i = 0 To 2
For j = 0 To 4
For k = 0 To 3
C(i, j) = C(i, j) + A(i, k) * B(k, j)
Next k
Next j
Next i
Console.WriteLine(C(1, 2))
```
( )19. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 3 (B) 4 (C) 6 (D) 8

```vba
Dim A, S As Integer
S = 0 : A = 19
While A > 0
S = S + (A Mod 16)
A = A / 16
End While
Console.WriteLine(S)
```

第 5 頁 / 共 7 頁
( )20. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 1 (B) 2 (C) 3 (D) 4

Dim A, S As Decimal
S = 0 : A = 15
While A > 0
S = S + (A Mod 2)
A = Math.Floor(A / 2)
End While
Console.WriteLine(S)
( )21. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 12 (B) 10 (C) 9 (D) 6

Dim A, B As Integer
A = 24
B = A - 1
While A Mod B > 0
B = B - 1
End While
Console.WriteLine(B)
( )22. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 3 (B) 4 (C) 8 (D) 9

Sub Main()
Console.WriteLine(X22(8))
End Sub

Function X22(ByVal n) As Integer
If n = 1 Then
Return 1
Else
If (n Mod 2 = 1) Then
Return X22(n * 3 + 1) + 1
Else
Return X22(n / 2) + 1
End If
End If
End Function

第 6 頁 / 共 7 頁
( ) 23. 執行下列 Visual Basic 程式片段，輸出結果為何?

(A) B123456789
(B) 10123456789
(C) 123456789
(D) 11123456789

Dim A(), B(), S As String
A = Split("A B C D E F G H I J K L M N O P Q R S T U V W X Y Z", " ")
B = Split("10 11 12 13 14 15 16 17 34 18 19 20 21 22 35 23 24 25 26 27 28 29 32 30 31 33", " ")
S = "B123456789"
For k = 0 To UBound(A)
If Left(S, 1) = A(k) Then S = Replace(S, A(k), B(k))
Next k
Console.WriteLine(S)
( ) 24. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 7 (B) 6 (C) 5 (D) 4

Sub Main()
Console.WriteLine(FNackermann(2, 2))
End Sub

Function FNackermann(ByVal m As Integer, ByVal n As Integer) As Integer
If m = 0 Then Return n + 1
If n = 0 Then Return FNackermann(m - 1, 1)
If (m > 0 And n > 0) Then
Return FNackermann(m - 1, FNackermann(m, n - 1))
End If
End Function
( ) 25. 若使用下列 Visual Basic 程式片段，F25(20)=6765，F25(21)=10946，則 F25(19)為何？

(A) 10946-6765
(B) 6765+10946
(C) 2* 6765-10946
(D) 6765-2*10946

Function F25(ByVal n As Integer) As Integer
If n = 1 Or n = 0 Then
Return n
Else
Return F2(n - 1) + F2(n - 2)
End If
End Function

第 7 頁 / 共 7 頁

申論題 (0)