| ( | ) | 1. | 工作表如圖 ，若執行底下程式會顯示什麼?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)41 (2)86 (3)62 (4)38 | ||
| ( | ) | 2. | 底下程式碼執行結果會在即時視窗出現 Sub test2() Dim i, n As Integer n = 0 For i = 5 To 1 n = n + 1 Next i Debug.Print n & "," & i End Sub(1)5,0 (2)0,5 (3)0,6 (4)5,6 | ||
| ( | ) | 3. | 在Excel中活頁簿的英文名稱為(1)workbook (2)worksheet (3)excel (4)Application | ||
| ( | ) | 4. | 在Excel VBA的即時視窗輸入 print left("N1234",1) 請問會顯示(1)4 (2)1 (3)2 (4)N | ||
| ( | ) | 5. | 程式碼如下 sub test() Dim i As Integer For i = 1 To 10 Cells(i + 1, 1).Value = 11 - i Next i end sub(1)在儲存格C2:C11顯示10到1的數字 (2)在儲存格D2:D11顯示10到1的數字 (3)在儲存格A2:A11顯示10到1的數字 (4)在儲存格B2:B11顯示10到1的數字 | ||
| ( | ) | 6. | 工作表如圖，若執行底下程式會顯示什麼? Sub test4() Dim i As Integer i = 1 Do While Cells(i + 1, 2).Value <> "" i = i + 1 Loop MsgBox Cells(i, 2).Value End Sub (1)37 (2)63 (3)68 (4)0 | ||
| ( | ) | 7. | 在Excel VBA的即時視窗輸入 print len(trim(" 1+2=3 ")) 請問會顯示(1)4 (2)5 (3)6 (4)0 | ||
| ( | ) | 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. | 程式碼如下 For i= 1 to 10 cells(i,1).value=1 Next i 此程式的執行結果?(1)在儲存格A1:A10都顯示1 (2)在儲存格A1:J1填入1到10 (3)在儲存格A1:J1填入1到1 (4)在儲存格A1:A10填入1到10 | ||
| ( | ) | 10. | 在Excel VBA中物件方法的圖示為(1)
(2)
(3)
(4)
| ||
| ( | ) | 11. | 底下程式執行時會在即時視窗顯示什麼 Sub test4() Dim std_no As Variant no = Split("國文,英文,數學,理化", ",") Debug.Print no(3) '顯示陣列索引為3的資料 End Sub(1)數學 (2)理化 (3)國文 (4)英文 | ||
| ( | ) | 12. | 在Excel VBA的即時視窗輸入 print 2^3請問會顯示(1)23 (2)1 (3)8 (4)6 | ||
| ( | ) | 13. | 請問此圖 那一個的真值表(1)xor
(2)or
(3)and
(4)not
| ||
| ( | ) | 14. | 程式碼如下 For i= 1 to 9 For j=1 to 9 cells(i,j).value=i*j Next j Next i當i=5,j=3時,執行結果(1)在儲存格C5顯示5 (2)在儲存格E3顯示15 (3)在儲存格C5顯示15 (4)在儲存格E3顯示3 | ||
| ( | ) | 15. | 在Excel VBA中要宣告變數I為字串語法為(1)dim I as string (2)dim I as date (3)dim I as integer (4)dim I as single | ||
| ( | ) | 16. | 程式碼如下 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 | ||
| ( | ) | 17. | 修改Excel按鈕顯示文字是使用那一個屬性(1)name (2)text (3)value (4)caption | ||
| ( | ) | 18. | 工作表如圖，若執行底下程式會顯示什麼? Sub test2() Dim i As Integer i = 1 Do While Cells(i + 1, 1).Value <> "" i = i + 1 Loop MsgBox i End Sub(1)18 (2)15 (3)16 (4)17 | ||
| ( | ) | 19. | 工作表如圖，若執行底下程式會顯示什麼? 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 | ||
| ( | ) | 20. | 在Excel VBA要強制宣告變數才可以使用，要在程式的最上方加上(1)Explicit (2)dim (3)Option Explicit (4)Option | ||
| ( | ) | 21. | 在Excel VBA中物件屬性的圖示為(1)
(2)
(3)
(4)
| ||
| ( | ) | 22. | 底下程式執行時會在即時視窗顯示什麼 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)1 (2)2 (3)3 (4)4 | ||
| ( | ) | 23. | 程式碼如下 For i= 1 to 10 cells(1,i).value=i Next i 此程式的執行結果?(1)在儲存格A1:A10都顯示1 (2)在儲存格A1:J1填入1到10 (3)在儲存格A1:J1填入1到1 (4)在儲存格A1:A10填入1到10 | ||
| ( | ) | 24. | 在Excel VBA中不等於的符號是(1)>=< (2)== (3)!= (4)<> | ||
| ( | ) | 25. | inputbox的回傳值型別是(1)integer (2)string (3)single (4)date |