( )19. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 3 (B) 4 (C) 6 (D) 8 ```vba Dim A, S As Integer S = 0 : A = 19 While A &gt; 0 S = S + (A Mod 16) A = A / 16 End While Console.WriteLine(S) ``` 第 5 頁 / 共 7 頁

( )19. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 3 (B) 4 (C) 6 (D) 8 ```vba Dim A, S As Integer S = 0 : A = 19 While

阿摩線上測驗 · 2026-06-02T13:51:37+08:00

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

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

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

相關試題

相關試卷