( ) | 1.底下程式執行時會在即時視窗顯示什麼 Sub test5() Dim std_no As Variant no = Split(",國文,英文,數學,理化", ",") Debug.Print no(3) '顯示陣列索引為3的資料 End Sub
(第四天測驗-07) |
| (1) | 英文 |
| (2) | 數學 |
| (3) | 理化 |
| (4) | I don't know |
| (5) | 國文 |
( ) | 2.底下程式碼執行結果會在即時視窗出現 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
(第三天測驗-14) |
| (1) | 4,11 |
| (2) | 3,10 |
| (3) | 4,10 |
| (4) | 5,10 |
| (5) | I don't know |
( ) | 3.在Excel VBA的即時視窗輸入 print 1+2+3 請問會顯示
(第二天測驗-28) |
| (1) | 6 |
| (2) | 0 |
| (3) | I don't know |
| (4) | 123 |
| (5) | 1+2+3 |
( ) | 4.Dim StdNo(10) as String這樣的宣告跟底下那一個相同
(第四天測驗-05) |
| (1) | Dim StdNo(0 to 10) as String |
| (2) | Dim StdNo(0 to 10) as date |
| (3) | Dim StdNo(10) as Integer |
| (4) | I don't know |
| (5) | Dim StdNo(1 to 10) as String |
( ) | 5.在圖中的數字5代表
(第一天測驗-27) |
| (1) | range |
| (2) | cell |
| (3) | I don't know |
| (4) | row |
| (5) | column |
( ) | 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
(第三天測驗-20) |
| (1) | 41 |
| (2) | I don't know |
| (3) | 86 |
| (4) | 62 |
| (5) | 38 |
( ) | 7.在圖中的數字1代表
(第一天測驗-23) |
| (1) | row(列) |
| (2) | column(行) |
| (3) | worksheet |
| (4) | cell |
| (5) | I don't know |
( ) | 8.底下程式執行時會在即時視窗顯示什麼 Sub test2() Dim no As Variant no = Array(1, 2, 3, 4, 5) Debug.Print no(5) '顯示陣列索引為5的資料 End Sub
(第四天測驗-03) |
| (1) | I don't know |
| (2) | 出現陣列索引超出範圍 |
| (3) | 3 |
| (4) | 4 |
| (5) | 1 |
( ) | 9.在ExcelVBA中要使用餘數要用那一個?
(第二天測驗-05) |
| (1) | I don't know |
| (2) | \ |
| (3) | / |
| (4) | * |
| (5) | mod |
( ) | 10.在Excel VBA的即時視窗輸入 print len(trim(" 1+2=3 ")) 請問會顯示
(第二天測驗-20) |
| (1) | 0 |
| (2) | I don't know |
| (3) | 4 |
| (4) | 5 |
| (5) | 6 |
( ) | 11.工作表如圖,若執行底下程式會顯示什麼? Sub test3() Dim i As Integer i = 1 Do While Cells(i, 2).Value <> "" i = i + 1 Loop MsgBox i
End Sub
(第三天測驗-18) |
| (1) | 5 |
| (2) | 6 |
| (3) | 7 |
| (4) | 8 |
| (5) | I don't know |
( ) | 12.在Excel VBA中不等於的符號是
(第二天測驗-12) |
| (1) | >=< |
| (2) | == |
| (3) | I don't know |
| (4) | != |
| (5) | <> |
( ) | 13.在Excel VBA的即時視窗輸入 print lcase("How are you")請問會顯示
(第二天測驗-24) |
| (1) | I don't know |
| (2) | HOW ARE YOU |
| (3) | How are you |
| (4) | how are you |
| (5) | How Are You |
( ) | 14.修改Excel按鈕顯示文字是使用那一個屬性
(第一天測驗-16) |
| (1) | name |
| (2) | text |
| (3) | value |
| (4) | I don't know |
| (5) | caption |
( ) | 15.在Excel VBA中要宣告變數I為整數語法為
(第一天測驗-05) |
| (1) | I don't know |
| (2) | dim I as integer |
| (3) | dim I as single |
| (4) | dim I as string |
| (5) | dim I as date |
( ) | 16.使用debug.print rnd(1)不可能產生那一個數字
(第三天測驗-01) |
| (1) | I don't know |
| (2) | 1 |
| (3) | 0 |
| (4) | 0.99 |
| (5) | 0.5 |
( ) | 17.在Excel VBA中大於等於的符號是
(第二天測驗-10) |
| (1) | <> |
| (2) | I don't know |
| (3) | >= |
| (4) | => |
| (5) | <= |
( ) | 18.工作表如圖,若執行底下程式會顯示什麼? 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
(第三天測驗-19) |
| (1) | I don't know |
| (2) | 37 |
| (3) | 63 |
| (4) | 68 |
| (5) | 0 |
( ) | 19.在Excel VBA的即時視窗輸入 print mid("N1234",2,1) 請問會顯示
(第二天測驗-18) |
| (1) | I don't know |
| (2) | N |
| (3) | 1 |
| (4) | 2 |
| (5) | 3 |
( ) | 20.在圖中的數字3代表
(第一天測驗-25) |
| (1) | range |
| (2) | cell |
| (3) | I don't know |
| (4) | row |
| (5) | column |
( ) | 21.在圖中的數字2代表
(第一天測驗-24) |
| (1) | workbook |
| (2) | worksheet |
| (3) | range |
| (4) | cell |
| (5) | I don't know |
( ) | 22.inputbox的回傳值型別是
(第一天測驗-22) |
| (1) | I don't know |
| (2) | integer |
| (3) | string |
| (4) | single |
| (5) | date |
( ) | 23.在Excel VBA的即時視窗輸入 print right("N1234",1) 請問會顯示
(第二天測驗-27) |
| (1) | I don't know |
| (2) | N |
| (3) | 4 |
| (4) | 1 |
| (5) | 2 |
( ) | 24.程式碼如下
For i= 1 to 9 For j=1 to 9 cells(i,j).value=i*j Next j Next i當i=5,j=3時,執行結果
(第三天測驗-09) |
| (1) | 在儲存格C5顯示15 |
| (2) | 在儲存格E3顯示3 |
| (3) | 在儲存格C5顯示5 |
| (4) | I don't know |
| (5) | 在儲存格E3顯示15 |
( ) | 25.請問此圖那一個的真值表
(第二天測驗-01) |
| (1) | not |
| (2) | xor |
| (3) | I don't know |
| (4) | or |
| (5) | and |