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

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

( )1. inputbox的回傳值型別是(1)integer (2)string (3)single (4)date
( )2. 在Excel VBA的即時視窗輸入 print ucase("How are you")請問會顯示(1)How are you (2)how are you (3)How Are You (4)HOW ARE YOU
( )3. 在Excel VBA中要宣告變數I為有小數語法為(1)dim I as string (2)dim I as date (3)dim I as integer (4)dim I as single
( )4. 請問此圖i若變成95,執行時會在即時視窗顯示(1)乙 (2)丙 (3)丁 (4)甲
( )5. 在Excel VBA的即時視窗輸入 print 5\2 請問會顯示(1)2.5 (2)2 (3)1 (4)0
( )6. 在Excel VBA中要宣告變數I為字串語法為(1)dim I as date (2)dim I as integer (3)dim I as single (4)dim I as string
( )7. 在Excel VBA的即時視窗輸入 print len(trim(" 1+2=3 ")) 請問會顯示(1)4 (2)5 (3)6 (4)0
( )8. 在Excel VBA的中斷模式時,按那一個按鈕可以逐一行執行(1)shift+F8 (2)Ctrl+Shift+F9 (3)F8 (4)F5
( )9. 底下程式執行時會在即時視窗顯示什麼
Sub test7()
    Dim i As Integer
    Dim std_no(5) As Integer
    
    For i = 1 To 5
        std_no(i - 1) = i - 1
    Next
    
    Debug.Print std_no(3)   '顯示陣列索引為3的資料
End Sub(1)1 (2)2 (3)3 (4)4
( )10. 工作表如圖,若執行底下程式會顯示什麼?
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)38 (2)41 (3)86 (4)62
( )11. 圖中的數字5代表(1)cell (2)row (3)column (4)range
( )12. 在Excel VBA中下列那一個敍述是錯的(1)i+1=i (2)let i=i+1 (3)i=i (4)i=-i
( )13. 在Excel VBA要強制宣告變數才可以使用,要在程式的最上方加上(1)Option Explicit (2)Option (3)Explicit (4)dim
( )14. 請問此圖那一個的真值表(1)not (2)xor (3)or (4)and
( )15. 在Excel VBA的即時視窗輸入 print 2^3請問會顯示(1)6 (2)23 (3)1 (4)8
( )16. 插入按鈕是那個圖示(1) (2) (3) (4)
( )17. 變數的命名規則(1)變數名稱不可包含空白、點、,逗號或其他特殊字元 (2)變數名稱不可為關鍵字,例如for、next、while、public等 (3)以上皆是 (4)第一個字元需英文字母
( )18. 在ExcelVBA中要使用餘數要用那一個?(1)* (2)mod (3)\ (4)/
( )19. 底下程式執行時會在即時視窗顯示什麼
Sub test5()
    Dim std_no As Variant
    no = Split(",國文,英文,數學,理化", ",")
    Debug.Print no(3)   '顯示陣列索引為3的資料
End Sub(1)數學 (2)理化 (3)國文 (4)英文
( )20. 圖中的數字4代表(1)worksheet (2)range (3)cell (4)workbook
( )21. 在Excel VBA的即時視窗輸入 print left("N1234",1) 請問會顯示(1)4 (2)1 (3)2 (4)N
( )22. Dim StdNo(10) as String這樣的宣告跟底下那一個相同(1)Dim StdNo(10) as Integer (2)Dim StdNo(1 to 10) as String (3)Dim StdNo(0 to 10) as String (4)Dim StdNo(0 to 10) as date
( )23. 工作表如圖,若執行底下程式會顯示什麼?
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
( )24. 在Excel VBA中程式碼註解是用什麼字元(1)雙斜線 (2)冒號 (3)分號 (4)單引號
( )25. 底下程式碼執行結果會在即時視窗出現
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

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

詳解: