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

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

( )1. 插入按鈕是那個圖示(1) (2) (3) (4)
( )2. 下列那一個Excel VBA語法是正確的(1)excel.range("a1").text=123 (2)range(a1).value=123 (3)cells("a1").value=123 (4)cells(1,1)=123
( )3. 程式碼如下
LRandomNumber = Int ((300 - 200 + 1) * Rnd + 200),請問LRandomNumber的範圍為(1)200
( )4. 圖中的數字6代表(1)cell (2)workbook (3)worksheet (4)range
( )5. 為了使亂數每次產生的都不一樣,可以在產生亂數前加入那一個指令(1)rand (2)randomize (3)int (4)dim
( )6. 底下程式碼執行結果會在即時視窗出現
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
( )7. 在Excel VBA參數與參數中間是用什麼符號區隔(1)冒號 (2)減號 (3)逗點 (4)等號
( )8. 在Excel VBA要強制宣告變數才可以使用,要在程式的最上方加上(1)dim (2)Option Explicit (3)Option (4)Explicit
( )9. 工作表如圖,若執行底下程式會顯示什麼?
Sub test1()
    Dim i As Integer
    
    i = 1
    
    Do While Cells(i, 1).Value <> ""
       i = i + 1
    Loop
    
    MsgBox i

End Sub(1)15 (2)16 (3)17 (4)18
( )10. 底下程式碼執行結果會在執行視窗出現
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,10 (2)10,10 (3)3,13 (4)4,10
( )11. 底下程式碼執行結果會在即時視窗出現
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)5,-2 (2)3,0 (3)3,-1 (4)5,0
( )12. 請問此圖那一個的真值表(1)not (2)xor (3)or (4)and
( )13. 在Excel VBA中要宣告變數I為字串語法為(1)dim I as single (2)dim I as string (3)dim I as date (4)dim I as integer
( )14. 底下程式碼執行結果會在即時視窗出現
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
( )15. 圖中的數字5代表(1)cell (2)row (3)column (4)range
( )16. 工作表如圖,若執行底下程式會顯示什麼?
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)63 (2)68 (3)0 (4)37
( )17. 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
( )18. 請問此圖那一個的真值表(1)not (2)xor (3)or (4)and
( )19. 在Excel VBA的即時視窗輸入 print lcase("How are you")請問會顯示(1)HOW ARE YOU (2)How are you (3)how are you (4)How Are You
( )20. 在Excel VBA的即時視窗輸入 print left("N1234",1) 請問會顯示(1)N (2)4 (3)1 (4)2
( )21. 工作表如圖,若執行底下程式會顯示什麼?
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
( )22. 底下程式執行時會在即時視窗顯示什麼
Sub test5()
    Dim std_no As Variant
    no = Split(",國文,英文,數學,理化", ",")
    Debug.Print no(3)   '顯示陣列索引為3的資料
End Sub(1)國文 (2)英文 (3)數學 (4)理化
( )23. 在Excel VBA的即時視窗輸入 print len(trim(" 1+2=3 ")) 請問會顯示(1)4 (2)5 (3)6 (4)0
( )24. 在Excel VBA中要宣告變數I為日期語法為(1)dim I as string (2)dim I as date (3)dim I as integer (4)dim I as single
( )25. 在Excel VBA的即時視窗輸入 print 5\2 請問會顯示(1)2 (2)1 (3)0 (4)2.5

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

詳解: