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

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

試卷資訊

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

選擇題 (25)

1. 十進位數值 19 可轉換成下列何者？ (A)二進位數值 10001 (B) 二進位數值 1011 (C) 十六進位數值 13 (D) 十六進位數值 111

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

(A)3 (B) 3.5 (C) 4 (D) 4.5

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

(A)1001 (B) 1 (C) 1000 (D) 1010

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

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

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

(A)2 (B) 4 (C) 10 (D) 20

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

(A)5 (B) 13 (C) 14 (D) 29

( )7. 執行以下 Visual Basic 程式，其 A(4, 4) 結果為何？ (A)0 (B) 20 (C) 70 (D) 112

```vba
Dim A(4, 4)
For i = 0 To 4
For j = 0 To 4
A(i, j) = i + j
Next
Next
For i = 2 To 4
For j = 2 To 4
A(i, j) = A(i - 1, j) + A(i, j - 1)
Next
Next
Console.Write(A(4, 4))
```

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

```vba
(A) 7, 11 (B) 6, 24 (C) 3, 6 (D) 6, 10
Dim A(5), i, Sum As Integer
Sum = 1
For i = 1 To 5
Sum = Sum * i
A(i) = Sum
Next i
Console.Write(A(3))
Console.Write(", ")
Console.WriteLine(A(4))
```

第 2 頁，共 7 頁

( ) 9. 執行下列 Visual Basic 程式，輸出結果為何? (A) 0 (B) 1 (C) 2 (D) 11

Dim A, B, Count As Integer

A = 1 : B = 5 : Count = 0

For C = A - B To A + B Step 1

Count = Count + C Mod 1

Next C

Console.WriteLine(Count)

( ) 10. 執行下列 Visual Basic 程式，輸出結果為何? (A)0 (B) 6 (C) 10 (D) 20

Dim A(4, 4), i, j As Integer

For i = 0 To 3

For j = 0 To 3

A(i, j) = 1

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

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

Sub Main()

Dim A() As Integer = {0, 2, 5, 3, 4, 1}

Dim i, j As Integer

For i = 1 To 4

For j = i + 1 To 5

If A(i) < A(j) Then SWAP(A(i), A(j))

Next j

Next i

Console.WriteLine(A(4))

End Sub

Sub SWAP(ByRef A, ByRef B)

Dim T As Integer

T = B : B = A : A = T

End Sub

第 3 頁，共 7 頁

( )12. 執行下列 Visual Basic 程式，輸出結果為何? (A)0 (B) 20 (C) 30 (D) 60

Dim i, Sum As Double

For i = -4 To 4

Sum = Sum + Math.Pow(i, 2)

Next

Console.WriteLine(Sum)

提示: Math.Pow(-3, 2) = (-3)^2 = 9；Math.Pow(1, 2) = 1^2 = 1。

( )13. 執行下列 Visual Basic 程式，輸出結果為何? (A)6 (B) 8 (C) 21 (D) 45

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

( )14. 執行下列 Visual Basic 程式，輸出結果為何? (A) 18 (B) 19 (C) 20 (D) 21

Dim Sum, i, j As Integer

Sum = 0

i = 4

While i >= 0

For j = 1 To i

Sum = Sum + j

Next j

i = i - 1

End While

Console.WriteLine(Sum + i)

第 4 頁，共 7 頁

( )15. 執行下列 Visual Basic 程式，何者與 A(3, 2) 之值相同？

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

Dim A(5, 5), i, j As Integer

For i = 1 To 5

For j = 1 To 5

A(i, j) = (i + 1) * (j - 1)

Next j

Next i

( )16. 執行下列 Visual Basic 程式，輸出結果爲何？ (A)21 (B) 23 (C) 29 (D) 35

Dim S As Integer, K As Integer

K = 1 : S = 0

While K < 8

If K < 4 Then

K = K + 2

S = S + K

Else

K = K + 1

S = S + K

End If

End While

Console.WriteLine(S)

( )17. 執行下列 Visual Basic 程式，輸出結果爲何？ (A)5 (B) 2 (C) 3 (D) 4

Dim A() As Integer = {92, 85, 80, 100, 78, 41, 34, 90}

Dim i, Count_1, Count_2 As Integer

Count_1 = 0 : Count_2 = 0

For i = 0 To 7

If A(i) > 90 Then Count_1 = Count_1 + 1

If A(i) <= 60 Then Count_2 = Count_2 + 1

Next i

Console.WriteLine(Count_1 + Count_2)

第 5 頁，共 7 頁

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

Dim A(5) As Integer

Dim K As Integer

For K = 0 To 5

A(K) = K

Next K

K = 0

While K <= 3

A(K) = (K ^ 2) Mod 3

K = K + 1

End While

Console.WriteLine(A(0) + A(1) + A(2))

19. 在布林運算中，下列何者正確? (A)NOT (A OR A) = 1 (B) NOT (A OR B) = (NOT A) OR (NOT B) (C) NOT (B AND B) = 0 (D) NOT (A OR B) = (NOT A) AND (NOT B)

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

(A)45 (B) 4 (C) 5 (D) 34

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

(A)12 (B) 16 (C) 20 (D) 32

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

(A)26 (B) 25 (C) 2 (D) 1

( )23. 執行下列 Visual Basic 程式，LCM (17, 51) 結果為何? (A)867 (B) 17 (C) 3 (D) 51

```vba
Private Function LCM(ByVal num1 As Integer, ByVal num2 As Integer) As Integer
Return (num1 * num2 / GCD(num1, num2))
End Function
Private Function GCD(ByVal num1 As Integer, ByVal num2 As Integer) As Integer
Dim min, max, maxModMin As Integer
min = Math.Min(num1, num2)
max = Math.Max(num1, num2)
maxModMin = max Mod min
Return If(maxModMin > 0, GCD(min, maxModMin), min)
End Function
```

( )24. 當 X = 1.6754 時，執行下列 Visual Basic 程式，何者值為最大？
(A)
```txt
Int(X * 10 + 0.5) / 10 (B) Int(X + 0.5)
(C) Int(X * 100 + 0.5) / 100 (D) Int(X * 1000 + 0.5) / 1000
```

( )25. 「遞迴」程序會呼叫自己的程序。下列程序，使用遞迴來計算 Fibonacci(7)爲何?

```txt
(A)8 (B) 13 (C) 21 (D) 34
Function Fibonacci(ByVal n As Integer) As Integer
If n <= 1 Then
Return 1
Else
Return Fibonacci(n - 1) + Fibonacci(n - 2)
End If
End Function
```

第 7 頁，共 7 頁

申論題 (0)