| (1) | 1.在Excel中活頁簿的英文名稱為 (第一天測驗-01) |
| (1) | workbook |
| (2) | worksheet |
| (3) | excel |
| (4) | Application |
| | |
| (2) | 2.在Excel VBA中要宣告變數I為有小數語法為 (第一天測驗-06) |
| (1) | dim I as integer |
| (2) | dim I as single |
| (3) | dim I as string |
| (4) | dim I as date |
| | |
| (1) | 3.在Excel VBA中變數的宣告要使用那一個指令 (第一天測驗-15) |
| (1) | dim |
| (2) | let |
| (3) | print |
| (4) | set |
| | |
| (1) | 4.在 圖中的數字2代表 (第一天測驗-24) |
| (1) | workbook |
| (2) | worksheet |
| (3) | range |
| (4) | cell |
| | |
| (2) | 5.在圖中的數字3代表 (第一天測驗-25) |
| (1) | row |
| (2) | column |
| (3) | range |
| (4) | cell |
| | |
| (1) | 6.在圖中的數字4代表 (第一天測驗-26) |
| (1) | range |
| (2) | cell |
| (3) | workbook |
| (4) | worksheet |
| | |
| (2) | 7.在圖中的數字6代表 (第一天測驗-28) |
| (1) | workbook |
| (2) | worksheet |
| (3) | range |
| (4) | cell |
| | |
| (3) | 8.請問此圖 那一個的真值表 (第二天測驗-03) |
| (1) | or |
| (2) | and |
| (3) | not |
| (4) | xor |
| | |
| (1) | 9.在ExcelVBA中要使用除(只取整數的商)要用那一個? (第二天測驗-04) |
| (1) | \ |
| (2) | / |
| (3) | * |
| (4) | mod |
| | |
| (2) | 10.在Excel VBA的即時視窗輸入 print 10 mod 3 請問會顯示 (第二天測驗-06) |
| (1) | 3 |
| (2) | 1 |
| (3) | 1.33 |
| (4) | 0 |
| | |
| (2) | 11.在ExcelVBA中要將3顯示在即時視窗要如何使用 (第二天測驗-13) |
| (1) | print 3 |
| (2) | debug.print 3 |
| (3) | echo 3 |
| (4) | debug.echo 3 |
| | |
| (2) | 12.在Excel VBA的即時視窗輸入 print len(trim(" 1+2=3 ")) 請問會顯示 (第二天測驗-20) |
| (1) | 4 |
| (2) | 5 |
| (3) | 6 |
| (4) | 0 |
| | |
| (1) | 13.請問 此圖i若變成95，執行時會在即時視窗顯示 (第二天測驗-21) |
| (1) | 甲 |
| (2) | 乙 |
| (3) | 丙 |
| (4) | 丁 |
| | |
| (1) | 14.在Excel VBA的即時視窗輸入 print left("N1234",1) 請問會顯示 (第二天測驗-26) |
| (1) | N |
| (2) | 4 |
| (3) | 1 |
| (4) | 2 |
| | |
| (2) | 15.程式碼如下
LRandomNumber = Int ((300 - 200 + 1) * Rnd + 200)，請問LRandomNumber的範圍為 (第三天測驗-03) |
| (1) | 200 |
| (2) | 200<=LRandomNumber<=300 |
| (3) | 201 |
| (4) | 201<=LRandomNumber<=301 |
| | |
| (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 |
| | |
| (1) | 17.底下程式碼執行結果會在執行視窗出現
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 (第三天測驗-10) |
| (1) | 3,13 |
| (2) | 4,10 |
| (3) | 3,10 |
| (4) | 10,10 |
| | |
| (1) | 18.底下程式碼執行結果會在即時視窗出現
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 (第三天測驗-11) |
| (1) | 0,5 |
| (2) | 0,6 |
| (3) | 5,6 |
| (4) | 5,0 |
| | |
| (2) | 19.工作表如圖 ，若執行底下程式會顯示什麼?
Sub test2()
Dim i As Integer
i = 1
Do While Cells(i + 1, 1).Value <> ""
i = i + 1
Loop
MsgBox i
End Sub (第三天測驗-17) |
| (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 |
| | |
| (2) | 22.工作表如圖，若執行底下程式會顯示什麼?
Sub test10()
Dim i As Integer
i = 1
Do While Cells(6, i).Value <> ""
i = i + 1
Loop
MsgBox i
End Sub (第三天測驗-25) |
| (1) | 1 |
| (2) | 2 |
| (3) | 3 |
| (4) | 4 |
| | |
| (2) | 23.Dim StdNo(10) as String這樣的宣告跟底下那一個相同 (第四天測驗-05) |
| (1) | Dim StdNo(1 to 10) as String |
| (2) | Dim StdNo(0 to 10) as String |
| (3) | Dim StdNo(0 to 10) as date |
| (4) | Dim StdNo(10) as Integer |
| | |
| (4) | 24.底下程式執行時會在即時視窗顯示什麼
Sub test4()
Dim std_no As Variant
no = Split("國文,英文,數學,理化", ",")
Debug.Print no(3) '顯示陣列索引為3的資料
End Sub (第四天測驗-06) |
| (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 |
| | |
