第八章模块理论练习

1、第八章VBA模块一、选择题1、在VBA 语言中，以下关于运算优先级比较，叙述正确的是（ ）。A.算术运算符 关系运算符 连接运算符 逻辑运算符B.算术运算符 连接运算符 关系运算符 逻辑运算符C.关系运算符 算术运算符 连接运算符 逻辑运算符D.关系运算符 连接运算符 算术运算符 逻辑运算符2、一般用于存放其他ACCESS数据库对象使用的公共过程称为（ ）。A.类模块 B.标准模块 C.宏模块 D.窗体模块3、表示“标签”控件对象的标题属性是（ ）。A.caption 属性 B.reports 属性 C.docmd 属性 D.text 属性4、布尔型数据转换为其他类型数据时，false转换为（

2、 ）。A.0 B.1 C.-1 D.25、连接式“3+4”&”=”&”( 3+4)的运算结果为（ ）。A.3+4 B.&3+4 C. (3+4) & D.3+4=76、根据条件选择执行路径，又可称选择结构的执行语句是（ ）。A.顺序结构 B.条件结构 C.循环结构 D.层次结构7、用于实现无条件转移的是（ ）。A.goto语句 B.if语句 C.switch 语句 D.if.else .语句8、执行语句：msgbox “AAAA”,VBOKCancel+vbQuestion,”BBBB”之后，弹出的信息框外观样式是（ ）。A.标题为“BBBB”、框内提示符为“惊叹号”、提示内容为“AAAA”B

3、.标题为“AAAA”、框内提示符为“惊叹号”、提示内容为“BBBB”C.标题为“BBBB”、框内提示符为“问号”、提示内容为“AAAA”D.标题为“AAAA”、框内提示符为“问号”、提示内容为“BBBB”9、能被“对象所识别的动作”和“对象可执行”的活动分别称为对象的（ ）。A.方法和事件 B.事件和方法 C.事件和属性 D.过程和方法10、下列逻辑表达式中，能正确表示条件“X和Y至少有一个是偶数”的是（ ）。A.X Mod 2=0 OR Y Mod 2=0 B.X Mod 2=1 OR Y Mod 2=1C.X Mod 2=0 And Y Mod 2=0 D.X Mod 2=1 And Y

4、Mod 2=111、定义了二维数组 A(3 to 5,6)，则该数组的元素个数为（ ）。A.18 B.27 C.21 D.3012、以下内容中不属于VBA提供的数据验证函数是（ ）。A.isdate B.isnull C.isnumeric D.istest13、有如下程序段： Dim str As String*10 Dim i Str1=abcdefg i=12 len1=Len(i) str2=Right(str1,4) 执行后，len1和str2的返回值分别是 A.12，abcd B.10，bcde C.2，defg D.0，cdef 14、假定有以下循环结构 Do Until 条件

5、循环体 Loop则正确的叙述是（ ）A.如果“条件”值为0，则一次循环体也不执行B.如果“条件”值为0，则至少执行一次循环体C.如果“条件”值不为0，则至少执行一次循环体D.不论“条件”是否为“真”，至少要执行一次循环体15、已定义好有参数f(n)，其中形参n是整型量。下面调用该函数，传递实参为5，将返回的函数值赋给变量s。以下正确的是（ ）。A.s=f(5) B.s=f(n) C.s=call f5) D.s=call f(n)16、以下可以得到“2+6=8”的结果的VBA表达式是（ ）。A.“2+6” &”=” & 2+6 B.” 2+6”+”=”+2+6C.2+6& “=” & 2+6

6、D.2+6 +”=” + 2+617、假定窗体的名称为fmTest，则把窗体的标题设置为“ACCESS”的语句是（ ）。A.Me=”ACCESS” B.Me.caption=”ACCESS”C.ME.text=”ACCESS ” D.M=”ACCESS”18、窗体上添加3个命令按钮，分别命名为command1、command2和command3，编写command1的单击事件过程，完成的功能为：当单击按钮command1时，按钮comand2可用，按钮command3不可见，以下正确的是（ ）。A.Private sub command1_click( )Command2.visi

7、ble=trueCommand3.visible=falseEnd subB.Private sub command1_click( )Command2.visible=trueCommand3.visible=falseEnd subC.Private sub command1_click( )Command2.Enabled=trueCommand3. visible =falseEnd subD.Private sub command1_click( )Command2.visible=trueCommand3.enabled=falseEnd sub19、用于获得字符串str从第二个字

8、符开始的3个字符的函数是（ ）。A .mid(str,2,3) B .middle(str,2,2)C .right(str,2,3) D .left(str,2,3)20、假定有以下程序段n=0for a=1 to 5for b=2 to 10 step 2n=n+1next bnext a运行完毕后，n的值是（ ）。A.0 B.1 C.10 D.2521、VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量值信息的是（ ）。A.本地窗口 B.立即窗口 C.监视窗口 D.快速监视窗口22、假定有以下程序段n=0for i=1 to 3for j=-4 to -1n=n+1next

9、jnext I运行完毕后，n的值是（ ）。A.0 B.3 C.4 D.1223、在Access中编写事件过程使用的编程语言是（ ）A.QBASIC B.VBA C.SQL D. C+24、在VBA中有返回值的处理过程是（ ）A声明过程 BSub过程 CFunction 过程 D控制过程25、当前对象（如窗体）的引用关键字是（ ）AActive BMe CDocmd DCtrol26、在模块中执行宏“macro1”的格式为是 A.Function.RunMacro MacroName B.DoCmd.RunMacro macro1 C.Sub.RunMacro macro1 D.RunMacro

10、 macro1二、填空题1、窗体模块和报表模块都属于（ ）。2、VBA语言中，函数InputBox的功能是（ ）。3、在VBA中字符串的类型标识符是（ ），整型的类型标识符是( )，日期时间型的类型标识符是( )。4、在VBA中，布尔型数据转换为其他类型数据时，false转换为：( )，true转换为：( )。5、以下程序段运行后，消息框的输出结果为( )。a=abs (3)b=abs (-2)c=abmsgbox c+16、用逻辑表达式表达出“X和Y都是偶数”，则表达式为：( )。7、连接式“2*8”&”=”&”( 2*8)的运算结果为：( )。8、在函数中每个形参必须有(数据类型)。9、s

11、elect case结构运行时，首先计算（ ）的值。10、重复结构分为当型和（ ）循环。11、写出下列表达式的值： (2+8*3)/2 ( ) 32+8 ( )#11/22/99#- ( )ZYX& 123 &ABC( )12、模块包含了一个声明区域和一个或多个子过程( )或函数过程（ ）。13、说明变量最常用的方法，是使用（ 结构。14、VBA的错误处理主要使用（ ）语句结构。15、VBE的代码窗口顶部包含两个组合框，左侧为对象列表，右侧为( )。16、VBA中打开报表的命令语句是（ ）。17、VBA中变量作用域分为3个层次，这3个层次是局部变量、模块变量和( )。18、VBA的全称是（ ）

12、。三、简答题1、什么是模块？它有什么作用？2、程序运行的结果为 1 11 12 21 22 23 31 32 33 34编写代码实现。3、设计一个用户登录窗体，输入用户名和密码，如用户名或密码为空，则给出提示，重新输入，如用户名(“abc”)或密码(123)不正确，则给出错误信息，结束程序运行，如用户和密码正确，则显示“欢迎”。4、用代码实现程序的功能：由输入的分数确定结论，分数是百分制，0到59分的结论是“不及格”；60到79分的结论是“及格”：80到89分的结论是“良好”：90到100的结论是“优秀”；分数小于0或大于100是“数据错误!”。5、什么是类模块？什么是标准模块？它们各有什么特

13、点？6、什么是函数过程？什么是子过程？7、什么是事件过程？它有什么特点？8、程序包含几种流程控制？9、以下是一个竞赛评分程序的作用是什么？Private sub form_click() Dim max as integer, min as integer Dim I as interger, x as integer, s as interger Dim j as single max=0 min =10 For i=1 to 10 x=val(inputbox(“请输入分数：“) If xmax then max=x If x s=s+x s=s-max-min j=s/8 Msgbox

14、“最后得分“+jEnd sub10、变量类型对整个程序的运行速度有没有影响？在定义变量时应遵循哪些原则？11、在VBA中选择结构一共有几种？循环结构呢？12、如何在窗体中调用模块的功能？13、编写一个求解圆面积的函数过程rea（）四、程序分析题1、下列程序的执行结果是（ ）。 x=100 y=50 if xy then x=x-y else x=y+x Print x,y2、下列程序运行的结果为( ),执行完该程序后，共循环了( )次。 Dim x As Integer Dim I As Integer Dim j As Integer For I=1 to 17 step 2For j=l

15、to 3 step 2x=x+jNext j Next I Print x3、下列程序，当a的输入值为5，10，15时的结果为（ ） Dim x As Integer x=InputBox(“请输入a的值”) if x10 then if x=15 then print“A”else print“B” else if x=5 then print“C”else print“D” end if4、以下程序段的输出结果是(1 2 3)num=0 While num=2num=num+1Print num Wend5、设有以下窗体单击事件过程：Private Sub Form_Click（） a1

16、For i1 to 3 Select Case i Case 1，3 aa1 Case 2，4 a a 2 End Select Next i MsgBox aEnd Sub打开窗体运行后，单击窗体，则消息框的输出内容是（ ）6、某窗体已编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为（ ）private sub form_click() dim k as integer , n as integer , m as integer n=10 : m=1 :k=1 do while ky , x , y)end functionprivate sub command1_click(

17、0 dim a as integer ,b as interger a=10 b=20 msgbox m(a,b)end sub打开窗体运行后，单击命令按钮，消息框的输出结果为（ ）8、设有以下窗体单击事件过程：在窗体上添加一个命令按钮（名为command1）和一个文本框（名为text1）,然后编写如下事件过程：private sub command1_click( ) dim x as integer,y as integer,z as integer x=5:y=7:z=0 me!text1=” call pi(x,y,z) me!text1=zend subsub pi(a as int

18、eger,b as integer,c as integer) c=a+bend sub打开此窗体运行后，单击命令按钮，文本框中显示的内容是（ ）9、在窗体中使用一个文本框（名为x）接受输入值，有一个命令按钮test，事件代码如下：Private Sub test_Click() y = 0 For i = 0 To Me!x y = y + 2 * i + 1 Next i MsgBox yEnd Sub打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是 。10、下面程序段运行后，输出结果为（ ）。Dim x As IntegerDim I As Integerx=0for I=0 to 50 step 10x=x+Inext I Print x11、以下程序段运行结束后，变量x的值为 。 x=