( )20. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 1 (B) 2 (C) 3 (D) 4 Dim A, S As Decimal S = 0 : A = 15 While A &gt; 0 S = S + (A Mod 2) A = Math.Floor(A / 2) End While Console.WriteLine(S)

( )20. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 1 (B) 2 (C) 3 (D) 4 Dim A, S As Decimal S = 0 : A = 15 While A >

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

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

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

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

相關試題

相關試卷