| ( | ) | 1. | 底下程式碼執行結果會在即時視窗出現 Sub test3() Dim i, n As Integer n = 0 For i = 5 To 1 Step -1 n = n + 1 Next i Debug.Print n & "," & i End Sub(1)5,-1 (2)0,5 (3)5,0 (4)5,1 | ||
| ( | ) | 2. | 程式碼如下 LRandomNumber = Int ((300 - 200 + 1) * Rnd + 200)，請問LRandomNumber的範圍為(1)200<=LRandomNumber<=300 (2)201 | ||
| ( | ) | 3. | 底下程式碼執行結果會在即時視窗出現 Sub test4() Dim i, n As Integer n = 0 For i = 5 To 1 Step -1 n = n + 1 i = i - 1 Next i Debug.Print n & "," & i End Sub(1)3,-1 (2)5,0 (3)5,-2 (4)3,0 | ||
| ( | ) | 4. | 底下程式執行時會在即時視窗顯示什麼 Sub test5() Dim std_no As Variant no = Split(",國文,英文,數學,理化", ",") Debug.Print no(3) '顯示陣列索引為3的資料 End Sub(1)國文 (2)英文 (3)數學 (4)理化 | ||
| ( | ) | 5. | 底下程式碼執行結果會在即時視窗出現 Sub test5() Dim i, n As Integer n = 0 For i = 1 To 10 If i Mod 3 = 1 Then n = n + 1 End If Next i Debug.Print n & "," & i End Sub(1)3,10 (2)4,10 (3)5,10 (4)4,11 | ||
| ( | ) | 6. | 工作表如圖 ，若執行底下程式會顯示什麼?Sub test5() Dim i As Integer i = 1 Do While Cells(i + 2, 3).Value <> "" i = i + 1 Loop MsgBox Cells(i + 1, 3).Value End Sub(1)86 (2)62 (3)38 (4)41 | ||
| ( | ) | 7. | 工作表如圖，若執行底下程式會顯示什麼? Sub test8() Dim i As Integer i = 1 Do While Cells(1, i + 1).Value <> "" i = i + 1 Loop MsgBox i End Sub(1)4 (2)3 (3)5 (4)6 | ||
| ( | ) | 8. | 底下程式執行時會在即時視窗顯示什麼 Sub test3() Dim no As Variant no = Array(1, 2, 3, 4, 5) Debug.Print UBound(no) '顯示陣列最大索引值 End Sub(1)0 (2)3 (3)4 (4)5 | ||
| ( | ) | 9. | 在Excel VBA中大於等於的符號是(1)=> (2)<= (3)<> (4)>= | ||
| ( | ) | 10. | 工作表如圖，若執行底下程式會顯示什麼? Sub test9() Dim i As Integer i = 1 Do While Cells(1, i).Value <> "" i = i + 1 Loop MsgBox i End Sub(1)5 (2)6 (3)4 (4)3 | ||
| ( | ) | 11. | 切換設計模式及執行模式圖示是(1)
(2)
(3)
(4)
| ||
| ( | ) | 12. | 在Excel VBA的即時視窗輸入 print 1+2+3 請問會顯示(1)6 (2)0 (3)123 (4)1+2+3 | ||
| ( | ) | 13. | Dim StdNo(10) as String這樣的宣告跟底下那一個相同(1)Dim StdNo(0 to 10) as date (2)Dim StdNo(10) as Integer (3)Dim StdNo(1 to 10) as String (4)Dim StdNo(0 to 10) as String | ||
| ( | ) | 14. | 在Excel 2007要儲存含有巨集的格式,檔案副檔名為(1)csv (2)txt (3)xlsm (4)xlsx | ||
| ( | ) | 15. | 在Excel VBA中要宣告變數I為整數語法為(1)dim I as integer (2)dim I as single (3)dim I as string (4)dim I as date | ||
| ( | ) | 16. | 底下程式執行時會在即時視窗顯示什麼 Sub test2() Dim no As Variant no = Array(1, 2, 3, 4, 5) Debug.Print no(5) '顯示陣列索引為5的資料 End Sub(1)1 (2)出現陣列索引超出範圍 (3)3 (4)4 | ||
| ( | ) | 17. | 在ExcelVBA中要使用除(只取整數的商)要用那一個?(1)mod (2)\ (3)/ (4)* | ||
| ( | ) | 18. | 在Excel VBA中小於等於的符號是(1)>= (2)=> (3)<= (4)=< | ||
| ( | ) | 19. | 變數的命名規則(1)變數名稱不可包含空白、點、，逗號或其他特殊字元 (2)變數名稱不可為關鍵字，例如for、next、while、public等 (3)以上皆是 (4)第一個字元需英文字母 | ||
| ( | ) | 20. | 底下程式執行時會在即時視窗顯示什麼 Sub test8() Dim i As Integer Dim std_no(5) As Integer For i = 1 To 5 std_no(i - 1) = i * 2 - 1 Next Debug.Print std_no(3) '顯示陣列索引為3的資料 End Sub(1)9 (2)3 (3)5 (4)7 | ||
| ( | ) | 21. | 工作表如圖，若執行底下程式會顯示什麼? Sub test1() Dim i As Integer i = 1 Do While Cells(i, 1).Value <> "" i = i + 1 Loop MsgBox i End Sub(1)17 (2)18 (3)15 (4)16 | ||
| ( | ) | 22. | 為了使亂數每次產生的都不一樣，可以在產生亂數前加入那一個指令(1)randomize (2)int (3)dim (4)rand | ||
| ( | ) | 23. | 在Excel VBA的即時視窗輸入 print lcase("How are you")請問會顯示(1)How Are You (2)HOW ARE YOU (3)How are you (4)how are you | ||
| ( | ) | 24. | 在Excel VBA中物件方法的圖示為(1)
(2)
(3)
(4)
| ||
| ( | ) | 25. | 程式碼如下 For i= 1 to 10 cells(1,i).value=i Next i 此程式的執行結果?(1)在儲存格A1:A10填入1到10 (2)在儲存格A1:A10都顯示1 (3)在儲存格A1:J1填入1到10 (4)在儲存格A1:J1填入1到1 |