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

```vba
Dim Number As String
Number = "456789"
Dim Int(5) As Integer
Dim x, num, sun As Integer
For x = 0 To 5
num = Number.Substring(x, 1)
If (x + 1) Mod 2 <> 0 Then '偶數乘1奇數乘2
Int(x) = num * 2
Else
Int(x) = num
End If
Next
For x = 0 To 5
If (Int(x) > 9) Then
Int(x) = Int(x) - 9
End If
sun += Int(x)
Next
Console.WriteLine(sun Mod 10)
```

第 6 頁，共 9 頁

答案：登入後查看
統計： 尚無統計資料