( ) 16. 執行下列 Visual Basic 程式片段，輸出結果為何?
(A) 27
(B) 28
(C) 29
(D) 30

```vba
Dim Sum, i, j As Integer
Sum = 0 : i = 0
While i <= 7
For j = 1 To i
Sum = Sum + 1
Next j
i = i + 1
End While
Console.WriteLine(Sum)
```

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

( )18. 執行下列Visual Basic程式片段，輸出結果為何? (A) 1 (B) 2 (C) 3 (D) 4 Dim ans, num As Integer Dim a As String num = 1025 ans = 0 a = Convert.ToString(num, 2) For k = 1 To Len(a) If Mid(a, k, 1) = "1" Then ans = ans + 1 End If Next Console.WriteLine(ans) 提示: 'Console.WriteLine(Convert.ToString(14, 2)) '1110 'Console.WriteLine(Convert.ToString(13, 2)) '1101

( )19. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 112 (B) 113 (C) 114 (D) 115 Dim b(3) As String Dim c(3) As String Dim id(3) As String b(0) = Convert.ToString(115, 2) Do Until Len(b(0)) = 8 b(0) = "0" & b(0) Loop c(0) = Convert.ToString(252, 2) Do Until Len(c(0)) = 8 c(0) = "0" & c(0) Loop For i = 1 To 8 If Mid(b(0), i, 1) = Mid(c(0), i, 1) And Mid(b(0), i, 1) = 1 Then id(0) = id(0) & "1" Else id(0) = id(0) & "0" End If Next Console.WriteLine(Convert.ToInt32(id(0), 2)) 提示: 'Console.WriteLine(Convert.ToInt32(1110, 2)) '14 'Console.WriteLine(Convert.ToInt32(1101, 2)) '13 第 7 頁，共 9 頁

( )20. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 0 (B) 1 (C) 2 (D) 3 Console.Write((107 Mod 13) Mod 4)

( )21. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 78 (B) 82 (C) 83 (D) 75 Dim a() As Integer = {3, 4, 5, 6, 7, 8, 9} Dim b As Integer For i As Integer = 1 To 3 b += a.Where(Function(o) o Mod i = 0).Sum() Next Console.WriteLine(b)

( )22. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 22 (B) 6 (C) F (D) 15 Console.Write(Hex(15))

( )23. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 0 (B) 1 (C) 2 (D) 3 Console.Write((Math.Pow(2, 7) Mod 13) Mod 4)

( )24. 執行下列 Visual Basic 程式片段，輸出結果為何? (A) 8 (B) 5 (C) 4 (D) 3 Sub Main() Console.WriteLine(X(X(3))) 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 第 8 頁，共 9 頁

( )25.執行下列 Visual Basic 程式片段，輸出結果為何? (A) 16 (B)29 (C) 32 (D) 54 ```vba Sub Main( ) Console.WriteLine(F25_2017(6)) End Sub Function F25_2017(ByVal n As Integer) As Integer If n = 1 Or n = 2 Or n = 3 Then Return n + 1 Else Return F25_2017(n - 1) + F25_2017(n - 2) + F25_2017(n - 3) End If End Function ``` 第 9 頁，共 9 頁

1. 針對全校學生進行以心理健康促進與適性發展為目的之輔導，在三級輔導模式中屬於哪一級？ (A) 介入性輔導 (B) 發展性輔導 (C) 處遇性輔導 (D) 臨床性輔導

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