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

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

( )1. 在Excel VBA中物件方法的圖示為(1) (2) (3) (4)
( )2. 程式碼如下
For i= 1 to 10 
      cells(1,i).value=1
Next i
此程式的執行結果?(1)在儲存格A1:J1填入1到1 (2)在儲存格A1:A10填入1到10 (3)在儲存格A1:A10都顯示1 (4)在儲存格A1:J1填入1到10
( )3. 在Excel VBA的即時視窗輸入 print right("N1234",1) 請問會顯示(1)1 (2)2 (3)N (4)4
( )4. 在Excel VBA的即時視窗輸入 print lcase("How are you")請問會顯示(1)how are you (2)How Are You (3)HOW ARE YOU (4)How are you
( )5. 使用array函數建立陣列,型別必須為(1)int (2)string (3)date (4)variant
( )6. 程式碼如下

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顯示15 (2)在儲存格E3顯示3 (3)在儲存格C5顯示5 (4)在儲存格E3顯示15
( )7. 在Excel VBA的即時視窗輸入 print 5\2 請問會顯示(1)0 (2)2.5 (3)2 (4)1
( )8. 在Excel VBA中不等於的符號是(1)!= (2)<> (3)>=< (4)==
( )9. 在Excel VBA參數與參數中間是用什麼符號區隔(1)減號 (2)逗點 (3)等號 (4)冒號
( )10. 圖中的數字4代表(1)workbook (2)worksheet (3)range (4)cell
( )11. 工作表如圖,若執行底下程式會顯示什麼?
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)62 (2)38 (3)41 (4)86
( )12. 底下程式執行時會在即時視窗顯示什麼
Sub test5()
    Dim std_no As Variant
    no = Split(",國文,英文,數學,理化", ",")
    Debug.Print no(3)   '顯示陣列索引為3的資料
End Sub(1)數學 (2)理化 (3)國文 (4)英文
( )13. 在Excel中活頁簿的英文名稱為(1)workbook (2)worksheet (3)excel (4)Application
( )14. 在Excel VBA的即時視窗輸入 print 1 & 2 + 3 請問會顯示(1)15 (2)123 (3)6 (4)0
( )15. 圖中的數字6代表(1)cell (2)workbook (3)worksheet (4)range
( )16. MsgBox的回傳值型別是(1)string (2)single (3)date (4)integer
( )17. 在Excel VBA的即時視窗輸入 print instr("1+2=3","=") 請問會顯示(1)3 (2)4 (3)1 (4)2
( )18. inputbox的回傳值型別是(1)integer (2)string (3)single (4)date
( )19. 底下程式執行時會在即時視窗顯示什麼
Sub test4()
    Dim std_no As Variant
    no = Split("國文,英文,數學,理化", ",")
    Debug.Print no(3)   '顯示陣列索引為3的資料
End Sub(1)英文 (2)數學 (3)理化 (4)國文
( )20. 工作表如圖,若執行底下程式會顯示什麼?
Sub test1()
    Dim i As Integer
    
    i = 1
    
    Do While Cells(i, 1).Value <> ""
       i = i + 1
    Loop
    
    MsgBox i

End Sub(1)17 (2)18 (3)15 (4)16
( )21. 下列那一個Excel VBA語法是正確的(1)range(a1).value=123 (2)cells("a1").value=123 (3)cells(1,1)=123 (4)excel.range("a1").text=123
( )22. 修改Excel按鈕顯示文字是使用那一個屬性(1)caption (2)name (3)text (4)value
( )23. 請問此圖那一個的真值表(1)or (2)and (3)not (4)xor
( )24. 在Excel VBA的中斷模式時,按那一個按鈕可以逐一行執行(1)F8 (2)F5 (3)shift+F8 (4)Ctrl+Shift+F9
( )25. 工作表如圖,若執行底下程式會顯示什麼?
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)41 (2)86 (3)62 (4)38

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

詳解: