【題號81到題號95亂數取15題測驗】-Excel VBA實務班(第二班)測驗

開始測驗時間:2024-06-16 07:11:57
其他相關測驗:
最新考題: 181002A14門市服務乙級題庫614題(任選80題)  旅館資訊系統規劃師題庫151題(亂數選70)  2019財富管理規劃師筆試題庫387題(任選80題) 
考卷名稱.: 【題號81到題號95亂數取15題測驗】-Excel VBA實務班(第二班)測驗
android版安裝(.APK)
使用者名稱:
記住1週時間
查看考試結果密碼:
  紙本測驗
※可以直接用滑鼠點選答案選項作答
字體大小:A  A  A  將未填答自動填: 1到4亂數   1   2   3   4  
  
  考試題目
( )1.工作表如圖,若執行底下程式會顯示什麼?
Sub test8()
    Dim i As Integer
    
    i = 1
    
    Do While Cells(1, i + 1).Value <> ""
       i = i + 1
    Loop
    
    MsgBox i

End Sub       (第三天測驗-23)
(1)I don't know
(2)4
(3)3
(4)5
(5)6
( )2.使用array函數建立陣列,型別必須為       (第四天測驗-01)
(1)date
(2)I don't know
(3)variant
(4)int
(5)string
( )3.底下程式執行時會在即時視窗顯示什麼
Sub test6()
    Dim i As Integer
    Dim std_no(5) As Integer
    
    For i = 1 To 5
        std_no(i) = i
    Next
    
    Debug.Print std_no(3)   '顯示陣列索引為3的資料
End Sub       (第四天測驗-08)
(1)2
(2)3
(3)4
(4)I don't know
(5)1
( )4.底下程式執行時會在即時視窗顯示什麼
Sub test4()
    Dim std_no As Variant
    no = Split("國文,英文,數學,理化", ",")
    Debug.Print no(3)   '顯示陣列索引為3的資料
End Sub       (第四天測驗-06)
(1)英文
(2)數學
(3)理化
(4)I don't know
(5)國文
( )5.底下程式執行時會在即時視窗顯示什麼
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       (第四天測驗-10)
(1)7
(2)9
(3)I don't know
(4)3
(5)5
( )6.工作表如圖,若執行底下程式會顯示什麼?
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       (第三天測驗-21)
(1)59
(2)I don't know
(3)62
(4)41
(5)50
( )7.Dim StdNo(10) as String這樣的宣告跟底下那一個相同       (第四天測驗-05)
(1)Dim StdNo(10) as Integer
(2)I don't know
(3)Dim StdNo(1 to 10) as String
(4)Dim StdNo(0 to 10) as String
(5)Dim StdNo(0 to 10) as date
( )8.底下程式執行時會在即時視窗顯示什麼
Sub test1()
    Dim no As Variant
    no = Array(1, 2, 3, 4, 5)
    Debug.Print no(1)   '顯示陣列索引為1的資料
End Sub       (第四天測驗-02)
(1)I don't know
(2)1
(3)2
(4)3
(5)4
( )9.工作表如圖,若執行底下程式會顯示什麼?
Sub test9()
    Dim i As Integer
    
    i = 1
    
    Do While Cells(1, i).Value <> ""
       i = i + 1
    Loop
    
    MsgBox i

End Sub       (第三天測驗-24)
(1)5
(2)6
(3)I don't know
(4)4
(5)3
( )10.底下程式執行時會在即時視窗顯示什麼
Sub test3()
    Dim no As Variant
    no = Array(1, 2, 3, 4, 5)
    Debug.Print UBound(no)   '顯示陣列最大索引值
End Sub       (第四天測驗-04)
(1)0
(2)I don't know
(3)3
(4)4
(5)5
( )11.底下程式執行時會在即時視窗顯示什麼
Sub test5()
    Dim std_no As Variant
    no = Split(",國文,英文,數學,理化", ",")
    Debug.Print no(3)   '顯示陣列索引為3的資料
End Sub       (第四天測驗-07)
(1)理化
(2)I don't know
(3)國文
(4)英文
(5)數學
( )12.底下程式執行時會在即時視窗顯示什麼
Sub test7()
    Dim i As Integer
    Dim std_no(5) As Integer
    
    For i = 1 To 5
        std_no(i - 1) = i - 1
    Next
    
    Debug.Print std_no(3)   '顯示陣列索引為3的資料
End Sub       (第四天測驗-09)
(1)4
(2)I don't know
(3)1
(4)2
(5)3
( )13.底下程式執行時會在即時視窗顯示什麼
Sub test2()
    Dim no As Variant
    no = Array(1, 2, 3, 4, 5)
    Debug.Print no(5)   '顯示陣列索引為5的資料
End Sub       (第四天測驗-03)
(1)出現陣列索引超出範圍
(2)3
(3)4
(4)1
(5)I don't know
( )14.工作表如圖,若執行底下程式會顯示什麼?
Sub test10()
    Dim i As Integer
    
    i = 1
    
    Do While Cells(6, i).Value <> ""
       i = i + 1
    Loop
    
    MsgBox i

End Sub       (第三天測驗-25)
(1)3
(2)4
(3)I don't know
(4)1
(5)2
( )15.工作表如圖,若執行底下程式會顯示什麼?
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
       (第三天測驗-22)
(1)I don't know
(2)86
(3)62
(4)38
(5)41
 
  

靜思語400句:【325.將氣憤的境,轉為柔和的心境,再轉換為友愛,這個世間將愈益完美。】
1小時內上線人數:80 人

您有在蝦皮購物嗎?可以透過https://shope.ee/5peImifZAH 連結去購物會有分潤1%支持網站營運