【正文】
而RecordSourse屬性用來設(shè)置數(shù)據(jù)源,格式為RecordSourse=數(shù)據(jù)源。40. 下列程序的功能是返回當(dāng)前窗體的記錄集:Sub GetRecNum() Dim rs As Object Set rs = 【】 MsgBox End Sub為保證程序輸出記錄集(窗體記錄源)的記錄數(shù),括號內(nèi)應(yīng)填入的語句是( )。A) NzB) Find C) LookupD) DLookup 參考答案:D【解析】DlookUp函數(shù)是從指定記錄集里檢索特定字段的值。A) 1B) 2C) 10D) 11 參考答案:B【解析】函數(shù)DateDiff按照指定類型返回指定的時間間隔數(shù)目。在過程f中有兩層Do循環(huán),傳入?yún)?shù)m=24,n=18,由于mn所以執(zhí)行m=m-n=24-18=6,內(nèi)層第1個Do循環(huán)結(jié)束后m=6,n=18;此時m小于n,所以再執(zhí)行n=n-m=18-6=12,此時m=6,n=12;再執(zhí)行n=n-m后m=n=6;mn條件滿足,退出循環(huán),然后執(zhí)行f=m的賦值語句,即為f=m=6。36. 在窗體中添加一個名稱為Command1的命令按鈕,然后編寫如下事件代碼:Private Sub Command1_Click() MsgBox f(24,18)End SubPublic Function f(m As Integer,n As Integer)As Integer Do While mn Do While mn m = m-n Loop Do While mn n = n-m Loop Loop f = mEnd Function窗體打開運(yùn)行后,單擊命令按鈕,則消息框的輸出結(jié)果是( )。Private Sub Command32_Click() f0 = 1 : f1 = 1 : k = 1 Do While k = 5 f = f0 + f1 f0 = f1 f1 = f k = k + 1 Loop MsgBox f = amp。而If是程序流程控制的條件語句,不是函數(shù)。34. 下列四個選項(xiàng)中,不是VBA的條件函數(shù)的是( )。33. 運(yùn)行下列程序段,結(jié)果是( )。32. 表達(dá)式B = INT(A+)的功能是( )。A) 按值傳遞 B) 按地址傳遞C) ByRef傳遞D) 按形參傳遞 參考答案:A【解析】參數(shù)傳遞有兩種方式:按值傳遞ByVal和按址傳遞ByRef。A) 語法錯誤 B) 邏輯錯誤C) 運(yùn)行錯誤D) 注釋錯誤 參考答案:A【解析】語法錯誤在編輯時就能自動檢測出來,邏輯錯誤和運(yùn)行錯誤是程序在運(yùn)行時才能顯示出來的,不能自動檢測,注釋錯誤是檢測不出來的。A) 20B) 24C) 25D) 36 參考答案:A【解析】VBA中Option Base 1語句的作用是設(shè)置數(shù)組下標(biāo)從1開始,展開二維數(shù)組A(2 to 5,5),為A(2,1)…A(2,5),A(3,1)…A(3,5),…,A(5,1)…A(5,5)共4組,每組5個元素,共20個元素。Rem是用來標(biāo)識注釋的語句,不能作為變量名,用它做變量名是非法的。28. 下列給出的選項(xiàng)中,非法的變量名是( )。A) 窗體B) 宏本身C) 表D) 數(shù)據(jù)庫 參考答案:B【解析】宏是一個或多個操作組成的集合,在宏運(yùn)行過程中,可以打開關(guān)閉數(shù)據(jù)庫,可以修改窗體屬性設(shè)置,可以執(zhí)行查詢,操作數(shù)據(jù)表對象,但不能修改宏本身27. 為窗體或報表的控件設(shè)置屬性值的正確宏操作