|
( ) | 1.變數的命名規則
(第一天測驗-19) |
|
| (1) | 以上皆是 |
|
| (2) | I don't know |
|
| (3) | 第一個字元需英文字母 |
|
| (4) | 變數名稱不可包含空白、點、，逗號或其他特殊字元 |
|
| (5) | 變數名稱不可為關鍵字，例如for、next、while、public等 |
|
( ) | 2.底下程式執行時會在即時視窗顯示什麼
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
(第四天測驗-09) |
|
| (1) | 4 |
|
| (2) | I don't know |
|
| (3) | 1 |
|
| (4) | 2 |
|
| (5) | 3 |
|
( ) | 3.在Excel VBA中大於等於的符號是
(第二天測驗-10) |
|
| (1) | <= |
|
| (2) | <> |
|
| (3) | I don't know |
|
| (4) | >= |
|
| (5) | => |
|
( ) | 4.在Excel 2007要儲存含有巨集的格式,檔案副檔名為
(第一天測驗-09) |
|
| (1) | txt |
|
| (2) | I don't know |
|
| (3) | xlsm |
|
| (4) | xlsx |
|
| (5) | csv |
|
( ) | 5.請問 此圖i若變成95，執行時會在即時視窗顯示
(第二天測驗-21) |
|
| (1) | 丁 |
|
| (2) | I don't know |
|
| (3) | 甲 |
|
| (4) | 乙 |
|
| (5) | 丙 |
|
( ) | 6.在Excel VBA的即時視窗輸入 print 1+2+3 請問會顯示
(第二天測驗-28) |
|
| (1) | 0 |
|
| (2) | I don't know |
|
| (3) | 123 |
|
| (4) | 1+2+3 |
|
| (5) | 6 |
|
( ) | 7.在 圖中的數字1代表
(第一天測驗-23) |
|
| (1) | I don't know |
|
| (2) | row(列) |
|
| (3) | column(行) |
|
| (4) | worksheet |
|
| (5) | cell |
|
( ) | 8.在Excel VBA的即時視窗輸入 print 1 & 2 & 3 請問會顯示
(第二天測驗-29) |
|
| (1) | 123 |
|
| (2) | 0 |
|
| (3) | I don't know |
|
| (4) | 1+2+3 |
|
| (5) | 6 |
|
( ) | 9.在Excel VBA的即時視窗輸入 print left("N1234",1) 請問會顯示
(第二天測驗-26) |
|
| (1) | 1 |
|
| (2) | 2 |
|
| (3) | I don't know |
|
| (4) | N |
|
| (5) | 4 |
|
( ) | 10.MsgBox的回傳值型別是
(第一天測驗-20) |
|
| (1) | string |
|
| (2) | single |
|
| (3) | date |
|
| (4) | I don't know |
|
| (5) | integer |
|
( ) | 11.程式碼如下
For i= 1 to 10
cells(1,i).value=i
Next i
此程式的執行結果?
(第三天測驗-06) |
|
| (1) | 在儲存格A1:A10都顯示1 |
|
| (2) | 在儲存格A1:J1填入1到10 |
|
| (3) | 在儲存格A1:J1填入1到1 |
|
| (4) | I don't know |
|
| (5) | 在儲存格A1:A10填入1到10 |
|
( ) | 12.在Excel VBA的即時視窗輸入 print instr("1+2=3","=") 請問會顯示
(第二天測驗-19) |
|
| (1) | 1 |
|
| (2) | 2 |
|
| (3) | 3 |
|
| (4) | 4 |
|
| (5) | I don't know |
|
( ) | 13.程式碼如下
LRandomNumber = Int ((300 - 200 + 1) * Rnd + 200)，請問LRandomNumber的範圍為
(第三天測驗-03) |
|
| (1) | 200<=LRandomNumber<=300 |
|
| (2) | 201 |
|
| (3) | 201<=LRandomNumber<=301 |
|
| (4) | I don't know |
|
| (5) | 200 |
|
( ) | 14.請問 此圖那一個的真值表
(第二天測驗-01) |
|
| (1) | I don't know |
|
| (2) | or |
|
| (3) | and |
|
| (4) | not |
|
| (5) | xor |
|
( ) | 15.inputbox的回傳值型別是
(第一天測驗-22) |
|
| (1) | I don't know |
|
| (2) | integer |
|
| (3) | string |
|
| (4) | single |
|
| (5) | date |
|
( ) | 16.在Excel VBA中下列那一個敍述是錯的
(第一天測驗-03) |
|
| (1) | i=i |
|
| (2) | i=-i |
|
| (3) | I don't know |
|
| (4) | i+1=i |
|
| (5) | let i=i+1 |
|
( ) | 17.使用array函數建立陣列,型別必須為
(第四天測驗-01) |
|
| (1) | date |
|
| (2) | I don't know |
|
| (3) | variant |
|
| (4) | int |
|
| (5) | string |
|
( ) | 18.程式碼如下
For i= 1 to 10
cells(i,1).value=i
Next i
此程式的執行結果?
(第三天測驗-04) |
|
| (1) | I don't know |
|
| (2) | 在儲存格A1:A10填入1到10 |
|
| (3) | 在儲存格A1:A10都顯示1 |
|
| (4) | 在儲存格A1:J1填入1到10 |
|
| (5) | 在儲存格A1:J1填入1到1 |
|
( ) | 19.請問 此圖那一個的真值表
(第二天測驗-02) |
|
| (1) | I don't know |
|
| (2) | or |
|
| (3) | and |
|
| (4) | not |
|
| (5) | xor |
|
( ) | 20.在圖中的數字4代表
(第一天測驗-26) |
|
| (1) | cell |
|
| (2) | workbook |
|
| (3) | worksheet |
|
| (4) | I don't know |
|
| (5) | range |
|
( ) | 21.在Excel VBA的即時視窗輸入 print right("N1234",1) 請問會顯示
(第二天測驗-27) |
|
| (1) | N |
|
| (2) | 4 |
|
| (3) | 1 |
|
| (4) | 2 |
|
| (5) | I don't know |
|
( ) | 22.在ExcelVBA中要將3顯示在即時視窗要如何使用
(第二天測驗-13) |
|
| (1) | debug.echo 3 |
|
| (2) | I don't know |
|
| (3) | print 3 |
|
| (4) | debug.print 3 |
|
| (5) | echo 3 |
|
( ) | 23.工作表如圖 ，若執行底下程式會顯示什麼?
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 |
|
| (5) | I don't know |
|
( ) | 24.底下程式執行時會在即時視窗顯示什麼
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) | 7 |
|
| (2) | 9 |
|
| (3) | I don't know |
|
| (4) | 3 |
|
| (5) | 5 |
|
( ) | 25.工作表如圖，若執行底下程式會顯示什麼?
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) | I don't know |
|
| (2) | 86 |
|
| (3) | 62 |
|
| (4) | 38 |
|
| (5) | 41 |
