| ( | ) | 1. | 底下程式執行時會在即時視窗顯示什麼 Sub test7() Dim i As Integer Dim std_no(5) As Integer For i = 1 To 5 std_no(i - 1) = i - 1 Next Debug.Print std_no(3) '顯示陣列索引為3的資料 End Sub(1)2 (2)3 (3)4 (4)1 | ||
| ( | ) | 2. | 底下程式執行時會在即時視窗顯示什麼 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 | ||
| ( | ) | 3. | 底下程式執行時會在即時視窗顯示什麼 Sub test6() Dim i As Integer Dim std_no(5) As Integer For i = 1 To 5 std_no(i) = i Next Debug.Print std_no(3) '顯示陣列索引為3的資料 End Sub(1)4 (2)1 (3)2 (4)3 | ||
| ( | ) | 4. | 底下程式執行時會在即時視窗顯示什麼 Sub test5() Dim std_no As Variant no = Split(",國文,英文,數學,理化", ",") Debug.Print no(3) '顯示陣列索引為3的資料 End Sub(1)理化 (2)國文 (3)英文 (4)數學 | ||
| ( | ) | 5. | 工作表如圖 ，若執行底下程式會顯示什麼?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 | ||
| ( | ) | 6. | 底下程式執行時會在即時視窗顯示什麼 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)5 (2)7 (3)9 (4)3 | ||
| ( | ) | 7. | 工作表如圖，若執行底下程式會顯示什麼? Sub test7() Dim i As Integer i = 1 Do While Cells(i + 1, 3).Value <> "" And Cells(i + 2, 3).Value <> "" i = i + 1 Loop MsgBox Cells(i, 3).Value End Sub (1)38 (2)41 (3)86 (4)62 | ||
| ( | ) | 8. | Dim StdNo(10) as String這樣的宣告跟底下那一個相同(1)Dim StdNo(10) as Integer (2)Dim StdNo(1 to 10) as String (3)Dim StdNo(0 to 10) as String (4)Dim StdNo(0 to 10) as date | ||
| ( | ) | 9. | 工作表如圖，若執行底下程式會顯示什麼? Sub test10() Dim i As Integer i = 1 Do While Cells(6, i).Value <> "" i = i + 1 Loop MsgBox i End Sub(1)1 (2)2 (3)3 (4)4 | ||
| ( | ) | 10. | 底下程式執行時會在即時視窗顯示什麼 Sub test4() Dim std_no As Variant no = Split("國文,英文,數學,理化", ",") Debug.Print no(3) '顯示陣列索引為3的資料 End Sub(1)國文 (2)英文 (3)數學 (4)理化 | ||
| ( | ) | 11. | 底下程式執行時會在即時視窗顯示什麼 Sub test2() Dim no As Variant no = Array(1, 2, 3, 4, 5) Debug.Print no(5) '顯示陣列索引為5的資料 End Sub(1)4 (2)1 (3)出現陣列索引超出範圍 (4)3 | ||
| ( | ) | 12. | 工作表如圖，若執行底下程式會顯示什麼? Sub test6() Dim i As Integer i = 1 Do While Cells(i + 1, 3).Value <> "" Or Cells(i + 2, 3).Value <> "" i = i + 1 Loop MsgBox Cells(i, 3).Value End Sub(1)50 (2)59 (3)62 (4)41 | ||
| ( | ) | 13. | 使用array函數建立陣列,型別必須為(1)int (2)string (3)date (4)variant | ||
| ( | ) | 14. | 工作表如圖，若執行底下程式會顯示什麼? Sub test9() Dim i As Integer i = 1 Do While Cells(1, i).Value <> "" i = i + 1 Loop MsgBox i End Sub(1)4 (2)3 (3)5 (4)6 | ||
| ( | ) | 15. | 底下程式執行時會在即時視窗顯示什麼 Sub test1() Dim no As Variant no = Array(1, 2, 3, 4, 5) Debug.Print no(1) '顯示陣列索引為1的資料 End Sub(1)3 (2)4 (3)1 (4)2 |