第9章模塊與VBA程序設(shè)計_習(xí)題

1、n=n+1第 9 章 模塊與 VBA 程序設(shè)計 _ 習(xí)題3一、選擇題1模塊是存儲代碼的容器，其中窗體就是一種（）。AA 類模塊B標(biāo)準(zhǔn)模塊C子過程D函數(shù)過程2使用 Dim 聲明變量，若省略 “ As 類型 ” ，則所創(chuàng)建的變量默認(rèn)為（）。CA IntegerB StringC VariantD 不合法變量3 函數(shù) Len（"Access 數(shù)據(jù)庫 "） 的值是（）。AA 9B 12C15D184函數(shù) Right(Left(Mid( " Access_DataBase ",10,3),2),1) 的值是()。AA aBBC tD空格5 在下列邏輯表達(dá)式中， 能

2、正確表示條件 CAm Mod 2 = 1 Or n Mod 2 = 1C m Mod 2 = 0 Or n Mod 2 = 06語句 Select Case x 中， x 為一整型變量， DA Case Is > 20B Case 1 To 10m 和 n 至少有一個為偶數(shù) ” 的是（ ）Bm Mod 2= 1 And n Mod 2 =1Dm Mod 2= 0 And n Mod 2 =0下列 Case語句中，表達(dá)式錯誤的是（）。C Case 2, 4, 6D Case x > 107 Sub 過程和 Function 過程最根本的區(qū)別是（）。AASub 過程的過程名不能返回值，

3、而 Function 過程能通過過程名返回值B Sub 過程可以使用 Call 語句或直接便用過程名，而 Function 過程不能 C兩種過程參數(shù)的傳遞方式不同D Function 過程可以有參數(shù)， Sub 過程不能有參數(shù)8VBA 中用實參 x 和 y 調(diào)用有參過程 PPSum（a, b） 的正確形式是（）。BA PPSum a, bB PPSum x, yC Call PPSum（a, b）D Call PPSum x, y9在 VBE 的立即窗口輸入如下命令，輸出結(jié)果是（）。Bx=4=5A TrueB False10 程序調(diào)試的目的在于（A 驗證程序代碼的正確性C 4=5）。DB 執(zhí)行程

4、序代碼D 語句有錯C查看程序代碼的變量D 查找和解決程序代碼的錯誤二、填空題1在 VBA 中，要得到 15 ，75區(qū)間的隨機(jī)整數(shù)， 可以用表達(dá)式 。Int（Rnd*61+15）2定義了二維數(shù)組A（2 to 5, 5） ，則該數(shù)組的元素個數(shù)為 。 243VBA 中變量作用域分為 3 個層次，這 3 個層次的變量是 、 和 。局部變量，模塊變量，全局變量4VBA 的有參過程定義， 形參用 說明，表明該形參為傳值調(diào)用； 形參用 ByRef說明，表明該形參為 。 ByVal ，傳地址調(diào)用5 有如下 VBA 代碼，運行結(jié)束后，變量 n 的值是 ，變量 i 的值是 。12， 4n=0For i=1 To

5、3For j=-4 To -1Next jNext i6設(shè)有以下窗體單擊事件過程：Private Sub Form_Click（）a=1For i=1 To 3Select Case iCase 1,3a=a+1Casw 2,4a=a+2End SelectNext iMsgBox aEnd Sub打開窗體運行后，單擊窗體，則消息框的輸出內(nèi)容是 。 57進(jìn)行 ADO 數(shù)據(jù)庫編程時，用來指向查詢數(shù)據(jù)時返回的記錄集對象是 。 RecordSet8 RecordSet 對象有兩個屬性用來判斷記錄集的邊界，其中， 判斷記錄指針是否在最后一條記錄之后的屬性是。 EOF三、問答題1在 Access 中，既

6、然已經(jīng)提供了宏操作，為什么還要使用VBA ？答：在 Access 中宏提供的是常用的一些操作，但未包含所有操作。用戶在表示一些自 我需要的特定操作時，仍需使用 VBA 代碼編寫其操作。2什么是類模塊和標(biāo)準(zhǔn)模塊？它們的特征是什么？ 答：類模塊是與類對象相關(guān)聯(lián)的模塊， 所以也稱為類對象模塊。 類模塊是可以定義新對 象的模塊。 新建一個類模塊， 表示新創(chuàng)建了一個對象， 通過類模塊的過程可定義對象的屬性 和方法。 Access 的類模塊有 3 種基本形式：窗體類模塊、報表類模塊和自定義類模塊。標(biāo)準(zhǔn)模塊是指可在數(shù)據(jù)庫中公用的模塊， 模塊中包含的主要是公共過程和常用過程， 這 些公用過程不與任何對象相關(guān)聯(lián)

7、， 可以被數(shù)據(jù)庫的任何對象使用， 可以在數(shù)據(jù)庫的任何位置 執(zhí)行。常用過程是類對象經(jīng)常要使用的過程，需要多次調(diào)用的過程。一般情況下， Access 中所說的模塊是指標(biāo)準(zhǔn)模塊。類模塊一般用于定義窗體、 報表中某個控件事件的響應(yīng)行為， 常通過私有的過程來定義。 類模塊可以通過對象事件操作直接調(diào)用。標(biāo)準(zhǔn)模塊一般用來定義數(shù)據(jù)庫、 窗體、 報表中多次執(zhí)行的操作， 常通過公有的過程來定 義，標(biāo)準(zhǔn)模塊通過函數(shù)過程名來調(diào)用。3什么是形參和實參？過程中參數(shù)的傳遞有哪幾種？它們之間有什么不同？ 答：過程或函數(shù)聲明中的形式參數(shù)列表簡稱形參。形參可以是變量名（后面不加括號） 或數(shù)組名（后面加括號） 。如果子過程沒有形式

8、參數(shù)，則子程序名后面必須跟一個空的圓括 號。過程或函數(shù)調(diào)用時， 其實際參數(shù)列表簡稱為實參， 它與形式參數(shù)的個數(shù)、 位置和類型必 須一一對應(yīng)，調(diào)用時把實參的值傳遞給形參。在 VBA 中實參與形參的傳遞方式有兩種：引用傳遞和按值傳遞。在形參前面加上 ByRef 關(guān)鍵字或省略不寫，表示參數(shù)傳遞是引用傳遞方式，引用傳遞 方式是將實參的地址傳遞給形參， 也就是實參和形參共用同一個內(nèi)存單元， 是一種雙向的數(shù) 據(jù)傳遞， 即調(diào)用時實參將值傳遞給形參， 調(diào)用結(jié)束由形參將操作結(jié)果返回給實參。 引用傳遞 的實參只能是變量，不能是常量或表達(dá)式。在形參前面加上 ByVal 關(guān)鍵字時，表示參數(shù)是按值傳遞方式，是一種單向的

9、數(shù)據(jù)傳遞。 即調(diào)用時只能由實參將值傳遞形參， 調(diào)用結(jié)束后不能由形參將操作結(jié)果返回給實參。 實參可 以是常量、變量或表達(dá)式。4編寫程序，要求輸入一個 3 位整數(shù)，將它反向輸出。例如輸入 123 ，輸出為 321。7在 Access 中設(shè)計的窗體如上圖所示，轉(zhuǎn)換命令按鈕的單擊事件代碼如下：Private Sub cmd_convert_Click()Dim v_result As String'結(jié)果變量v_result = ""If Not IsNumeric(Text0.Value) Then MsgBox " 輸入的不為數(shù)值！"Exit SubE

10、nd IfIf Len(Text0.Value) <> 3 ThenMsgBox " 輸入的不為 3 位數(shù)！ "End IfFor i = 1 To 3v_result = v_result & Mid(Text0.Value, 3 - i + 1, 1)Next iMsgBox " 結(jié)果： " & v_resultEnd SubMAX 變量中。5利用 IF 語句求 3 個數(shù) X、Y、Z 中的最大數(shù)，并將其放入 答： VBA 代碼如下：Private Sub Command1_Click()x = InputBox("

11、; 請輸入第一個數(shù)max = xy = InputBox(" 請輸入第二個數(shù)If y > max Then max = y z = InputBox(" 請輸入第三個數(shù)x 的值 ", " 請輸入需比較的數(shù) ")y 的值 ", " 請輸入需比較的數(shù) ")z 的值 ", " 請輸入需比較的數(shù) ")If z > max Then max = zMe.Text1.Value = Str(x) & "," & Str(y) & "

12、," & Str(z)Me.Text3.Value = maxEnd Sub6使用 Select Case 結(jié)構(gòu)將一年中的 12 個月份，分成 4 個季節(jié)輸出 答： VBA 代碼如下：Private Sub Form_Load()Me.Text1.Value = ""End SubPrivate Sub Command5_Click()Me.Text1.Value = ""m% = InputBox(" 請輸入欲判斷季節(jié)的月份的值 Select Case m", " 注意：只可為 1-12 之間的整數(shù) &q

13、uot;)Case 2 To 4 ' 春季Me.Label2.Caption = Trim(Str(m) & " Me.Text1.Value = " 春季 "Case 5 To 7 ' 夏 季Me.Label2.Caption = Trim(Str(m) & " Me.Text1.Value = " 夏季 "Case 8 To 10 ' 秋季Me.Label2.Caption = Trim(Str(m) & "Me.Text1.Value = " 秋季 "

14、Case 11 To 12, 1Me.Label2.Caption = Trim(Str(m) & "月份的季節(jié)為月份的季節(jié)為月份的季節(jié)為月份的季節(jié)為Me.Text1.Value = " 冬季 "Case Else ' 無 效的月份Me.Text1.Value = " 輸入的是無效的月份 "End SelectEnd Sub7 求 100 以內(nèi)的素數(shù) 答： VBA 代碼如下：Private Sub Command1_Click()Dim m As String Me.Text1.Value = "" m =

15、"2"For i% = 3 To 99 Step 2For j% = 2 To i - 1Lx% = i Mod jIf Lx = 0 ThenExit ForEnd IfNextIf j > i - 1 Thenm = m + " ," + Trim(Str(i) End IfNextMe.Text1.Value = mEnd Sub8利用 ADO 對象，對 “教學(xué)管理 ”數(shù)據(jù)庫的 “課程 ”表完成以下操作： （ 1）添加一條記錄： “ Z0004 ”，“數(shù)據(jù)結(jié)構(gòu)” ，“必修”，1。（ 2）查找課程名為 “ 數(shù)據(jù)結(jié)構(gòu) ” 的記錄，并將其學(xué)分更新為

16、3。（ 3）刪除課程號為 “ Z0004 ”的記錄。 答：（1）在教學(xué)管理數(shù)據(jù)庫中，添加一條記錄的過程如下。Sub AddRecord（kc_hao As String, kc_name As String, kc_class As String, kc_score As Integer）Dim rs As New ADODB.RecordsetDim conn As New ADODB.ConnectionOn Error GoTo GetRS_ErrorSet conn = CurrentProject.Connection'打開當(dāng)前連接rs.Open strSQL, conn,

17、adOpenKeyset, adLockOptimistic rs.AddNewrs.Fields（" 課程號 "）.Value = kc_haors.Fields（" 課程名 "）.Value = kc_namers.Fields（" 課程類別 "）.Value = kc_class rs.Fields（" 學(xué)分 "）.Value = kc_score rs.UpdateSet rs = NothingSet conn = NothingEnd Sub（ 2）查找課程名為 “ 數(shù)據(jù)結(jié)構(gòu) ”的記錄，并將其學(xué)分更新為3。其代碼實現(xiàn)如下：Sub ExecSQL（）Dim conn As New ADODB.ConnectionSet conn =