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

( )1. 執行以下 Visual Basic 程式片段，其結果為何？
(A) 15 (B) 12 (C) 7 (D) 3

( )2. 執行以下 Visual Basic 程式片段，其結果為何？(A)239 (B) 255 (C) 223 (D) 207

Dim i, j As Byte

i = &HFC

j = &H13

Console.WriteLine(i Xor j)

( )3. 執行下列 Visual Basic 程式片段，其結果為何？(A) 2530 (B) 3025 (C) 2515 (D) 3030

Dim k1, k2, j As Integer

k1 = 0 : k2 = 0

For j = 1 To 10

If j Mod 2 = 0 Then

k1 = k1 + j

Else

k2 = k2 + j

End If

Next j

Console.Write(k1) : Console.WriteLine(k2)

第 1 頁，共 9 頁

( )4. 執行以下 Visual Basic 程式片段，其結果為何？(A) 16 (B) 18 (C) 10 (D) 14

```vba
Dim i, j, c As Integer
c = 0 : j = 4
Do
For i = 1 To j + 1
If i Mod 2 = 0 Then
c = c + i
End If
Next
j = j - 1
Loop Until j <= 0
Console.WriteLine(c)
```

( )5. 執行下列 Visual Basic 程式片段，輸出結果為何？(A) 1 (B) 5 (C) 8 (D) 2

```vba
Dim id As String
Dim pass() As String = Split("0 10 11 12 13", " ")
Dim sum, a As Integer
id = "A123"
id = Replace(id, Mid(id, 1, 1), pass(Asc(Mid(id, 1, 1)) - 64))
sum = Val(Mid(id, 1, 1)) * 1
a = 2
For k = 3 To 1 Step -1
sum = sum + Val(Mid(id, a, 1)) * k
a = a + 1
Next
Console.WriteLine(sum Mod 10)
```

( )6. 執行下列 Visual Basic 程式片段，輸出結果為何？(A)-1 (B)NULL (C)False (D)0

```txt
Dim array As Integer() = New Integer(4) {}
array(2) = 3
array(4) = 5
Console.WriteLine(array(3))
```

第 2 頁，共 9 頁

( )7. 執行下列 Visual Basic 程式片段，輸出結果為何? (A)20 (B)21 (C)22 (D)29

```vba
Dim array As Integer() = New Integer(10) {}
Dim i As Integer
array(0) = 1
For i = 1 To 10
array(i) = array(i - 1) + i
Next
Console.WriteLine(array(6))
```

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

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

( )9. 執行下列 Visual Basic 程式片段，輸出結果為何? (A)1 (B)12 (C)14 (D)15

```vba
Dim A(3, 3) As Integer
For I = 1 To 3
For J = 1 To 3
If J = 1 Then
A(I, J) = A(I - 1, J - 1) + I + J
Else
A(I, J) = A(I - 1, J - 1) + I + J + 1
End If
Next J
Next I
Console.Write(A(3, 3))
```

第 3 頁，共 9 頁

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

```vba
Sub Main( )
Dim K As Integer
K = GAME(5)
Console.WriteLine(K)
End Sub
Function GAME(ByVal X As Integer) As Integer
If (X > 3) Then
GAME = X + GAME(X - 1) + GAME(X - 2) + GAME(X - 3)
Else
GAME = X
End If
End Function
```

( )11. 執行下列 Visual Basic 程式片段，輸出結果為何?(A) 0 (B) 6 (C) 7 (D) 8

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

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

```vba
Dim I, J, K, Temp, A(5) As Integer
For K = 0 To 5
A(K) = (K ^ 2 + 1) Mod 5
Next K
For I = 5 To 1 Step -1
For J = 0 To I - 1
If A(J) > A(J + 1) Then
Temp = A(J)
A(J) = A(J + 1)
A(J + 1) = Temp
End If
Next
Next
Console.WriteLine(A(4))
```

第 4 頁，共 9 頁

( ) 13. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 58 (B) 47 (C) 59 (D) 48

```vba
Dim i, j, k, sum As Integer
sum = 0
For i = 0 To 3
For j = i To 4
For k = j To 5
sum = sum + 1
Next
Next
Next
Console.WriteLine(sum)
```

( ) 14. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 78 (B) 76 (C) 68 (D) 62

```vba
Dim i, j, k, sum As Integer
sum = 0
For i = 0 To 3
For j = i To 4
For k = i To 5
sum = sum + 1
Next
Next
Console.WriteLine(sum)
```

( ) 15. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 4 (B) 5 (C) 25 (D) 30

```vba
Dim i, j, S As Integer
S = 0 : i = 0 : j = 0
Do While i <= 5
Do While j <= 4
S = S + 1
j = j + 1
Loop
i = i + 1
Loop
Console.Write(S)
```

第 5 頁，共 9 頁

( ) 16. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 27 (B) 28 (C) 29 (D) 30

```vba
Dim Sum, i, j As Integer
Sum = 0 : i = 0
While i <= 7
For j = 1 To i
Sum = Sum + 1
Next j
i = i + 1
End While
Console.WriteLine(Sum)
```