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

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

( )1. 在Excel VBA中小於等於的符號是(1)>= (2)=> (3)<= (4)=<
( )2. 工作表如圖,若執行底下程式會顯示什麼?
Sub test1()
    Dim i As Integer
    
    i = 1
    
    Do While Cells(i, 1).Value <> ""
       i = i + 1
    Loop
    
    MsgBox i

End Sub(1)15 (2)16 (3)17 (4)18
( )3. 在Excel VBA的即時視窗輸入 print len("中文字abc")請問會顯示(1)6 (2)9 (3)3 (4)0
( )4. 在Excel中活頁簿的英文名稱為(1)workbook (2)worksheet (3)excel (4)Application
( )5. 在Excel VBA的即時視窗輸入 print 5\2 請問會顯示(1)0 (2)2.5 (3)2 (4)1
( )6. 在Excel VBA的即時視窗輸入 print len(trim(" 1+2=3 ")) 請問會顯示(1)5 (2)6 (3)0 (4)4
( )7. 工作表如圖,若執行底下程式會顯示什麼?
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
( )8. 使用array函數建立陣列,型別必須為(1)variant (2)int (3)string (4)date
( )9. 圖中的數字1代表(1)cell (2)row(列) (3)column(行) (4)worksheet
( )10. 下列那一個Excel VBA語法是正確的(1)excel.range("a1").text=123 (2)range(a1).value=123 (3)cells("a1").value=123 (4)cells(1,1)=123
( )11. 程式碼如下
For i= 1 to 10 
      cells(1,i).value=i
Next i
此程式的執行結果?(1)在儲存格A1:J1填入1到1 (2)在儲存格A1:A10填入1到10 (3)在儲存格A1:A10都顯示1 (4)在儲存格A1:J1填入1到10
( )12. 工作表如圖,若執行底下程式會顯示什麼?
Sub test10()
    Dim i As Integer
    
    i = 1
    
    Do While Cells(6, i).Value <> ""
       i = i + 1
    Loop
    
    MsgBox i

End Sub(1)2 (2)3 (3)4 (4)1
( )13. 在Excel VBA的即時視窗輸入 print mid("N1234",2,1) 請問會顯示(1)1 (2)2 (3)3 (4)N
( )14. 底下程式執行時會在即時視窗顯示什麼
Sub test8()
    Dim i As Integer
    Dim std_no(5) As Integer
    
    For i = 1 To 5
        std_no(i - 1) = i * 2 - 1
    Next
    
    Debug.Print std_no(3)   '顯示陣列索引為3的資料
End Sub(1)5 (2)7 (3)9 (4)3
( )15. inputbox的回傳值型別是(1)integer (2)string (3)single (4)date
( )16. 在Excel VBA的即時視窗輸入 print left("N1234",1) 請問會顯示(1)N (2)4 (3)1 (4)2
( )17. 底下程式碼執行結果會在即時視窗出現
Sub test6()
    Dim i, n As Integer
    
    n = 0
    
    For i = 1 To 10
       
       If i Mod 3 = 1 Then
          n = n + 1
       End If
       
       If n = 3 Then
          Exit For
       End If
       
    Next i
    
    Debug.Print n & "," & i
    
End Sub(1)3,8 (2)4,10 (3)3,7 (4)4,11
( )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 VBA中大於等於的符號是(1)<> (2)>= (3)=> (4)<=
( )20. 工作表如圖,若執行底下程式會顯示什麼?
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)50 (2)59 (3)62 (4)41
( )21. 在Excel VBA的即時視窗輸入 print lcase("How are you")請問會顯示(1)How are you (2)how are you (3)How Are You (4)HOW ARE YOU
( )22. 在Excel VBA中要顯示一段文字hello那一段語法是對的(1)say "hello" (2)say hello (3)msgbox hello (4)msgbox "hello"
( )23. 在Excel VBA的即時視窗輸入 print 1+2+3 請問會顯示(1)0 (2)123 (3)1+2+3 (4)6
( )24. 在Excel VBA中下列那一個敍述是錯的(1)i=i (2)i=-i (3)i+1=i (4)let i=i+1
( )25. 程式碼如下
For i= 1 to 10 
      cells(i,1).value=1
Next i
此程式的執行結果?(1)在儲存格A1:A10都顯示1 (2)在儲存格A1:J1填入1到10 (3)在儲存格A1:J1填入1到1 (4)在儲存格A1:A10填入1到10

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

詳解: