( )6. 執行下列 Visual Basic 程式片段，輸出結果為何?
(A) 4
(B) 15
(C) 26
(D) 29
Dim S As Integer, K As Integer
K=1:S=0
While K < 6
If K < 4 Then
K=K+1
S=S+K
Else
K=K+2
S=S+K
End If
End While
Console.WriteLine(S)

( )7. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 18 (B) 12 (C) 16 (D) 36 Dim A, B, C As Integer A = 162 B = 36 While (B > 0) C = A Mod B A=B B=C End While Console.Write(A)

( ) 8. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 2 (B) 3 (C) 6 (D) 12 Dim A, B As Integer A = 18 : B = 12 Do Until A = 0 Or B = 0 If A > B Then A = A Mod B Else B = B Mod A End If Loop If A = 0 Then Console.Write(B) Else Console.Write(A) End If 第2頁 / 共 8 頁

( ) 9. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 12 8 (B) 8 12 (C) 12 12 (D) 8 8 Dim A, B As Integer A = 12 : B = 8 A=A+B:B=A-B:A=A-B Console.WriteLine(A & " " & B)

( )10. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) A (B) B (C) C (D) D Dim X As String Dim Y(20) As Char X = "ABCDE" For I = 0 To Len(X) - 1 Y(I) = Mid(X, 5 - I, 1) Next I Console.WriteLine(Y(1))

( )11. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 12 (B) 13 (C) 15 (D) 18 Dim i, j As Integer Dim S(,) As Integer = {{1, 2, 3, 4}, {5, 6, 7, 8}, {9, 10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}} For i = 0 To 4 For j = 0 To 3 If i = j Then S(i, j) = S(i, j) + i + j Else S(i, j) = S(i, j) + i * j End If Next j Next i Console.WriteLine(S(2, 2))

( )12. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 1 (B) 2 (C) 3 (D) 7 Dim i, j As Integer Dim A(,) As Integer = {{1, 2, 3, 4}, {5, 6, 7, 8}, {9, 10, 11, 12}} Dim B(3, 4) As Integer For i = 0 To 2 For j = 0 To 3 B(j, i) = A(i, j) Next j Next i Console.WriteLine(B(2, 1)) 第3頁 / 共 8 頁

( ) 13. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 111 (B) 45 (C) 168 (D) 0 Dim i, j, k As Integer Dim A(,) As Integer = {{1, 2, 3, 4}, {5, 6, 7, 8}, {1, 2, 3, 4}} Dim B(,) As Integer = {{1, 2, 3, 4, 5}, {4, 5, 6, 7, 8}, {8, 7, 6, 5, 4}, {1, 2, 3, 4, 5}} Dim C(3, 5) As Integer For i = 0 To 2 For j = 0 To 4 For k = 0 To 3 C(i, j) = C(i, j) + A(i, k) * B(k, j) Next k Next j Next i Console.WriteLine(C(0, 2))

( ) 14. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 10 (B) 15 (C) 27 (D) 85 Dim Sum, i, j As Integer Sum = 0 i=0 While i

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

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

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

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

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

111年 - 111 全國高級中等學校學生技藝競賽學科試題_商業類:程式設計#112729

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

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

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

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

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

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