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

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

( )1. 切換設計模式及執行模式圖示是(1) (2) (3) (4)
( )2. 在Excel VBA的即時視窗輸入? Mid("daylong", 2, 3)請問會顯示(1)ay (2)ayl (3)yl (4)ylo
( )3. 在Excel VBA中下列那一個敍述是錯的(1)i+1=i (2)let i=i+1 (3)i=i (4)i=-i
( )4. inputbox的回傳值型別是(1)single (2)date (3)integer (4)string
( )5. 工作表如圖,若執行底下程式會顯示什麼?
Sub test3()
    Dim i As Integer
    
    i = 1
    
    Do While Cells(i, 2).Value <> ""
       i = i + 1
    Loop
    
    MsgBox i

End Sub
(1)7 (2)8 (3)5 (4)6
( )6. 請問此圖i若變成95,執行時會在即時視窗顯示(1)乙 (2)丙 (3)丁 (4)甲
( )7. 在Excel VBA中不等於的符號是(1)!= (2)<> (3)>=< (4)==
( )8. 修改Excel按鈕顯示文字是使用那一個屬性(1)name (2)text (3)value (4)caption
( )9. 工作表如圖,若執行底下程式會顯示什麼?
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)37 (2)63 (3)68 (4)0
( )10. 工作表如圖,若執行底下程式會顯示什麼?
Sub test2()
    Dim i As Integer
    
    i = 1
    
    Do While Cells(i + 1, 1).Value <> ""
       i = i + 1
    Loop
    
    MsgBox i

End Sub(1)18 (2)15 (3)16 (4)17
( )11. 在Excel VBA中要宣告變數I為有小數語法為(1)dim I as single (2)dim I as string (3)dim I as date (4)dim I as integer
( )12. 請問此圖那一個的真值表(1)and (2)not (3)xor (4)or
( )13. 工作表如圖,若執行底下程式會顯示什麼?
Sub test7()
    Dim i As Integer
    
    i = 1
    
    Do While Cells(i + 1, 3).Value <> "" And Cells(i + 2, 3).Value <> ""
       i = i + 1
    Loop
    
    MsgBox Cells(i, 3).Value

End Sub
(1)41 (2)86 (3)62 (4)38
( )14. 程式碼如下

For i= 1 to 9 
    For j=1 to 9
        cells(i,j).value=i*j
    Next j
Next i當i=5,j=3時,執行結果(1)在儲存格C5顯示5 (2)在儲存格E3顯示15 (3)在儲存格C5顯示15 (4)在儲存格E3顯示3
( )15. 在Excel VBA的即時視窗輸入 print 5\2 請問會顯示(1)2 (2)1 (3)0 (4)2.5
( )16. 在Excel VBA的即時視窗輸入 print instr("1+2=3","=") 請問會顯示(1)4 (2)1 (3)2 (4)3
( )17. 請問此圖程式執行結果(1)在變數i<5時會中斷程式 (2)在變數i>5時會中斷程式 (3)在變數i不等於5時會中斷程式 (4)在變數i=5時會中斷程式
( )18. 在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"
( )19. 在Excel物件的使用方式中是用什麼來表示階層(1)冒號 (2)減號 (3)句號 (4)等號
( )20. 程式碼如下
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
( )21. Dim StdNo(10) as String這樣的宣告跟底下那一個相同(1)Dim StdNo(1 to 10) as String (2)Dim StdNo(0 to 10) as String (3)Dim StdNo(0 to 10) as date (4)Dim StdNo(10) as Integer
( )22. 在Excel VBA的即時視窗輸入 print mid("N1234",2,1) 請問會顯示(1)N (2)1 (3)2 (4)3
( )23. 在Excel VBA中要宣告變數I為日期語法為(1)dim I as date (2)dim I as integer (3)dim I as single (4)dim I as string
( )24. 請問此圖那一個的真值表(1)and (2)not (3)xor (4)or
( )25. 程式碼如下
LRandomNumber = Int ((300 - 200 + 1) * Rnd + 200),請問LRandomNumber的範圍為(1)201

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

詳解: