| ( | ) | 1. | 程式碼如下 For i= 1 to 10 cells(1,i).value=1 Next i 此程式的執行結果?(1)在儲存格A1:A10填入1到10 (2)在儲存格A1:A10都顯示1 (3)在儲存格A1:J1填入1到10 (4)在儲存格A1:J1填入1到1 | ||
| ( | ) | 2. | 請問 此圖那一個的真值表(1)not
(2)xor
(3)or
(4)and
| ||
| ( | ) | 3. | 工作表如圖 ，若執行底下程式會顯示什麼?Sub test10() Dim i As Integer i = 1 Do While Cells(6, i).Value <> "" i = i + 1 Loop MsgBox i End Sub(1)2 (2)3 (3)4 (4)1 | ||
| ( | ) | 4. | 底下程式執行時會在即時視窗顯示什麼 Sub test4() Dim std_no As Variant no = Split("國文,英文,數學,理化", ",") Debug.Print no(3) '顯示陣列索引為3的資料 End Sub(1)數學 (2)理化 (3)國文 (4)英文 | ||
| ( | ) | 5. | 工作表如圖，若執行底下程式會顯示什麼? 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)62 (2)38 (3)41 (4)86 | ||
| ( | ) | 6. | 底下程式碼執行結果會在即時視窗出現 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,0 (2)3,-1 (3)5,0 (4)5,-2 | ||
| ( | ) | 7. | 工作表如圖，若執行底下程式會顯示什麼? Sub test3() Dim i As Integer i = 1 Do While Cells(i, 2).Value <> "" i = i + 1 Loop MsgBox i End Sub (1)6 (2)7 (3)8 (4)5 | ||
| ( | ) | 8. | 程式碼如下 LRandomNumber = Int ((300 - 200 + 1) * Rnd + 200)，請問LRandomNumber的範圍為(1)200 | ||
| ( | ) | 9. | 底下程式執行時會在即時視窗顯示什麼 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 | ||
| ( | ) | 10. | 在Excel 2007要儲存含有巨集的格式,檔案副檔名為(1)csv (2)txt (3)xlsm (4)xlsx | ||
| ( | ) | 11. | 在Excel VBA參數與參數中間是用什麼符號區隔(1)逗點 (2)等號 (3)冒號 (4)減號 | ||
| ( | ) | 12. | 請問 此圖那一個的真值表(1)or
(2)and
(3)not
(4)xor
| ||
| ( | ) | 13. | 在 圖中的數字6代表(1)range
(2)cell
(3)workbook
(4)worksheet
| ||
| ( | ) | 14. | 在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" | ||
| ( | ) | 15. | MsgBox的回傳值型別是(1)date (2)integer (3)string (4)single | ||
| ( | ) | 16. | 底下程式執行時會在即時視窗顯示什麼 Sub test1() Dim no As Variant no = Array(1, 2, 3, 4, 5) Debug.Print no(1) '顯示陣列索引為1的資料 End Sub(1)2 (2)3 (3)4 (4)1 | ||
| ( | ) | 17. | 在ExcelVBA中要將3顯示在即時視窗要如何使用(1)print 3 (2)debug.print 3 (3)echo 3 (4)debug.echo 3 | ||
| ( | ) | 18. | 底下程式執行時會在即時視窗顯示什麼 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 | ||
| ( | ) | 19. | 底下程式執行時會在即時視窗顯示什麼 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 | ||
| ( | ) | 20. | 在Excel物件的使用方式中是用什麼來表示階層(1)減號 (2)句號 (3)等號 (4)冒號 | ||
| ( | ) | 21. | 工作表如圖，若執行底下程式會顯示什麼? Sub test8() Dim i As Integer i = 1 Do While Cells(1, i + 1).Value <> "" i = i + 1 Loop MsgBox i End Sub(1)3 (2)5 (3)6 (4)4 | ||
| ( | ) | 22. | 在圖中的數字1代表(1)worksheet
(2)cell
(3)row(列)
(4)column(行)
| ||
| ( | ) | 23. | 在Excel VBA的中斷模式時，按那一個按鈕可以逐一行執行(1)F8 (2)F5 (3)shift+F8 (4)Ctrl+Shift+F9 | ||
| ( | ) | 24. | 在Excel VBA的即時視窗輸入? Mid("daylong", 2, 3)請問會顯示(1)ylo (2)ay (3)ayl (4)yl | ||
| ( | ) | 25. | inputbox的回傳值型別是(1)date (2)integer (3)string (4)single |