6. 執行以下 Visual Basic 程式片段，其結果為何？

(A)5
(B) 13
(C) 14
(D) 29

答案：登入後查看
統計： 尚無統計資料

相關試題

( )7. 執行以下 Visual Basic 程式，其 A(4, 4) 結果為何？ (A)0 (B) 20 (C) 70 (D) 112 ```vba Dim A(4, 4) For i = 0 To 4 For j = 0 To 4 A(i, j) = i + j Next Next For i = 2 To 4 For j = 2 To 4 A(i, j) = A(i - 1, j) + A(i, j - 1) Next Next Console.Write(A(4, 4)) ```

( )8. 執行下列 Visual Basic 程式，輸出結果為何？ ```vba (A) 7, 11 (B) 6, 24 (C) 3, 6 (D) 6, 10 Dim A(5), i, Sum As Integer Sum = 1 For i = 1 To 5 Sum = Sum * i A(i) = Sum Next i Console.Write(A(3)) Console.Write(", ") Console.WriteLine(A(4)) ``` 第 2 頁，共 7 頁

( ) 9. 執行下列 Visual Basic 程式，輸出結果為何? (A) 0 (B) 1 (C) 2 (D) 11 Dim A, B, Count As Integer A = 1 : B = 5 : Count = 0 For C = A - B To A + B Step 1 Count = Count + C Mod 1 Next C Console.WriteLine(Count)

( ) 10. 執行下列 Visual Basic 程式，輸出結果為何? (A)0 (B) 6 (C) 10 (D) 20 Dim A(4, 4), i, j As Integer For i = 0 To 3 For j = 0 To 3 A(i, j) = 1 Next Next For i = 1 To 3 For j = 1 To 3 A(i, j) = A(i - 1, j) + A(i, j - 1) Next Next Console.WriteLine(A(3, 3))

( ) 11. 執行下列 Visual Basic 程式，輸出結果為何? (A) 1 (B) 2 (C) 3 (D) 4 Sub Main() Dim A() As Integer = {0, 2, 5, 3, 4, 1} Dim i, j As Integer For i = 1 To 4 For j = i + 1 To 5 If A(i) < A(j) Then SWAP(A(i), A(j)) Next j Next i Console.WriteLine(A(4)) End Sub Sub SWAP(ByRef A, ByRef B) Dim T As Integer T = B : B = A : A = T End Sub 第 3 頁，共 7 頁

( )12. 執行下列 Visual Basic 程式，輸出結果為何? (A)0 (B) 20 (C) 30 (D) 60 Dim i, Sum As Double For i = -4 To 4 Sum = Sum + Math.Pow(i, 2) Next Console.WriteLine(Sum) 提示: Math.Pow(-3, 2) = (-3)^2 = 9；Math.Pow(1, 2) = 1^2 = 1。

( )13. 執行下列 Visual Basic 程式，輸出結果為何? (A)6 (B) 8 (C) 21 (D) 45 Dim A(3, 3), i, j As Integer For i = 0 To 3 For j = 0 To 3 If (i Mod 2) = 1 Then A(i, j) = i + j Else A(i, j) = i * j End If Next Next For i = 1 To 3 For j = 1 To 3 A(i, j) = A(i - 1, j) + A(i, j - 1) + A(i - 1, j - 1) Next Next Console.WriteLine(A(3, 3))

( )14. 執行下列 Visual Basic 程式，輸出結果為何? (A) 18 (B) 19 (C) 20 (D) 21 Dim Sum, i, j As Integer Sum = 0 i = 4 While i >= 0 For j = 1 To i Sum = Sum + j Next j i = i - 1 End While Console.WriteLine(Sum + i) 第 4 頁，共 7 頁

( )15. 執行下列 Visual Basic 程式，何者與 A(3, 2) 之值相同？ (A)A(1, 3) (B) A(2, 2) (C) A(2, 3) (D) A(3, 3) Dim A(5, 5), i, j As Integer For i = 1 To 5 For j = 1 To 5 A(i, j) = (i + 1) * (j - 1) Next j Next i

( )16. 執行下列 Visual Basic 程式，輸出結果爲何？ (A)21 (B) 23 (C) 29 (D) 35 Dim S As Integer, K As Integer K = 1 : S = 0 While K < 8 If K < 4 Then K = K + 2 S = S + K Else K = K + 1 S = S + K End If End While Console.WriteLine(S)

相關試卷

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

2025 年 · #140178

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

2023 年 · #140179

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

2022 年 · #140166

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

2022 年 · #112729

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

2021 年 · #140064

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

2020 年 · #140451

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

2017 年 · #140401

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

2017 年 · #140235

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

2016 年 · #140232

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

2015 年 · #140384