|
|
|
考試題目 |
 |
|
( ) | 1.程式碼如下
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顯示3 |
|
| (2) | 在儲存格C5顯示5 |
|
| (3) | I don't know |
|
| (4) | 在儲存格E3顯示15 |
|
| (5) | 在儲存格C5顯示15 |
|
( ) | 2.底下程式碼執行結果會在即時視窗出現
Sub test4()
Dim i, n As Integer
n = 0
For i = 5 To 1 Step -1
n = n + 1
i = i - 1
Next i
Debug.Print n & "," & i
End Sub
(第三天測驗-13) |
|
| (1) | 5,-2 |
|
| (2) | 3,0 |
|
| (3) | I don't know |
|
| (4) | 3,-1 |
|
| (5) | 5,0 |
|
( ) | 3.底下程式碼執行結果會在即時視窗出現
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,10 |
|
| (2) | 5,10 |
|
| (3) | I don't know |
|
| (4) | 4,11 |
|
| (5) | 3,10 |
|
( ) | 4.工作表如圖 ，若執行底下程式會顯示什麼?
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) | I don't know |
|
| (2) | 37 |
|
| (3) | 63 |
|
| (4) | 68 |
|
| (5) | 0 |
|
( ) | 5.使用debug.print rnd(1)不可能產生那一個數字
(第三天測驗-01) |
|
| (1) | 1 |
|
| (2) | 0 |
|
| (3) | 0.99 |
|
| (4) | 0.5 |
|
| (5) | I don't know |
|
( ) | 6.程式碼如下
LRandomNumber = Int ((300 - 200 + 1) * Rnd + 200)，請問LRandomNumber的範圍為
(第三天測驗-03) |
|
| (1) | 200 |
|
| (2) | 200<=LRandomNumber<=300 |
|
| (3) | 201 |
|
| (4) | 201<=LRandomNumber<=301 |
|
| (5) | I don't know |
|
( ) | 7.底下程式碼執行結果會在執行視窗出現
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,10 |
|
| (2) | 10,10 |
|
| (3) | I don't know |
|
| (4) | 3,13 |
|
| (5) | 4,10 |
|
( ) | 8.程式碼如下
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 |
|
| (5) | I don't know |
|
( ) | 9.工作表如圖，若執行底下程式會顯示什麼?
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 |
|
| (5) | I don't know |
|
( ) | 10.程式碼如下
sub test()
Dim i As Integer
For i = 1 To 10
Cells(i + 1, 1).Value = 11 - i
Next i
end sub
(第三天測驗-08) |
|
| (1) | 在儲存格C2:C11顯示10到1的數字 |
|
| (2) | 在儲存格D2:D11顯示10到1的數字 |
|
| (3) | I don't know |
|
| (4) | 在儲存格A2:A11顯示10到1的數字 |
|
| (5) | 在儲存格B2:B11顯示10到1的數字 |
|
( ) | 11.程式碼如下
For i= 1 to 10
cells(1,i).value=1
Next i
此程式的執行結果?
(第三天測驗-07) |
|
| (1) | I don't know |
|
| (2) | 在儲存格A1:A10填入1到10 |
|
| (3) | 在儲存格A1:A10都顯示1 |
|
| (4) | 在儲存格A1:J1填入1到10 |
|
| (5) | 在儲存格A1:J1填入1到1 |
|
( ) | 12.工作表如圖，若執行底下程式會顯示什麼?
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) | 16 |
|
| (2) | 17 |
|
| (3) | 18 |
|
| (4) | I don't know |
|
| (5) | 15 |
|
( ) | 13.程式碼如下
For i= 1 to 10
cells(i,1).value=1
Next i
此程式的執行結果?
(第三天測驗-05) |
|
| (1) | 在儲存格A1:A10填入1到10 |
|
| (2) | 在儲存格A1:A10都顯示1 |
|
| (3) | 在儲存格A1:J1填入1到10 |
|
| (4) | 在儲存格A1:J1填入1到1 |
|
| (5) | I don't know |
|
( ) | 14.為了使亂數每次產生的都不一樣，可以在產生亂數前加入那一個指令
(第三天測驗-02) |
|
| (1) | randomize |
|
| (2) | int |
|
| (3) | dim |
|
| (4) | I don't know |
|
| (5) | rand |
|
( ) | 15.程式碼如下
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 |
|
( ) | 16.底下程式碼執行結果會在即時視窗出現
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 |
|
| (5) | I don't know |
|
( ) | 17.底下程式碼執行結果會在即時視窗出現
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,6 |
|
| (2) | 5,6 |
|
| (3) | 5,0 |
|
| (4) | I don't know |
|
| (5) | 0,5 |
|
( ) | 18.工作表如圖，若執行底下程式會顯示什麼?
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 |
|
| (5) | I don't know |
|
( ) | 19.工作表如圖，若執行底下程式會顯示什麼?
Sub test5()
Dim i As Integer
i = 1
Do While Cells(i + 2, 3).Value <> ""
i = i + 1
Loop
MsgBox Cells(i + 1, 3).Value
End Sub
(第三天測驗-20) |
|
| (1) | 38 |
|
| (2) | 41 |
|
| (3) | I don't know |
|
| (4) | 86 |
|
| (5) | 62 |
|
( ) | 20.底下程式碼執行結果會在即時視窗出現
Sub test6()
Dim i, n As Integer
n = 0
For i = 1 To 10
If i Mod 3 = 1 Then
n = n + 1
End If
If n = 3 Then
Exit For
End If
Next i
Debug.Print n & "," & i
End Sub
(第三天測驗-15) |
|
| (1) | 4,10 |
|
| (2) | I don't know |
|
| (3) | 3,7 |
|
| (4) | 4,11 |
|
| (5) | 3,8 |
|
|
|
|
|
|
