13. 執行下列 Visual Basic 程式片段，輸出結果為何?
(A) A
(B) B
(C) C
(D) D Dim A, B, C, X As Integer A = 1 : B = 15 : C = 12 X = C \ (B \ 10) ^ 2 '提示: B \ 10 為整數除法 If (A Mod 2 <> 0) Then If X < 12 Then Console.Write("A") Else Console.Write("B") End If Else If X < 12 Then Console.Write("C") Else Console.Write("D") End If End If 第3頁 / 共 7 頁

14. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 10 (B) 15 (C) 27 (D) 0 Dim Sum, i, j As Integer Sum = 0 i=0 While i <= 5 For j = 1 To i +2 Sum = Sum + 1 Next j i=i+1 End While Console.WriteLine(Sum)

15. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 4 (B) 5 (C) 6 (D) 7 Dim i, n, m, K, Sum As Integer K = 13 Sum = 0 For n = 2 To K m=0 For i = 1 To n - 1 If n Mod i = 0 Then m=m+1 End If Next i If m <= 1 Then Sum = Sum + 1 End If Next n Console.WriteLine(Sum)

16. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 8 (B) 4 (C) 2 (D) 12 Sub Main() Console.WriteLine(F16(2, 2)) End Sub Function F16(ByVal A, ByVal B) As Integer If (A > 0) And (B > 0) Then Return (F16(A - 1, B) + F16(A, B - 1)) Else Return (A + B) End If End Function 第4頁 / 共 7 頁

17. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 4 (B) 5 (C) 6 (D) 7 Dim i, n, Sum As Integer Dim S As String Dim isPrime As Boolean Sum = 0 For n = 10 To 20 isPrime = True For i = 2 To Math.Sqrt(n) If n Mod i = 0 Then isPrime = False Exit For End If Next If isPrime = True Then Sum = Sum + 1 End If Next Console.WriteLine(Sum)

18. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 18 (B) 15 (C) 21 (D) 63 Dim i, S As Integer S=0:i=0 While i <= 10 S=S+i i=i+3 End While Console.Write(S)

19. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 18 (B) 21 (C) 24 (D) 48

20. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 3 (B) 4 (C) 6 (D) 8 Dim a, b, c, i As Integer a = 24 : b = 16 If (a > b) Then c=b Else c=a End If For i = c To 1 Step -1 If (a Mod i = 0) And (b Mod i = 0) Then Console.WriteLine(i) Exit For End If Next i

21. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 3 (B) 4 (C) 8 (D) 18 Dim n, S, i As Integer S = 0: n = 10 For i = 1 To n If (n Mod i) = 0 Then S=S+1 End If Next i Console.WriteLine(S)

22. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 3 (B) 4 (C) 8 (D) 16 Sub Main() Console.WriteLine(X(4)) End Sub Function X(ByVal n) As Integer If n = 1 Then Return 1 Else If (n Mod 2 = 1) Then Return X(n * 3 + 1) + 1 Else Return X(n / 2) + 1 End If End If End Function

23. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 3 (B) 5 (C) 8 (D) 13 Sub Main() Console.WriteLine(F(7)) End Sub Function F(ByVal n) As Integer Dim a1, a2, a3, i As Integer a1 = 0 : a2 = 1 If n = 0 Or n = 1 Then Return n End If For i = 2 To n a3 = a1 + a2 a1 = a2 a2 = a3 Next Return a3 End Function

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 全國高級中等學校學生技藝競賽考試_商業類:程式設計#140384