整理過的Access2010《數(shù)據(jù)庫(kù)基礎(chǔ)及應(yīng)用》綜合練習(xí)題

1、精選優(yōu)質(zhì)文檔-傾情為你奉上第1 題: (單選題, 1 分) 在 Access2010 中的 VBA 過程里，要運(yùn)行宏可以使用 DoCmd 對(duì)象的 _方法。 AOpen BRunMacro CClose DQuery答案: B 第2 題: (單選題, 1 分) 在宏中，OpenReport 操作可用來打開指定的_。 A查詢 B狀態(tài)欄 C 窗體 D報(bào)表答案: D 第3 題: (單選題, 1 分) 關(guān)于宏的執(zhí)行，以下說法不正確的是_。 A在“導(dǎo)航窗格”，選擇“宏”對(duì)象列表中的某個(gè)宏名并雙擊，可以直接運(yùn)行該宏中的第一個(gè)子宏的所有宏操作 B在“導(dǎo)航窗格”，選擇“宏”對(duì)象列表中的某個(gè)宏名并雙擊，可以直接運(yùn)

2、行該宏中的第二個(gè)子宏的所有宏操作 C可以在一個(gè)宏中運(yùn)行另一個(gè)宏 D在一個(gè)宏中可以含有IF邏輯塊答案: B 第4 題: (單選題, 1 分)在宏中，用于顯示所有記錄的宏命令是_。 AMsgboxAllRecords BShowAllRecords CSetProperty DSaveRecords答案: B 第5 題: (單選題, 1 分) 在 VBA 中，表達(dá)式 (52 Mod 8) >= 4 的值是_。 ATrue BFalse CAnd D. Or答案: B 第6 題: (單選題, 1 分) 表達(dá)式 IIf(23 5.5 <= 3 Or 5 >= 6, 68, 176)

3、的結(jié)果是_。 A5 B6 C68 D176注意：執(zhí)行整除之前，要先把除數(shù)四舍五入。 請(qǐng)另外試試表達(dá)式 IIf(23 5.4 <= 3 Or 5 >= 6, 68, 176) 的結(jié)果。答案: C 第7 題: (單選題, 1 分)執(zhí)行下列程序段后，變量 P 的值是_。 Dim W As Single Dim P As Single W = 68.5 If W <= 50 Then P = W * 4 Else P = W * 2 End If A. 68.5 B. 137 C. 205.5 D. 275答案: B 第8 題: (單選題, 1 分)設(shè) x=9，執(zhí)行下列程序段后，變量

4、 t 的值是_。 y = x4 +24 If y<>30 Then x = x + y t = x Mod 12 A. 1 B. 2 C. 3 D. 4答案: C 第9 題: (單選題, 1 分) 在 VBA 中，聲明函數(shù)過程的關(guān)鍵字是_。 ADim BConst CFunction DSub答案: C 第10 題: (單選題, 1 分) 對(duì) VBA 中的邏輯值進(jìn)行算術(shù)運(yùn)算時(shí)，True 值被當(dāng)做 -1，F(xiàn)alse 當(dāng)做_。 A1 B2 C0 D3答案: C 第11 題: (單選題, 1 分) 在 VBA 中，類型說明符 # 表示的數(shù)據(jù)類型是_。 A整型 B長(zhǎng)整型 C單精度型 D雙精

5、度答案: D 第12 題: (單選題, 1 分)下列語句中，定義窗體的加載事件過程的頭語句是_。 APrivate Sub Form_Chang() BPrivate Sub Form_LostFocus() CPrivate Sub Form_Load() DPrivate Sub Form_Open()答案: C 第13 題: (單選題, 1 分) 現(xiàn)有一個(gè)已經(jīng)建好的窗體，窗體中有一個(gè)命令按鈕，單擊此按鈕，將打開“產(chǎn)品數(shù)量統(tǒng)計(jì)”報(bào)表，如果采用VBA 代碼完成，下面語句正確的是_。 ADocmd.OpenForm "產(chǎn)品數(shù)量統(tǒng)計(jì)" BDocmd.OpenView &quo

6、t;產(chǎn)品數(shù)量統(tǒng)計(jì)" CDocmd.OpenTable "產(chǎn)品數(shù)量統(tǒng)計(jì)" DDocmd.OpenReport "產(chǎn)品數(shù)量統(tǒng)計(jì)"答案: D 第14 題: (單選題, 1 分) 表達(dá)式 IIf(7 Mod 5 > 3, 60, IIf(23 > 28, 80, 100) 的運(yùn)算結(jié)果是_。 A60 B80 C100 D160答案: C 第15 題: (單選題, 1 分) 在 VBA 中，變量聲明語句“ Dim a!, b AS integer”中的變量 a 的類型是_。 A整型 B單精度型 C長(zhǎng)整型 D變體型答案: B 第16 題: (單選

7、題, 1 分) 在 VBA 中，“ Dim a(3,3) AS Boolean”語句定義了一個(gè)數(shù)組，該數(shù)組中的全部元素都初始化為_。 ATrue BFalse C-1 D1答案: B 第17 題: (單選題, 1 分) 在 VBA 某個(gè)模塊中，有如下聲明語句 Dim a(6,10) AS integer那么數(shù)組 a(6,10) 總共有_個(gè)元素。 A16 B60 C70 D77答案: D 第18 題: (單選題, 1 分) 以下 VBA 程序段運(yùn)行后，變量 j 的值是_。 k = 10 j = 0 Do k = k + 10 j = j + 1 Loop Until k > 20 A1 B

8、2 C4 D10答案: B 第19 題: (單選題, 1 分) 以下 VBA 程序段運(yùn)行后，變量 j 的值是_。 y = 89 j = "不及格" Do While y > 60 j = IIf(y < 70, "及格", IIf(y < 90, "良好", "優(yōu)秀") y = y - 50 Loop A"不及格" B"及格" C"良好" D"優(yōu)秀"答案: C 第20 題: (單選題, 1 分) 以下 VBA 代碼程序

9、運(yùn)行結(jié)束后，變量 a 的值是_。 a=0 b=101 Do b=b-20 a=a+b Loop While b>80 A60 B140 C142 D160 答案: C 第21 題: (單選題, 1 分)以下 VBA 代碼程序運(yùn)行結(jié)束后，數(shù)組元素 a(12) 的值是_。 Dim a(12) As Long, i As Long i=0 Do Until i>12 a(i)=i2 - i i=i+1 Loop A1 B128 C132 D144答案: C 第22 題: (單選題, 1 分)假定有如下的 Function 過程： Function ppfun(x As Single, y

10、 As Single) ppfun=x3-y2 End Function在窗體上添加一個(gè)命令按鈕（名為 cmd10）,然后編寫如下事件過程： Private Sub cmd10_Click() Dim a As Single, b As Single a = 5 b = 4 MsgBox ppfun(a,b) mod 50 End Sub打開窗體運(yùn)行后，單擊命令按鈕，消息框中的輸出內(nèi)容是_。 A50 B25 C9 D109答案: C 第23 題: (單選題, 1 分)在窗體上添加一個(gè)命令按鈕（名為 cmd2）,然后編寫如下事件過程： Private Sub cmd2_Click() Dim p

11、i As Single, n As Integer pi = 3.14 n = Len(Str(pi) & Space(2) & "是本字符串長(zhǎng)度") MsgBox n End Sub打開窗體運(yùn)行后，單擊命令按鈕，消息框中的輸出內(nèi)容是_。 A11 B12 C13 D14答案: D 第24 題: (單選題, 1 分)在窗體上添加一個(gè)命令按鈕（名為 cmd13）,然后編寫如下事件過程： Private Sub cmd13_Click() Dim x As String, y As String x = "龍洞華美路中山大學(xué)新華學(xué)院法學(xué)院" y

12、 = "2006級(jí)法學(xué)專業(yè)學(xué)生" MsgBox Mid(x,6,4) & Right(x,3) & Left(y,9) End Sub打開窗體運(yùn)行后，單擊命令按鈕，消息框中的輸出內(nèi)容是_。 A龍洞華美路中山大學(xué)新華學(xué)院法學(xué)院2006級(jí)法學(xué)專業(yè)學(xué)生 B中山大學(xué)新華學(xué)院法學(xué)院2006級(jí)法學(xué)專業(yè)學(xué)生 C中山大學(xué)法學(xué)院2006級(jí)法學(xué)專業(yè)學(xué)生 D中山大學(xué)法學(xué)院2006級(jí)法學(xué)專業(yè)答案: D 第25 題: (單選題, 1 分) 下列程序段,建立如圖所示的數(shù)組d（下標(biāo)從1開始），填寫所缺部分： 1 2 3 4 5 6 2 1 2 3 4 5 3 2 1 2 3 4 4 3

13、2 1 2 3 5 4 3 2 1 2 6 5 4 3 2 1 Dim d(1 To 6, 1 To 6) For j = 1 To 6 For k = 1 To 6 d(j,k) = Abs( _ ) + 1 '選答案 Next k Next j Aj Bj-k+1 Cj-k D2*j-k答案: C 第26 題: (多選題, 1 分)下面_是合法的變量名。 ASTR-NAME BCase CFOR_99 Dabc2006 E6A答案: CD 第27 題: (多選題, 1 分) 在 VBA 中，對(duì)于 Sub (或 Function) 過程中的每一個(gè)形參,可用于聲明其參數(shù)傳遞方式的關(guān)鍵字

14、包括_。 AByMeB BByVal CByRef DByVBA EBySub答案: BC 第28 題: (單選題, 1 分) 在窗體上添加一個(gè)命令按鈕（名為 cmd），然后編寫如下事件過程。單擊該命令按鈕，便將數(shù)組 p(6,8)中各個(gè)元素都賦予其對(duì)應(yīng)的兩個(gè)下標(biāo)值平方之和，請(qǐng)完善程序。 Private Sub cmd_Click() Dim p(6,8) As integer, i As integer, j As integer For i=0 To 6 For j=0 To 8 p(i,j) = _ '選答案 Next j Next i End Sub A. (i+j)2 B. i

15、2+j C. i+j2 D. i2+j2答案: D 第29 題: (單選題, 1 分) 在窗體上已經(jīng)建立1個(gè)文本框控件txt1和1個(gè)命令按鈕控件cmd1。請(qǐng)完善程序，使之完成以下操作： 程序運(yùn)行時(shí)，文本框上顯示“VBA程序設(shè)計(jì)”，命令按鈕的標(biāo)題上顯示“隱藏”； 單擊命令按鈕時(shí)文本框消失； 單擊窗體時(shí)顯示出文本框。 Private Sub cmd1_Clic() txt1.Visible = False End Sub Private Sub Form_Click() txt1._ = True '選答案 End Sub Private Sub Form_Load() txt1.Valu

16、e = "VBA程序設(shè)計(jì)" txt1.Visible = True cmd1.Caption = "隱藏" End Sub A. Enable B. Value C. Visible D. Caption答案: C 第30 題: (單選題, 1 分) 在窗體上已經(jīng)建立1個(gè)標(biāo)簽控件lab1和1個(gè)命令按鈕控件cmd1。請(qǐng)完善程序，使之完成以下操作： 打開窗體后單擊命令按鈕，則通過輸入對(duì)話框分別輸入3個(gè)數(shù)值，然后求出其中最大的數(shù)，并將最大的數(shù)顯示在標(biāo)簽lab1中。 Private Sub cmd1_Click() Dim a As Single, b As S

17、ingle, c As Single Dim k As Single a = Val(InputBox("輸入第一個(gè)數(shù)") b = Val(InputBox("輸入第二個(gè)數(shù)") c = Val(InputBox("輸入第三個(gè)數(shù)") If a<b Then k = b Else k = a End If If k<c Then k = c End If _ '選答案 End Sub A. lab1.Value = a B. lab1.Value = b C. lab1.Caption = c D. lab1.Capt

18、ion = k答案: D 第31 題: (填空題, 2 分) 7 2 Mod 11 + 7 4 * 9 / 5 Mod 6 上述表達(dá)式的值是_。<空1>_ 答案:Lower(Trim(GetFill(1)="6"第32 題: (填空題, 2 分) 通過編程求出結(jié)果。 把 9786 表示為兩個(gè)加數(shù)之和，使其中一個(gè)加數(shù)能被91整除，而另一個(gè)加數(shù)能被87整除。請(qǐng)求出：在這兩個(gè)加數(shù)中，能被91整除的加數(shù)等于多少？<空1>_ 答案:Lower(Trim(GetFill(1)="4914"第33 題: (填空題, 2 分) 通過編程求出結(jié)果。

19、 求 S = 1/5 + 1/10 + 1/15 + 1/20 + 1/25 + + 1/(5*n) + 的前 n 項(xiàng)之和，當(dāng) S 第一次大于或等于 1.4 時(shí)終止計(jì)算，此時(shí)項(xiàng)數(shù) n 為_。<空1>_ 答案:Lower(Trim(GetFill(1)="616"第10章  VBA程序模塊設(shè)計(jì) 1VBA的英文全名 Visual  Basic  for  Application   2、VBA編程基礎(chǔ) （1）標(biāo)準(zhǔn)數(shù)據(jù)類型（P22

20、1）     Ø數(shù)據(jù)類型定義時(shí)的字符串、類型說明符 變體數(shù)據(jù)類型 ØVBA數(shù)據(jù)類型中不包括字段類型中的OLE對(duì)象型和備注型 （2）常量及其類型    ·Ø類型直接常量（數(shù)值常量、字符常量、日期/時(shí)問常量）、符號(hào)常量（需要用Const來定義）、系統(tǒng)常量（7個(gè)系統(tǒng)常量）、內(nèi)部常量    ·Ø字符常量與日期/時(shí)間常量的定界符 （3）變量   &

21、#160;·Ø變量的命名規(guī)則，變量的定義（聲明）語句（類型說明符的應(yīng)用） ·Ø變量的類型及其作用域：  公共變量、私有（模塊）變量、局部變量  ·Ø數(shù)據(jù)庫(kù)對(duì)象變量在VBA代碼中的引用格式，使用Set建立控件對(duì)象的變量 （4）數(shù)組    ·Ø數(shù)組的構(gòu)成與定義語句（多維數(shù)組的定義）   ·Ø數(shù)組下標(biāo)及數(shù)組元素個(gè)數(shù)的確定 （5）運(yùn)算符與表達(dá)式  

22、;  ·Ø四類運(yùn)算符：算術(shù)運(yùn)算符（標(biāo)準(zhǔn)除法、整除、Mod）、連接運(yùn)算符（&和+）、比較/關(guān)系運(yùn)算符、邏輯運(yùn)算符    ·Ø運(yùn)算符的優(yōu)先級(jí)別 （6）需熟練掌握如下標(biāo)準(zhǔn)函數(shù)：    ·Ø算術(shù)（數(shù)學(xué)）函數(shù)：Int（）、Fix（）、Rnd（）    ·Ø字符串函數(shù)：Instr（）、Len（）、Left（）、Right（）、Mid（）   

23、 ·Ø日期/時(shí)間函數(shù)：Date（）、Now（）、Year（）、Month（）、Day（）、WeekDay（）、    ·Ø類型轉(zhuǎn)換函數(shù)：Asc（）、Chr（）、Str（）、Val（）    ·Ø其它函數(shù)：MsgBox（）、IIf（）3、程序控制的三種基本結(jié)構(gòu)   順序結(jié)構(gòu)  分支/選擇/條件結(jié)構(gòu)（多種結(jié)構(gòu)形式）  循環(huán)結(jié)構(gòu) 要求：掌握各種語句的語法結(jié)構(gòu)及其功能；能讀懂

24、和說出程序的運(yùn)行流程及運(yùn)行結(jié)果；會(huì)編寫簡(jiǎn)單的程序。 4、數(shù)據(jù)的輸入輸出 InputBox（）函數(shù)、MsgBox（）函數(shù) (換行輸出 Chr(13)用法)、 Debug.Print語句 （“立即”窗口中輸出）5、過程調(diào)用 6、參數(shù)傳遞（閱讀程序）參數(shù)的兩種傳遞方式 ·Ø按值傳遞：傳值、數(shù)據(jù)“單向”傳遞；在形參定義時(shí)的相應(yīng)子句為：ByVal    ·Ø按地址傳遞：傳址、數(shù)據(jù)“雙向”傳遞；在形參定義時(shí)的相應(yīng)子句為：ByRef 

25、60;  ·Ø當(dāng)實(shí)參為常量或表達(dá)式時(shí)，實(shí)際為“傳值”，此時(shí)不受形參的傳址（ByRef）說明的影響   ·Ø系統(tǒng)默認(rèn)的參數(shù)傳遞方式是：地址傳遞 7、VBA的數(shù)據(jù)庫(kù)編程 （1）數(shù)據(jù)庫(kù)引擎及其接口   使用DAO、ADO進(jìn)行數(shù)據(jù)庫(kù)編程的要點(diǎn)   數(shù)據(jù)庫(kù)數(shù)據(jù)訪問和處理時(shí)使用的屬性、方法和特殊函數(shù) Ø屬性：BOF、EOF   方法：Edit（DAO）、Update、Close、Move系

26、列方法 （2）DOCmd對(duì)象及其常用的方法 Ø打開窗體、報(bào)表、查詢和表等的操作方法（命令及其格式、參數(shù)） 關(guān)閉對(duì)象操作（用Close方法）與退出Access的操作（用Quit方法）7、VBA的數(shù)據(jù)庫(kù)編程 （1）數(shù)據(jù)庫(kù)引擎及其接口   使用DAO、ADO進(jìn)行數(shù)據(jù)庫(kù)編程的要點(diǎn)   數(shù)據(jù)庫(kù)數(shù)據(jù)訪問和處理時(shí)使用的屬性、方法和特殊函數(shù)     Ø屬性：BOF、EOF Ø方法：Edit（DAO）、Update、Clos

27、e、Move系列方法 （2）DOCmd對(duì)象及其常用的方法  打開窗體、報(bào)表、查詢和表等的操作方法（命令及其格式、參數(shù)）  關(guān)閉對(duì)象操作（用Close方法）與退出Access的操作（用Quit方法）4、VBA程序設(shè)計(jì) （1）編程題中第2小題為結(jié)構(gòu)化編程 要求：用VBA語句編程，并按要求輸出結(jié)果（在“立即窗口”顯示結(jié)果或使用MsgBox函數(shù)） （2）編程題中第3小題為VBA的數(shù)據(jù)庫(kù)編程 使用DAO或ADO訪問數(shù)據(jù)庫(kù)/表，對(duì)表中記錄或字段值操作 【例】下列表達(dá)式計(jì)算結(jié)果為日期類型的是A A)

28、#2012-1-23#-#2011-2-3# B)year(#2011-2-3#)C)DateValue("2011-2-3")D)Len("2011-2-3") 【例】 下列表達(dá)式中，能正確表示條件"x和y都是奇數(shù)"的是C A)x Mod 2=0 And y Mod 2=0  B)x Mod 2=0 Or y Mod 2=0 C)x M

29、od 2=1 And y Mod 2=1        D)x Mod 2=1 Or y Mod 2=1 【例】 在VBA中，能自動(dòng)檢查出來的錯(cuò)誤是A A)語法錯(cuò)誤  B)邏輯錯(cuò)誤   C)運(yùn)行錯(cuò)誤  D)注釋錯(cuò)誤【例】 下列給出的選項(xiàng)中，非法的變量名是C A)Sum  

30、;B)Integer_2      C)Rem  D)Form1 【例】 如果在被調(diào)用的過程中改變了形參變量的值，但又不影響實(shí)參變量本身，這種參數(shù)傳遞方式稱為A A)按值傳遞   B)按地址傳遞    C)ByRef傳遞   D)按形參傳遞 【例】 表達(dá)式"B=INT(A+0.5)"的功能是B A)將變量A保留小數(shù)點(diǎn)后1位 &#

31、160;B)將變量A四舍五入取整 C)將變量A保留小數(shù)點(diǎn)后5位  D)舍去變量A的小數(shù)部分【例】VBA語句"Dim NewArray(10) as Integer"的含義是B A)定義10個(gè)整型數(shù)構(gòu)成的數(shù)組NewArray    B)定義11個(gè)整型數(shù)構(gòu)成的數(shù)組NewArray C)定義1個(gè)值為整型數(shù)的變量NewArray(10) D)定義1個(gè)值為10的變量NewArray 【例】 運(yùn)行下列程序段，結(jié)果是B For&#

32、160;m=10 to 1 step 0  k=k+3 Next  m A)形成死循環(huán)  B)循環(huán)體不執(zhí)行即結(jié)束循環(huán) C)出現(xiàn)語法錯(cuò)誤  D)循環(huán)體執(zhí)行一次后結(jié)束循環(huán) 【例】 下列表達(dá)式計(jì)算結(jié)果為數(shù)值類型的是A A)#5/5/2010#-#5/1/2010#    B)"102">"11"   

33、0;C)102984     D)#5/1/2010#5 【例】 要將一個(gè)數(shù)字字符串轉(zhuǎn)換成對(duì)應(yīng)的數(shù)值，應(yīng)使用的函數(shù)是A A)Val     B)Single    C)Asc    D)Space 【例】下列變量名中，合法的是C A)4A      B)A1    &#

34、160; C)ABC_1     D)private 【例】 若變量i的初值為8，則下列循環(huán)語句中循環(huán)體的執(zhí)行次數(shù)為C Do While i<17 ii2 Loop A)3次      B)4次      C)5次       D)6次 【例】 

35、;InputBox函數(shù)的返回值類型是B A)數(shù)值 B)字符串   C)變體   D)視輸入的數(shù)據(jù)而定 【例】下列能夠交換變量X和Y值的程序段是C A)YX：XY                  B)ZX：YZ：XY C)ZX：XY：YZ      

36、       D)ZX：WY：YZ：XY【例】 在VBA中要將數(shù)值表達(dá)式的值轉(zhuǎn)換為字符串，應(yīng)使用函數(shù)  str()  。 【例】 在VBA中要判斷一個(gè)字段的值是否為Null，應(yīng)該使用的函數(shù)是 ISNULL 。 【例】函數(shù)表達(dá)式題目： 1. int(-2.8)+fix(2.8) 2. 103+-8 mod 3 3. year(#2011/12/12#

37、)-month(#2011/10/10#)+day(#2012/1/1#) 4. left(南京財(cái)經(jīng)大學(xué)，2)+mid(南京財(cái)經(jīng)大學(xué)，3,2)+right（南京財(cái)經(jīng)大學(xué),2） 5. instr（3，“ab12abc34abc”,a,1） 6. 已知2011年12月31日是星期六，weekday(#2011/12/31#) 7. val(-12e2abcd)+len(南京財(cái)經(jīng)大學(xué)) 8. chr（asc(A)+5）【例】1. 運(yùn)行下列程序，結(jié)果是(   &#

38、160;     ) f=13 Private Sub Command32_Click()  f0=1：fl=1：k=1  Do While k<=5   f=f0+f1   f0=f1   f1=f   k=k+1  Loop  MsgBox "f="

39、 & f End Sub 【例】2. 有如下事件程序，運(yùn)行該程序后輸出結(jié)果是(         ) x=1， y=0  Private Sub Command33_Click()  Dim x As Integer，y As Integer  x=1：y=0  Do

40、60;Until y<=25   y=y + x * x   x=x + 1  Loop  MsgBox "x=" & x & "， y=" & y End Sub【例】3. 下列程序的功能是計(jì)算Sum=1+(1+3)+(1+3+5)+(1+3+5+

41、39) Private Sub Command34_Click()  t=0  m=1  sum=0  Do   t=t+m   sum=sum+t   m= m+2        Loop While m<=39  MsgBox "Sum=&

42、quot;& sum End Sub 【例】4. 運(yùn)行下列程序，輸入如下兩行： Hi， I am here 彈出的窗體中的顯示結(jié)果是  Hi， Private Sub Command11_Click() Dim abc As String，sum As String sum="" Do abc=InputBox("輸入a

43、bc") If Right(abc，1)="." Then Exit Do sum=sum+abc  Loop MsgBox sum End Sub 【例】5. 運(yùn)行下列程序，窗體中的顯示結(jié)果是：x=  21  。 Option Compare Database Dim x As Integer Privat

44、e Sub Form_Load() x=3 End Sub Private Sub Command11_Click() Static a As Integer Dim b As Integer b=x2 fun1 x，b fun1 x，b MsgBox "x=" & x End Sub &#

45、160;Sub fun1(ByRef y As Integer，ByVal z As Integer) y = y+z z = y-z End Sub【例】6. 數(shù)據(jù)庫(kù)中有"學(xué)生成績(jī)表"，包括"姓名"、"平時(shí)成績(jī)"、"考試成績(jī)"和"期末總評(píng)"等字段，現(xiàn)要根據(jù)"平時(shí)成績(jī)"和"考試成績(jī)"對(duì)學(xué)生進(jìn)行&qu

46、ot;期末總評(píng)"。規(guī)定："平時(shí)成績(jī)"加"考試成績(jī)"大于等于85分，則期末總評(píng)為"優(yōu)"，"平時(shí)成績(jī)"加"考試成績(jī)"小于60分，則期末總評(píng)為"不及格"，其他情況期末總評(píng)為"合格"。 下面的程序按照上述要求計(jì)算每名學(xué)生的期末總評(píng)。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)恼Z句，使程序可以完成指定的功能。 Private Sub Command0_Click() Dim db As DAO.Dat

47、abase Dim rs As DAO.Recordset Dim pscj，kscj，qmzp As DAO.Field Dim count As Integer Set db=CurrentDb() Set rs=db.OpenRecordset("學(xué)生成績(jī)表") Set pscj=rs.Fields("平時(shí)成績(jī)") Set kscj=rs.Fields

48、("考試成績(jī)") Set qmzp=rs.Fields("期末總評(píng)") count=0 Do While Not rs.EOF rs.edit   If pscj+kscj>=85 Then qmzp="優(yōu)" ElseIf pscj+kscj<60 Then qmzp="不及格" Else qmzp=&qu

49、ot;合格" End If rs.Update count=count+1 rs.movenext   Loop rsClosedb.Close Set rs=Nothing Set db=Nothing MsgBox "學(xué)生人數(shù)：" & count End Sub【例】7. 窗體中有命令按鈕Command1，事件過程如下： Public 

50、Function f(x AS Integer)As Integer  Dim y As Integer  x20  y2  fx*y End Function Private Sub Commandl_Click()  Dim y As Integer  Static x As Integer&#

51、160; x10  y5  yf(x)  Debug.Print x；y End Sub 運(yùn)行程序，單擊命令按鈕，則立即窗口中顯示的內(nèi)容是(         ) 20 40 【例】8. 窗體中有命令按鈕Command1和文本框Text1，事件過程如下： Function result(ByVal x As I

52、nteger)As Boolean  If x Mod 20 Then   resultTrue  Else   resultFalse  End If End Function Private Sub Commandl_Click()  xVal(InputBox("請(qǐng)輸入一個(gè)整數(shù)")  If &

53、#160;result(x)   Then                       Text1Str(x) & "是偶數(shù)."  Else   Text1Str(x) & "是奇數(shù)."

54、0; End  If End Sub【例】9.窗體有命令按鈕Command1和文本框Text1，對(duì)應(yīng)的事件代碼如下： Private Sub Command1_Click()   For i1 To 4     x3     For j1 To 3       

55、;For k1 To 2        xx3       Next k     Next j   Next i  Textl.ValueStr(x) End Sub 運(yùn)行以上事件過程，文本框中的輸出是(    

56、0;    )      21例】10. 窗體中有命令按鈕run34，對(duì)應(yīng)的事件代碼如下： Private Sub run34_Enter()   Dim num As Integer，a As Integer，b As Integer，i As Integer   For i1 To&#

57、160;10    numInputBox("請(qǐng)輸入數(shù)據(jù)："，"輸入")    If Int(num/ 2)num/ 2 Then      aa1    Else      bb1    End If  &#

58、160;Next  i   MsgBox ("運(yùn)行結(jié)果：a" & Str(a) & "，b" & Str(b) End Sub 運(yùn)行以上事件過程，所完成的功能是(         )對(duì)輸入的10個(gè)數(shù)據(jù)分別統(tǒng)計(jì)奇數(shù)和偶數(shù)的個(gè)數(shù)【例】11. 運(yùn)行下列程序，輸入數(shù)據(jù)8、9、3、0后，窗體中顯

59、示結(jié)果是(         ) 20 Private Sub Form_click()   Dim sum As Integer，m As Integer   sum0   Do mInputBox("輸入m")  sumsumm Loop Until

60、0;m0   MsgBox sum End Sub【例】12. 下列程序的功能是求方程：x2y21000的所有整數(shù)解。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)恼Z句，使程序完成指定的功能。 Private Sub Commandl_Click()   Dim x as integer，y as integer   For x  34 To 34 &#

61、160;  For y34 To 34      If  x*x+y*y=1000 Then       Debug.Print x，Y      End If    Next y   Next x End&#

62、160;Sub【例】13. 下列程序的功能是求算式：11/2！1/3！ 1/4！ 前10項(xiàng)的和(其中n！的含義是n的階乘)。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)恼Z句，使程序完成指定的功能。 Private Sub Commandl_C1ick()   Dim i as integer，s as single，a as single   a1：s0   For i1 To&#

63、160;10    a  a/i     ssa   Next i   Debug.Print "11/ 2！ l/ 3！"；s End Sub【例】14. 在窗體中有一個(gè)名為Command12的命令按鈕，Click事件功能是：接收從鍵盤輸入的10個(gè)大于0的不同整數(shù)，找出其中的最大值和對(duì)應(yīng)的輸入位置。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)語句，使程

64、序可以完成指定的功能。 Private  Sub Commandl2_Click()   max0   maxn0   For  i1  To  10     numVal(InputBox("請(qǐng)輸入第" & i & "個(gè)大于0的整數(shù)：")  

65、   If   max<num Then      maxnum      maxn i      End  If   Next i   MsgBox("最大值為第" & maxn &a

66、mp; "個(gè)輸入的" & max) End Sub【例】15. 數(shù)據(jù)庫(kù)的"職工基本情況表"有"姓名"和"職稱"等字段，要分別統(tǒng)計(jì)教授、副教授和其他人員的數(shù)量。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)語句，使程序可以完成指定的功能。 Private Sub Command5_Click()   Dim db As DAO.Database   Dim&#

67、160;rs As DAO.Recordset   Dim zc As DAO.Field   Dim Countl As Integer，Count2 As Integer，Count3 As Integer   Set dbCurrentDb()   Set rsdb.OpenRecordset("職工基本情況表"

68、)   Set zcrs.Fields("職稱")   Countl0：Count20：Count30   Do While Not rs.eof      Select Case zc      Case Is"教授"     

69、  CountlCount11      Case Is"副教授"       Count2Count21 Case Else       Count3Count31     End Select      r

70、s.movenext    Loop   rs.Close   Set rsNothing   Set dbNothing   MsgBox "教授：" & Countl & "，副教授：" & Count2 & "，其他：" 

71、& Count3 End Sub 【例】16. 在窗體上有一個(gè)命令按鈕Command1和一個(gè)文本框Textl,編寫事件代碼如下： Private Sub Commandl_Click()   Dim i,j,x   For i=i To 20 step 2     x=0     For&#

72、160;j=i To 20 step 3       x=x+1     Next j   Next i   Textl.Value=Str(x) End Sub 打開窗體運(yùn)行后,單擊命令按鈕,文本框中顯示的結(jié)果是(         )1&

73、#160;【例】17. 在窗體上有一個(gè)命令按鈕Command1,編寫事件代碼如下： Private Sub Commandl_Click()    Dim y As Integer    y=0    Do      y=InputBox("y=")      If(y

74、 Mod 10)+Int(y10)=10 Then Debug.Print y;      Loop Until y=0 End Sub 打開窗體運(yùn)行后,單擊命令按鈕,依次輸入10、37、50、55、64、20、28、19、-19、0,立即窗口上輸出的結(jié)果是(         )【例】19. 在窗體中有一個(gè)命令按鈕Commandl和一個(gè)文

75、本框Textl，編寫事件代碼如下： Private Sub Commandl_Click()   For I1 To 4 X3 For j1 To 3  For k1 To 2         xx3        Next k&

76、#160;Next j   Next I   Text1.valueStr(X) End Sub 打開窗體運(yùn)行后，單擊命令按鈕，文本框Textl輸出的結(jié)果是(         )21編寫程序 '1、用循環(huán)結(jié)構(gòu)編程計(jì)算下列數(shù)列前10項(xiàng)之和，并按下圖所示輸出計(jì)算的結(jié)果。 ' 1 + ( - 3 / 

77、;4) + ( 5 / 9 ) + ( - 7 / 16 ) + ( 9 / 25 ) + ( - 11 / 36 ) +  Sub p02()     Dim s As Single，i As Integer S=0     For i = 1