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