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

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

( )1. 在Excel物件的使用方式中是用什麼來表示階層(1)句號 (2)等號 (3)冒號 (4)減號
( )2. 底下程式碼執行結果會在即時視窗出現
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,-1 (2)0,5 (3)5,0 (4)5,1
( )3. 工作表如圖,若執行底下程式會顯示什麼?
Sub test10()
    Dim i As Integer
    
    i = 1
    
    Do While Cells(6, i).Value <> ""
       i = i + 1
    Loop
    
    MsgBox i

End Sub(1)3 (2)4 (3)1 (4)2
( )4. 在Excel VBA的即時視窗輸入 print 1+2+3 請問會顯示(1)1+2+3 (2)6 (3)0 (4)123
( )5. 在Excel VBA的即時視窗輸入 print mid("N1234",2,1) 請問會顯示(1)1 (2)2 (3)3 (4)N
( )6. 底下程式碼執行結果會在執行視窗出現
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)10,10 (2)3,13 (3)4,10 (4)3,10
( )7. 工作表如圖,若執行底下程式會顯示什麼?
Sub test1()
    Dim i As Integer
    
    i = 1
    
    Do While Cells(i, 1).Value <> ""
       i = i + 1
    Loop
    
    MsgBox i

End Sub(1)16 (2)17 (3)18 (4)15
( )8. 程式碼如下
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
( )9. 在Excel VBA的即時視窗輸入? Mid("daylong", 2, 3)請問會顯示(1)ayl (2)yl (3)ylo (4)ay
( )10. 在Excel VBA的即時視窗輸入 print 1 & 2 + 3 請問會顯示(1)15 (2)123 (3)6 (4)0
( )11. 在Excel VBA中要宣告變數I為字串語法為(1)dim I as date (2)dim I as integer (3)dim I as single (4)dim I as string
( )12. 底下程式執行時會在即時視窗顯示什麼
Sub test3()
    Dim no As Variant
    no = Array(1, 2, 3, 4, 5)
    Debug.Print UBound(no)   '顯示陣列最大索引值
End Sub(1)5 (2)0 (3)3 (4)4
( )13. 程式碼如下
LRandomNumber = Int ((300 - 200 + 1) * Rnd + 200),請問LRandomNumber的範圍為(1)201<=LRandomNumber<=301 (2)200
( )14. 在Excel VBA要強制宣告變數才可以使用,要在程式的最上方加上(1)Option Explicit (2)Option (3)Explicit (4)dim
( )15. 為了使亂數每次產生的都不一樣,可以在產生亂數前加入那一個指令(1)rand (2)randomize (3)int (4)dim
( )16. 程式碼如下
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
( )17. 在Excel VBA的即時視窗輸入 print right("N1234",1) 請問會顯示(1)4 (2)1 (3)2 (4)N
( )18. 下列那一個Excel VBA語法是正確的(1)cells(1,1)=123 (2)excel.range("a1").text=123 (3)range(a1).value=123 (4)cells("a1").value=123
( )19. 在Excel VBA的即時視窗輸入 print left("N1234",1) 請問會顯示(1)N (2)4 (3)1 (4)2
( )20. 在Excel VBA中要顯示一段文字hello那一段語法是對的(1)say hello (2)msgbox hello (3)msgbox "hello" (4)say "hello"
( )21. 在Excel VBA中要宣告變數I為有小數語法為(1)dim I as integer (2)dim I as single (3)dim I as string (4)dim I as date
( )22. 在ExcelVBA中要使用除(只取整數的商)要用那一個?(1)\ (2)/ (3)* (4)mod
( )23. 底下程式碼執行結果會在即時視窗出現
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)5,10 (2)4,11 (3)3,10 (4)4,10
( )24. 工作表如圖,若執行底下程式會顯示什麼?
Sub test9()
    Dim i As Integer
    
    i = 1
    
    Do While Cells(1, i).Value <> ""
       i = i + 1
    Loop
    
    MsgBox i

End Sub(1)5 (2)6 (3)4 (4)3
( )25. 在Excel VBA中不等於的符號是(1)<> (2)>=< (3)== (4)!=

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

詳解: