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