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

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

( )1. 在Excel VBA的即時視窗輸入 print right("N1234",1) 請問會顯示(1)2 (2)N (3)4 (4)1
( )2. 工作表如圖,若執行底下程式會顯示什麼?
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
( )3. 程式碼如下
LRandomNumber = Int ((300 - 200 + 1) * Rnd + 200),請問LRandomNumber的範圍為(1)201<=LRandomNumber<=301 (2)200
( )4. 底下程式執行時會在即時視窗顯示什麼
Sub test2()
    Dim no As Variant
    no = Array(1, 2, 3, 4, 5)
    Debug.Print no(5)   '顯示陣列索引為5的資料
End Sub(1)4 (2)1 (3)出現陣列索引超出範圍 (4)3
( )5. 在Excel VBA中要宣告變數I為有小數語法為(1)dim I as date (2)dim I as integer (3)dim I as single (4)dim I as string
( )6. 變數的命名規則(1)變數名稱不可為關鍵字,例如for、next、while、public等 (2)以上皆是 (3)第一個字元需英文字母 (4)變數名稱不可包含空白、點、,逗號或其他特殊字元
( )7. 在Excel VBA中變數的宣告要使用那一個指令(1)dim (2)let (3)print (4)set
( )8. 底下程式執行時會在即時視窗顯示什麼
Sub test5()
    Dim std_no As Variant
    no = Split(",國文,英文,數學,理化", ",")
    Debug.Print no(3)   '顯示陣列索引為3的資料
End Sub(1)國文 (2)英文 (3)數學 (4)理化
( )9. 在Excel VBA的即時視窗輸入 print lcase("How are you")請問會顯示(1)HOW ARE YOU (2)How are you (3)how are you (4)How Are You
( )10. 在Excel VBA的即時視窗輸入 print 10 mod 3 請問會顯示(1)3 (2)1 (3)1.33 (4)0
( )11. 程式碼如下
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
( )12. 底下程式碼執行結果會在即時視窗出現
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
( )13. 在Excel VBA中物件屬性的圖示為(1) (2) (3) (4)
( )14. 修改Excel按鈕顯示文字是使用那一個屬性(1)caption (2)name (3)text (4)value
( )15. 在Excel VBA要強制宣告變數才可以使用,要在程式的最上方加上(1)Option (2)Explicit (3)dim (4)Option Explicit
( )16. 在Excel 中要如何在變數d設定為日期1972/3/31(1)d=1972/3/31 (2)d=#1972/3/31# (3)d="1972/3/31" (4)d='1972/3/31'
( )17. 請問此圖程式執行結果(1)在變數i不等於5時會中斷程式 (2)在變數i=5時會中斷程式 (3)在變數i<5時會中斷程式 (4)在變數i>5時會中斷程式
( )18. 請問此圖i若變成95,執行時會在即時視窗顯示(1)丁 (2)甲 (3)乙 (4)丙
( )19. 工作表如圖,若執行底下程式會顯示什麼?
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
( )20. MsgBox的回傳值型別是(1)string (2)single (3)date (4)integer
( )21. 在Excel VBA的即時視窗輸入 print 1+2+3 請問會顯示(1)6 (2)0 (3)123 (4)1+2+3
( )22. 在Excel VBA的即時視窗輸入 print mid("N1234",2,1) 請問會顯示(1)3 (2)N (3)1 (4)2
( )23. 圖中的數字3代表(1)column (2)range (3)cell (4)row
( )24. 程式碼如下
For i= 1 to 10 
      cells(1,i).value=1
Next i
此程式的執行結果?(1)在儲存格A1:A10都顯示1 (2)在儲存格A1:J1填入1到10 (3)在儲存格A1:J1填入1到1 (4)在儲存格A1:A10填入1到10
( )25. 請問此圖i若變成95,執行時會在即時視窗顯示(1)乙 (2)丙 (3)丁 (4)甲

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

詳解: