(2)17.程式碼如下
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顯示15
(2) 在儲存格C5顯示15
(3) 在儲存格E3顯示3
(4) 在儲存格C5顯示5
(1)18.底下程式碼執行結果會在即時視窗出現
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,5
(2) 0,6
(3) 5,6
(4) 5,0
(1)19.底下程式碼執行結果會在即時視窗出現
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,-1
(2) 5,0
(3) 5,-2
(4) 3,0
(2)20.工作表如圖
，若執行底下程式會顯示什麼?
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) 15
(2) 16
(3) 17
(4) 18
(2)21.工作表如圖
，若執行底下程式會顯示什麼?
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
(2)22.工作表如圖
，若執行底下程式會顯示什麼?
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) 86
(2) 62
(3) 38
(4) 41
(2)23.工作表如圖
，若執行底下程式會顯示什麼?
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) 62
(2) 41
(3) 50
(4) 59
(2)24.Dim StdNo(10) as String這樣的宣告跟底下那一個相同 (第四天測驗-05)
(1) Dim StdNo(1 to 10) as String
(2) Dim StdNo(0 to 10) as String
(3) Dim StdNo(0 to 10) as date
(4) Dim StdNo(10) as Integer
(3)25.底下程式執行時會在即時視窗顯示什麼
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) 3
(2) 5
(3) 7
(4) 9
