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

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

( )1. 在Excel 2007要儲存含有巨集的格式,檔案副檔名為(1)csv (2)txt (3)xlsm (4)xlsx
( )2. 底下程式執行時會在即時視窗顯示什麼
Sub test3()
    Dim no As Variant
    no = Array(1, 2, 3, 4, 5)
    Debug.Print UBound(no)   '顯示陣列最大索引值
End Sub(1)0 (2)3 (3)4 (4)5
( )3. 在Excel VBA的即時視窗輸入 print 1 & 2 & 3 請問會顯示(1)6 (2)123 (3)0 (4)1+2+3
( )4. 在ExcelVBA中要將3顯示在即時視窗要如何使用(1)echo 3 (2)debug.echo 3 (3)print 3 (4)debug.print 3
( )5. 底下程式碼執行結果會在即時視窗出現
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,0 (2)5,-2 (3)3,0 (4)3,-1
( )6. 工作表如圖,若執行底下程式會顯示什麼?
Sub test9()
    Dim i As Integer
    
    i = 1
    
    Do While Cells(1, i).Value <> ""
       i = i + 1
    Loop
    
    MsgBox i

End Sub(1)6 (2)4 (3)3 (4)5
( )7. 在Excel中工作表的英文名稱為(1)workbook (2)worksheet (3)excel (4)Application
( )8. 使用debug.print rnd(1)不可能產生那一個數字(1)1 (2)0 (3)0.99 (4)0.5
( )9. 變數的命名規則(1)變數名稱不可為關鍵字,例如for、next、while、public等 (2)以上皆是 (3)第一個字元需英文字母 (4)變數名稱不可包含空白、點、,逗號或其他特殊字元
( )10. 在ExcelVBA中要使用餘數要用那一個?(1)* (2)mod (3)\ (4)/
( )11. 在Excel VBA的即時視窗輸入 print instr("1+2=3","=") 請問會顯示(1)4 (2)1 (3)2 (4)3
( )12. 修改Excel按鈕顯示文字是使用那一個屬性(1)value (2)caption (3)name (4)text
( )13. 請問此圖那一個的真值表(1)and (2)not (3)xor (4)or
( )14. 在Excel VBA中大於等於的符號是(1)<= (2)<> (3)>= (4)=>
( )15. 程式碼如下
LRandomNumber = Int ((300 - 200 + 1) * Rnd + 200),請問LRandomNumber的範圍為(1)201
( )16. 請問此圖i若變成95,執行時會在即時視窗顯示(1)乙 (2)丙 (3)丁 (4)甲
( )17. 在Excel VBA中列的英文為(1)column (2)cell (3)x (4)row
( )18. 底下程式碼執行結果會在即時視窗出現
Sub test2()
    Dim i, n As Integer
    
    n = 0
    
    For i = 5 To 1
       n = n + 1
    Next i
    Debug.Print n & "," & i
    
End Sub(1)0,6 (2)5,6 (3)5,0 (4)0,5
( )19. 在Excel物件的使用方式中是用什麼來表示階層(1)句號 (2)等號 (3)冒號 (4)減號
( )20. 在Excel VBA的即時視窗輸入 print len("中文字abc")請問會顯示(1)6 (2)9 (3)3 (4)0
( )21. 程式碼如下
For i= 1 to 10 
      cells(1,i).value=i
Next i
此程式的執行結果?(1)在儲存格A1:A10填入1到10 (2)在儲存格A1:A10都顯示1 (3)在儲存格A1:J1填入1到10 (4)在儲存格A1:J1填入1到1
( )22. 在Excel VBA中小於等於的符號是(1)=< (2)>= (3)=> (4)<=
( )23. 圖中的數字3代表(1)cell (2)row (3)column (4)range
( )24. MsgBox的回傳值型別是(1)integer (2)string (3)single (4)date
( )25. 工作表如圖,若執行底下程式會顯示什麼?
Sub test2()
    Dim i As Integer
    
    i = 1
    
    Do While Cells(i + 1, 1).Value <> ""
       i = i + 1
    Loop
    
    MsgBox i

End Sub(1)15 (2)16 (3)17 (4)18

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

詳解: