|
( ) | 1.工作表如圖 ，若執行底下程式會顯示什麼?
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) | I don't know |
|
| (2) | 4 |
|
| (3) | 3 |
|
| (4) | 5 |
|
| (5) | 6 |
|
( ) | 2.底下程式執行時會在即時視窗顯示什麼
Sub test4()
Dim std_no As Variant
no = Split("國文,英文,數學,理化", ",")
Debug.Print no(3) '顯示陣列索引為3的資料
End Sub
(第四天測驗-06) |
|
| (1) | I don't know |
|
| (2) | 國文 |
|
| (3) | 英文 |
|
| (4) | 數學 |
|
| (5) | 理化 |
|
( ) | 3.使用array函數建立陣列,型別必須為
(第四天測驗-01) |
|
| (1) | I don't know |
|
| (2) | variant |
|
| (3) | int |
|
| (4) | string |
|
| (5) | date |
|
( ) | 4.底下程式執行時會在即時視窗顯示什麼
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 |
|
( ) | 5.工作表如圖，若執行底下程式會顯示什麼?
Sub test10()
Dim i As Integer
i = 1
Do While Cells(6, i).Value <> ""
i = i + 1
Loop
MsgBox i
End Sub
(第三天測驗-25) |
|
| (1) | I don't know |
|
| (2) | 1 |
|
| (3) | 2 |
|
| (4) | 3 |
|
| (5) | 4 |
|
( ) | 6.底下程式執行時會在即時視窗顯示什麼
Sub test5()
Dim std_no As Variant
no = Split(",國文,英文,數學,理化", ",")
Debug.Print no(3) '顯示陣列索引為3的資料
End Sub
(第四天測驗-07) |
|
| (1) | 國文 |
|
| (2) | 英文 |
|
| (3) | 數學 |
|
| (4) | 理化 |
|
| (5) | I don't know |
|
( ) | 7.底下程式執行時會在即時視窗顯示什麼
Sub test2()
Dim no As Variant
no = Array(1, 2, 3, 4, 5)
Debug.Print no(5) '顯示陣列索引為5的資料
End Sub
(第四天測驗-03) |
|
| (1) | 1 |
|
| (2) | I don't know |
|
| (3) | 出現陣列索引超出範圍 |
|
| (4) | 3 |
|
| (5) | 4 |
|
( ) | 8.工作表如圖，若執行底下程式會顯示什麼?
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) | 38 |
|
| (2) | 41 |
|
| (3) | I don't know |
|
| (4) | 86 |
|
| (5) | 62 |
|
( ) | 9.工作表如圖，若執行底下程式會顯示什麼?
Sub test9()
Dim i As Integer
i = 1
Do While Cells(1, i).Value <> ""
i = i + 1
Loop
MsgBox i
End Sub
(第三天測驗-24) |
|
| (1) | 3 |
|
| (2) | 5 |
|
| (3) | 6 |
|
| (4) | I don't know |
|
| (5) | 4 |
|
( ) | 10.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 |
|
( ) | 11.底下程式執行時會在即時視窗顯示什麼
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) | 3 |
|
| (2) | 4 |
|
| (3) | I don't know |
|
| (4) | 1 |
|
| (5) | 2 |
|
( ) | 12.工作表如圖，若執行底下程式會顯示什麼?
Sub test6()
Dim i As Integer
i = 1
Do While Cells(i + 1, 3).Value <> "" Or Cells(i + 2, 3).Value <> ""
i = i + 1
Loop
MsgBox Cells(i, 3).Value
End Sub
(第三天測驗-21) |
|
| (1) | 50 |
|
| (2) | 59 |
|
| (3) | I don't know |
|
| (4) | 62 |
|
| (5) | 41 |
|
( ) | 13.底下程式執行時會在即時視窗顯示什麼
Sub test1()
Dim no As Variant
no = Array(1, 2, 3, 4, 5)
Debug.Print no(1) '顯示陣列索引為1的資料
End Sub
(第四天測驗-02) |
|
| (1) | 4 |
|
| (2) | I don't know |
|
| (3) | 1 |
|
| (4) | 2 |
|
| (5) | 3 |
|
( ) | 14.底下程式執行時會在即時視窗顯示什麼
Sub test6()
Dim i As Integer
Dim std_no(5) As Integer
For i = 1 To 5
std_no(i) = i
Next
Debug.Print std_no(3) '顯示陣列索引為3的資料
End Sub
(第四天測驗-08) |
|
| (1) | 4 |
|
| (2) | I don't know |
|
| (3) | 1 |
|
| (4) | 2 |
|
| (5) | 3 |
|
( ) | 15.底下程式執行時會在即時視窗顯示什麼
Sub test3()
Dim no As Variant
no = Array(1, 2, 3, 4, 5)
Debug.Print UBound(no) '顯示陣列最大索引值
End Sub
(第四天測驗-04) |
|
| (1) | 0 |
|
| (2) | I don't know |
|
| (3) | 3 |
|
| (4) | 4 |
|
| (5) | 5 |
