| ( | ) | 1. | 在Excel 中要如何在變數d設定為日期1972/3/31(1)d=#1972/3/31# (2)d="1972/3/31" (3)d='1972/3/31' (4)d=1972/3/31 | ||
| ( | ) | 2. | 工作表如圖 ，若執行底下程式會顯示什麼?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 | ||
| ( | ) | 3. | 在Excel中工作表的英文名稱為(1)excel (2)Application (3)workbook (4)worksheet | ||
| ( | ) | 4. | 底下程式執行時會在即時視窗顯示什麼 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 | ||
| ( | ) | 5. | 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 | ||
| ( | ) | 6. | 底下程式執行時會在即時視窗顯示什麼 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)3 (2)4 (3)1 (4)2 | ||
| ( | ) | 7. | 在Excel VBA的即時視窗輸入? Mid("daylong", 2, 3)請問會顯示(1)yl (2)ylo (3)ay (4)ayl | ||
| ( | ) | 8. | 工作表如圖，若執行底下程式會顯示什麼? Sub test2() Dim i As Integer i = 1 Do While Cells(i + 1, 1).Value <> "" i = i + 1 Loop MsgBox i End Sub(1)16 (2)17 (3)18 (4)15 | ||
| ( | ) | 9. | 在Excel中活頁簿的英文名稱為(1)excel (2)Application (3)workbook (4)worksheet | ||
| ( | ) | 10. | 在Excel VBA的即時視窗輸入 print 1 & 2 + 3 請問會顯示(1)6 (2)0 (3)15 (4)123 | ||
| ( | ) | 11. | 底下程式執行時會在即時視窗顯示什麼 Sub test5() Dim std_no As Variant no = Split(",國文,英文,數學,理化", ",") Debug.Print no(3) '顯示陣列索引為3的資料 End Sub(1)國文 (2)英文 (3)數學 (4)理化 | ||
| ( | ) | 12. | 在Excel VBA的即時視窗輸入 print lcase("How are you")請問會顯示(1)How Are You (2)HOW ARE YOU (3)How are you (4)how are you | ||
| ( | ) | 13. | 在 圖中的數字4代表(1)worksheet
(2)range
(3)cell
(4)workbook
| ||
| ( | ) | 14. | 在Excel VBA的即時視窗輸入 print len(trim(" 1+2=3 ")) 請問會顯示(1)5 (2)6 (3)0 (4)4 | ||
| ( | ) | 15. | 在Excel VBA中變數的宣告要使用那一個指令(1)let (2)print (3)set (4)dim | ||
| ( | ) | 16. | 請問 此圖那一個的真值表(1)or
(2)and
(3)not
(4)xor
| ||
| ( | ) | 17. | 在Excel VBA的中斷模式時，按那一個按鈕可以逐一行執行(1)F8 (2)F5 (3)shift+F8 (4)Ctrl+Shift+F9 | ||
| ( | ) | 18. | 底下程式碼執行結果會在執行視窗出現 Sub test1() Dim i, n As Integer n = 0 For i = 1 To 9 Step 4 n = n + 1 Next i Debug.Print n & "," & i End Sub(1)10,10 (2)3,13 (3)4,10 (4)3,10 | ||
| ( | ) | 19. | 修改Excel按鈕顯示文字是使用那一個屬性(1)name (2)text (3)value (4)caption | ||
| ( | ) | 20. | 請問此圖 那一個的真值表(1)or
(2)and
(3)not
(4)xor
| ||
| ( | ) | 21. | 底下程式執行時會在即時視窗顯示什麼 Sub test3() Dim no As Variant no = Array(1, 2, 3, 4, 5) Debug.Print UBound(no) '顯示陣列最大索引值 End Sub(1)3 (2)4 (3)5 (4)0 | ||
| ( | ) | 22. | 工作表如圖，若執行底下程式會顯示什麼? 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 | ||
| ( | ) | 23. | 在Excel VBA的即時視窗輸入 print 2^3請問會顯示(1)8 (2)6 (3)23 (4)1 | ||
| ( | ) | 24. | 為了使亂數每次產生的都不一樣，可以在產生亂數前加入那一個指令(1)dim (2)rand (3)randomize (4)int | ||
| ( | ) | 25. | 底下程式執行時會在即時視窗顯示什麼 Sub test4() Dim std_no As Variant no = Split("國文,英文,數學,理化", ",") Debug.Print no(3) '顯示陣列索引為3的資料 End Sub(1)數學 (2)理化 (3)國文 (4)英文 |