| (1) | 1.在Excel VBA中要宣告變數I為整數語法為 (第一天測驗-05) |
| * | (1) | dim I as integer |
| (2) | dim I as single |
| (3) | dim I as string |
| (4) | dim I as date |
| | |
| (4) | 2.在Excel VBA中要宣告變數I為日期語法為 (第一天測驗-08) |
| (1) | dim I as integer |
| (2) | dim I as single |
| (3) | dim I as string |
| * | (4) | dim I as date |
| | |
| (2) | 3.在Excel VBA中要顯示一段文字hello那一段語法是對的 (第一天測驗-11) |
| (1) | msgbox hello |
| * | (2) | msgbox "hello" |
| (3) | say "hello" |
| (4) | say hello |
| | |
| (3) | 4.下列那一個Excel VBA語法是正確的 (第一天測驗-14) |
| (1) | range(a1).value=123 |
| (2) | cells("a1").value=123 |
| * | (3) | cells(1,1)=123 |
| (4) | excel.range("a1").text=123 |
| | |
| (4) | 5.變數的命名規則 (第一天測驗-19) |
| (1) | 第一個字元需英文字母 |
| (2) | 變數名稱不可包含空白、點、，逗號或其他特殊字元 |
| (3) | 變數名稱不可為關鍵字，例如for、next、while、public等 |
| * | (4) | 以上皆是 |
| | |
| (2) | 6.inputbox的回傳值型別是 (第一天測驗-22) |
| (1) | integer |
| * | (2) | string |
| (3) | single |
| (4) | date |
| | |
| (1) | 7.在 圖中的數字2代表 (第一天測驗-24) |
| * | (1) | workbook |
| (2) | worksheet |
| (3) | range |
| (4) | cell |
| | |
| (2) | 8.在圖中的數字3代表 (第一天測驗-25) |
| (1) | row |
| * | (2) | column |
| (3) | range |
| (4) | cell |
| | |
| (2) | 9.在Excel VBA的即時視窗輸入 print 10 mod 3 請問會顯示 (第二天測驗-06) |
| (1) | 3 |
| * | (2) | 1 |
| (3) | 1.33 |
| (4) | 0 |
| | |
| (1) | 10.在Excel VBA的即時視窗輸入 print len("中文字abc")請問會顯示 (第二天測驗-16) |
| * | (1) | 6 |
| (2) | 9 |
| (3) | 3 |
| (4) | 0 |
| | |
| (2) | 11.請問 此圖程式執行結果 (第二天測驗-17) |
| (1) | 在變數i不等於5時會中斷程式 |
| * | (2) | 在變數i=5時會中斷程式 |
| (3) | 在變數i<5時會中斷程式 |
| (4) | 在變數i>5時會中斷程式 |
| | |
| (4) | 12.在Excel VBA的即時視窗輸入 print instr("1+2=3","=") 請問會顯示 (第二天測驗-19) |
| (1) | 1 |
| (2) | 2 |
| (3) | 3 |
| * | (4) | 4 |
| | |
| (3) | 13.在Excel VBA的即時視窗輸入 print lcase("How are you")請問會顯示 (第二天測驗-24) |
| (1) | HOW ARE YOU |
| (2) | How are you |
| * | (3) | how are you |
| (4) | How Are You |
| | |
| (3) | 14.在Excel VBA的即時視窗輸入 print 1+2+3 請問會顯示 (第二天測驗-28) |
| (1) | 123 |
| (2) | 1+2+3 |
| * | (3) | 6 |
| (4) | 0 |
| | |
| (4) | 15.在Excel VBA的即時視窗輸入 print 1 & 2 + 3 請問會顯示 (第二天測驗-30) |
| (1) | 123 |
| (2) | 6 |
| (3) | 0 |
| * | (4) | 15 |
| | |
| (3) | 16.程式碼如下
For i= 1 to 10
cells(1,i).value=i
Next i
此程式的執行結果? (第三天測驗-06) |
| (1) | 在儲存格A1:A10填入1到10 |
| (2) | 在儲存格A1:A10都顯示1 |
| * | (3) | 在儲存格A1:J1填入1到10 |
| (4) | 在儲存格A1:J1填入1到1 |
| | |
| (2) | 17.程式碼如下
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) | 在儲存格E3顯示15 |
| * | (2) | 在儲存格C5顯示15 |
| (3) | 在儲存格E3顯示3 |
| (4) | 在儲存格C5顯示5 |
| | |
| (1) | 18.底下程式碼執行結果會在即時視窗出現
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 |
| | |
| (3) | 19.工作表如圖 ，若執行底下程式會顯示什麼?
Sub test1()
Dim i As Integer
i = 1
Do While Cells(i, 1).Value <> ""
i = i + 1
Loop
MsgBox i
End Sub (第三天測驗-16) |
| (1) | 15 |
| (2) | 16 |
| * | (3) | 17 |
| (4) | 18 |
| | |
| (2) | 20.工作表如圖，若執行底下程式會顯示什麼?
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 |
| | |
| (2) | 21.工作表如圖，若執行底下程式會顯示什麼?
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) | 37 |
| * | (2) | 63 |
| (3) | 68 |
| (4) | 0 |
| | |
| (1) | 22.工作表如圖，若執行底下程式會顯示什麼?
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
(第三天測驗-22) |
| * | (1) | 86 |
| (2) | 62 |
| (3) | 38 |
| (4) | 41 |
| | |
| (2) | 23.底下程式執行時會在即時視窗顯示什麼
Sub test1()
Dim no As Variant
no = Array(1, 2, 3, 4, 5)
Debug.Print no(1) '顯示陣列索引為1的資料
End Sub (第四天測驗-02) |
| (1) | 1 |
| * | (2) | 2 |
| (3) | 3 |
| (4) | 4 |
| | |
| (3) | 24.底下程式執行時會在即時視窗顯示什麼
Sub test5()
Dim std_no As Variant
no = Split(",國文,英文,數學,理化", ",")
Debug.Print no(3) '顯示陣列索引為3的資料
End Sub (第四天測驗-07) |
| (1) | 國文 |
| (2) | 英文 |
| * | (3) | 數學 |
| (4) | 理化 |
| | |
| (3) | 25.底下程式執行時會在即時視窗顯示什麼
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 (第四天測驗-10) |
| (1) | 3 |
| (2) | 5 |
| * | (3) | 7 |
| (4) | 9 |
| | |
