<   Excel VBA實務班(第二班)測驗(全部95題任選25題)   >

免費免註冊,彰化一整天線上測驗:http://exam.bestdaylong.com/test2226.htm

( )1. 工作表如圖,若執行底下程式會顯示什麼?
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(1)41 (2)50 (3)59 (4)62
( )2. 在Excel VBA的即時視窗輸入? Mid("daylong", 2, 3)請問會顯示(1)ylo (2)ay (3)ayl (4)yl
( )3. 底下程式碼執行結果會在即時視窗出現
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)5,0 (2)5,1 (3)5,-1 (4)0,5
( )4. 在Excel VBA的即時視窗輸入 print mid("N1234",2,1) 請問會顯示(1)3 (2)N (3)1 (4)2
( )5. 底下程式碼執行結果會在即時視窗出現
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)3,10 (2)4,10 (3)5,10 (4)4,11
( )6. 請問此圖那一個的真值表(1)and (2)not (3)xor (4)or
( )7. 工作表如圖,若執行底下程式會顯示什麼?
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
( )8. 在Excel VBA要強制宣告變數才可以使用,要在程式的最上方加上(1)Option Explicit (2)Option (3)Explicit (4)dim
( )9. 在Excel VBA中要宣告變數I為日期語法為(1)dim I as integer (2)dim I as single (3)dim I as string (4)dim I as date
( )10. 在Excel VBA的即時視窗輸入 print 5/2 請問會顯示(1)2.5 (2)2 (3)1 (4)0
( )11. 請問此圖程式執行結果(1)在變數i>5時會中斷程式 (2)在變數i不等於5時會中斷程式 (3)在變數i=5時會中斷程式 (4)在變數i<5時會中斷程式
( )12. 在Excel VBA的即時視窗輸入 print 1+2+3 請問會顯示(1)123 (2)1+2+3 (3)6 (4)0
( )13. 在Excel VBA的即時視窗輸入 print ucase("How are you")請問會顯示(1)how are you (2)How Are You (3)HOW ARE YOU (4)How are you
( )14. 程式碼如下

sub test()
    Dim i As Integer
    
    For i = 1 To 10
        Cells(i + 1, 1).Value = 11 - i
    Next i

end sub(1)在儲存格B2:B11顯示10到1的數字 (2)在儲存格C2:C11顯示10到1的數字 (3)在儲存格D2:D11顯示10到1的數字 (4)在儲存格A2:A11顯示10到1的數字
( )15. 工作表如圖,若執行底下程式會顯示什麼?
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
( )16. 圖中的數字1代表(1)row(列) (2)column(行) (3)worksheet (4)cell
( )17. 圖中的數字2代表(1)range (2)cell (3)workbook (4)worksheet
( )18. 在Excel VBA中小於等於的符號是(1)<= (2)=< (3)>= (4)=>
( )19. 在Excel中活頁簿的英文名稱為(1)workbook (2)worksheet (3)excel (4)Application
( )20. 在Excel VBA的即時視窗輸入 print left("N1234",1) 請問會顯示(1)4 (2)1 (3)2 (4)N
( )21. 工作表如圖,若執行底下程式會顯示什麼?
Sub test3()
    Dim i As Integer
    
    i = 1
    
    Do While Cells(i, 2).Value <> ""
       i = i + 1
    Loop
    
    MsgBox i

End Sub
(1)7 (2)8 (3)5 (4)6
( )22. 在Excel VBA中程式碼註解是用什麼字元(1)分號 (2)單引號 (3)雙斜線 (4)冒號
( )23. 在Excel VBA中大於等於的符號是(1)<= (2)<> (3)>= (4)=>
( )24. 在Excel VBA中下列那一個敍述是錯的(1)i=i (2)i=-i (3)i+1=i (4)let i=i+1
( )25. 圖中的數字5代表(1)cell (2)row (3)column (4)range

解答:
001.【1】002.【3】003.【1】004.【3】005.【4】006.【1】007.【4】008.【1】009.【4】010.【1】
011.【3】012.【3】013.【3】014.【4】015.【1】016.【4】017.【3】018.【1】019.【1】020.【4】
021.【4】022.【2】023.【3】024.【3】025.【2】

詳解: