| (1) | 1.在Excel VBA中列的英文為 (第一天測驗-13) |
| * | (1) | row |
| (2) | column |
| (3) | cell |
| (4) | x |
| | |
| (4) | 2.切換設計模式及執行模式圖示是 (第一天測驗-17) |
| (1) |  |
| (2) |  |
| (3) |  |
| * | (4) |  |
| | |
| (4) | 3.變數的命名規則 (第一天測驗-19) |
| (1) | 第一個字元需英文字母 |
| (2) | 變數名稱不可包含空白、點、，逗號或其他特殊字元 |
| (3) | 變數名稱不可為關鍵字，例如for、next、while、public等 |
| * | (4) | 以上皆是 |
| | |
| (4) | 4.在Excel VBA中物件方法的圖示為 (第一天測驗-21) |
| (1) |  |
| (2) |  |
| (3) |  |
| * | (4) |  |
| | |
| (1) | 5.在 圖中的數字2代表 (第一天測驗-24) |
| * | (1) | workbook |
| (2) | worksheet |
| (3) | range |
| (4) | cell |
| | |
| (1) | 6.在圖中的數字4代表 (第一天測驗-26) |
| * | (1) | range |
| (2) | cell |
| (3) | workbook |
| (4) | worksheet |
| | |
| (2) | 7.在Excel 中要如何在變數d設定為日期1972/3/31 (第一天測驗-29) |
| (1) | d=1972/3/31 |
| * | (2) | d=#1972/3/31# |
| (3) | d="1972/3/31" |
| (4) | d='1972/3/31' |
| | |
| (1) | 8.在ExcelVBA中要使用除(只取整數的商)要用那一個? (第二天測驗-04) |
| * | (1) | \ |
| (2) | / |
| (3) | * |
| (4) | mod |
| | |
| (1) | 9.在Excel VBA的即時視窗輸入 print 2^3請問會顯示 (第二天測驗-09) |
| * | (1) | 8 |
| (2) | 6 |
| (3) | 23 |
| (4) | 1 |
| | |
| (4) | 10.請問 此圖i若變成95，執行時會在即時視窗顯示 (第二天測驗-22) |
| (1) | 甲 |
| (2) | 乙 |
| (3) | 丙 |
| * | (4) | 丁 |
| | |
| (1) | 11.在Excel VBA的即時視窗輸入 print ucase("How are you")請問會顯示 (第二天測驗-23) |
| * | (1) | HOW ARE YOU |
| (2) | How are you |
| (3) | how are you |
| (4) | How Are You |
| | |
| (3) | 12.在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) | 13.在Excel VBA的即時視窗輸入 print 1 & 2 & 3 請問會顯示 (第二天測驗-29) |
| (1) | 1+2+3 |
| (2) | 6 |
| * | (3) | 123 |
| (4) | 0 |
| | |
| (1) | 14.使用debug.print rnd(1)不可能產生那一個數字 (第三天測驗-01) |
| * | (1) | 1 |
| (2) | 0 |
| (3) | 0.99 |
| (4) | 0.5 |
| | |
| (2) | 15.為了使亂數每次產生的都不一樣，可以在產生亂數前加入那一個指令 (第三天測驗-02) |
| (1) | rand |
| * | (2) | randomize |
| (3) | int |
| (4) | dim |
| | |
| (1) | 16.程式碼如下
For i= 1 to 10
cells(i,1).value=i
Next i
此程式的執行結果? (第三天測驗-04) |
| * | (1) | 在儲存格A1:A10填入1到10 |
| (2) | 在儲存格A1:A10都顯示1 |
| (3) | 在儲存格A1:J1填入1到10 |
| (4) | 在儲存格A1:J1填入1到1 |
| | |
| (1) | 17.程式碼如下
sub test()
Dim i As Integer
For i = 1 To 10
Cells(i + 1, 1).Value = 11 - i
Next i
end sub (第三天測驗-08) |
| * | (1) | 在儲存格A2:A11顯示10到1的數字 |
| (2) | 在儲存格B2:B11顯示10到1的數字 |
| (3) | 在儲存格C2:C11顯示10到1的數字 |
| (4) | 在儲存格D2:D11顯示10到1的數字 |
| | |
| (2) | 18.程式碼如下
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) | 19.底下程式碼執行結果會在即時視窗出現
Sub test3()
Dim i, n As Integer
n = 0
For i = 5 To 1 Step -1
n = n + 1
Next i
Debug.Print n & "," & i
End Sub (第三天測驗-12) |
| * | (1) | 5,0 |
| (2) | 5,1 |
| (3) | 5,-1 |
| (4) | 0,5 |
| | |
| (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 |
| | |
| (1) | 21.工作表如圖，若執行底下程式會顯示什麼?
Sub test8()
Dim i As Integer
i = 1
Do While Cells(1, i + 1).Value <> ""
i = i + 1
Loop
MsgBox i
End Sub (第三天測驗-23) |
| * | (1) | 4 |
| (2) | 3 |
| (3) | 5 |
| (4) | 6 |
| | |
| (1) | 22.底下程式執行時會在即時視窗顯示什麼
Sub test2()
Dim no As Variant
no = Array(1, 2, 3, 4, 5)
Debug.Print no(5) '顯示陣列索引為5的資料
End Sub (第四天測驗-03) |
| * | (1) | 出現陣列索引超出範圍 |
| (2) | 3 |
| (3) | 4 |
| (4) | 1 |
| | |
| (2) | 23.底下程式執行時會在即時視窗顯示什麼
Sub test3()
Dim no As Variant
no = Array(1, 2, 3, 4, 5)
Debug.Print UBound(no) '顯示陣列最大索引值
End Sub (第四天測驗-04) |
| (1) | 3 |
| * | (2) | 4 |
| (3) | 5 |
| (4) | 0 |
| | |
| (2) | 24.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 |
| | |
| (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 |
| | |
