搜索
第八章VBA模块一、选择题1、在VBA语言中，以下关于运算优先级比较，叙述正确的是（）。A.算术运算符关系运算符连接运算符逻辑运算符B.算术运算符连接运算符关系运算符逻辑运算符C.关系运算符算术运算符连接运算符逻辑运算符D.关系运算符连接运算符算术运算符逻辑运算符2、一般用于存放其他ACCESS数据库对象使用的公共过程称为（）。A.类模块B.标准模块C.宏模块D.窗体模块3、表示“标签”控件对象的标题属性是（）。A.caption属性B.reports属性C.docmd属性D.text属性4、布尔型数据转换为其他类型数据时，false转换为（）。A.0B.1C.-1D.25、连接式“3+4”&”=”&”(3+4)的运算结果为（）。A.3+4B.&3+4C.(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.标题为“AAAA”、框内提示符为“惊叹号”、提示内容为“BBBB”C.标题为“BBBB”、框内提示符为“问号”、提示内容为“AAAA”D.标题为“AAAA”、框内提示符为“问号”、提示内容为“BBBB”9、能被“对象所识别的动作”和“对象可执行”的活动分别称为对象的（）。A.方法和事件B.事件和方法C.事件和属性D.过程和方法10、下列逻辑表达式中，能正确表示条件“X和Y至少有一个是偶数”的是（）。A.XMod2=0ORYMod2=0B.XMod2=1ORYMod2=1C.XMod2=0AndYMod2=0D.XMod2=1AndYMod2=111、定义了二维数组A(3to5,6)，则该数组的元素个数为（）。A.18B.27C.21D.3012、以下内容中不属于VBA提供的数据验证函数是（）。A.isdateB.isnullC.isnumericD.istest13、有如下程序段：DimstrAsString*10DimiStr1=abcdefgi=12len1=Len(i)str2=Right(str1,4)执行后，len1和str2的返回值分别是A.12，abcdB.10，bcdeC.2，defgD.0，cdef14、假定有以下循环结构DoUntil条件循环体Loop则正确的叙述是（）A.如果“条件”值为0，则一次循环体也不执行B.如果“条件”值为0，则至少执行一次循环体C.如果“条件”值不为0，则至少执行一次循环体D.不论“条件”是否为“真”，至少要执行一次循环体15、已定义好有参数f(n)，其中形参n是整型量。下面调用该函数，传递实参为5，将返回的函数值赋给变量s。以下正确的是（）。A.s=f(5)B.s=f(n)C.s=callf5)D.s=callf(n)16、以下可以得到“2+6=8”的结果的VBA表达式是（）。A.“2+6”&”=”&2+6B.”2+6”+”=”+2+6C.2+6&“=”&2+6D.2+6+”=”+2+617、假定窗体的名称为fmTest，则把窗体的标题设置为“ACCESS”的语句是（）。A.Me=”ACCESS”B.Me.caption=”ACCESS”C.ME.text=”ACCESS”D.Me.name=”ACCESS”18、窗体上添加3个命令按钮，分别命名为command1、command2和command3，编写command1的单击事件过程，完成的功能为：当单击按钮command1时，按钮comand2可用，按钮command3不可见，以下正确的是（）。A.Privatesubcommand1_click()Command2.visible=trueCommand3.visible=falseEndsubB.Privatesubcommand1_click()Command2.visible=trueCommand3.visible=falseEndsubC.Privatesubcommand1_click()Command2.Enabled=trueCommand3.visible=falseEndsubD.Privatesubcommand1_click()Command2.visible=trueCommand3.enabled=falseEndsub19、用于获得字符串str从第二个字符开始的3个字符的函数是（）。A.mid(str,2,3)B.middle(str,2,2)C.right(str,2,3)D.left(str,2,3)20、假定有以下程序段n=0fora=1to5forb=2to10step2n=n+1nextbnexta运行完毕后，n的值是（）。A.0B.1C.10D.2521、VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量值信息的是（）。A.本地窗口B.立即窗口C.监视窗口D.快速监视窗口22、假定有以下程序段n=0fori=1to3forj=-4to-1n=n+1nextjnextI运行完毕后，n的值是（）。A.0B.3C.4D.1223、在Access中编写事件过程使用的编程语言是（）A.QBASICB.VBAC.SQLD.C++24、在VBA中有返回值的处理过程是（）A．声明过程B．Sub过程C．Function过程D．控制过程25、当前对象（如窗体）的引用关键字是（）A．ActiveB．MeC．DocmdD．Ctrol26、在模块中执行宏“macro1”的格式为是A.Function.RunMacroMacroNameB.DoCmd.RunMacromacro1C.Sub.RunMacromacro1D.RunMacromacro1二、填空题1、窗体模块和报表模块都属于（）。2、VBA语言中，函数InputBox的功能是（）。3、在VBA中字符串的类型标识符是（），整型的类型标识符是()，日期时间型的类型标识符是()。4、在VBA中，布尔型数据转换为其他类型数据时，false转换为：()，true转换为：()。5、以下程序段运行后，消息框的输出结果为()。a=abs(3)b=abs(-2)c=abmsgboxc+16、用逻辑表达式表达出“X和Y都是偶数”，则表达式为：()。7、连接式“2*8”&”=”&”(2*8)的运算结果为：()。8、在函数中每个形参必须有(数据类型)。9、selectcase结构运行时，首先计算（）的值。10、重复结构分为当型和（）循环。11、写出下列表达式的值：(2+8*3)/2()3^2+8()#11/22/99#-()″ZYX″&123&″ABC″()12、模块包含了一个声明区域和一个或多个子过程()或函数过程（）。13、说明变量最常用的方法，是使用（结构。14、VBA的错误处理主要使用（）语句结构。15、VBE的代码窗口顶部包含两个组合框，左侧为对象列表，右侧为()。16、VBA中打开报表的命令语句是（）。17、VBA中变量作用域分为3个层次，这3个层次是局部变量、模块变量和()。18、VBA的全称是（）。三、简答题1、什么是模块？它有什么作用？2、程序运行的结果为1111221222331323334编写代码实现。3、设计一个用户登录窗体，输入用户名和密码，如用户名或密码为空，则给出提示，重新输入，如用户名(“abc”)或密码(123)不正确，则给出错误信息，结束程序运行，如用户和密码正确，则显示“欢迎”。4、用代码实现程序的功能：由输入的分数确定结论，分数是百分制，0到59分的结论是“不及格”；60到79分的结论是“及格”：80到89分的结论是“良好”：90到100的结论是“优秀”；分数小于0或大于100是“数据错误!”。5、什么是类模块？什么是标准模块？它们各有什么特点？6、什么是函数过程？什么是子过程？7、什么是事件过程？它有什么特点？8、ＶＢＡ程序包含几种流程控制？9、以下是一个竞赛评分程序的作用是什么？Privatesubform_click()Dimmaxasinteger,minasintegerDimIasinterger,xasinteger,sasintergerDimjassinglemax=0min=10Fori=1to10x=val(inputbox(“请输入分数：“))Ifxmaxthenmax=xIfxs=s+xs=s-max-minj=s/8Msgbox“最后得分“+jEndsub10、变量类型对整个程序的运行速度有没有影响？在定义变量时应遵循哪些原则？11、在VBA中选择结构一共有几种？循环结构呢？12、如何在窗体中调用模块的功能？13、编写一个求解圆面积的函数过程Ａrea（）四、程序分析题1、下列程序的执行结果是（）。x=100y=50ifxythenx=x-yelsex=y+xPrintx,y2、下列程序运行的结果为(),执行完该程序后，共循环了()次。DimxAsIntegerDimIAsIntegerDimjAsIntegerForI=1to17step2Forj=lto3step2x=x+jNextjNextIPrintx3、下列程序，当a的输入值为5，10，15时的结果为（）DimxAsIntegerx=InputBox(“请输入a的值”)ifx10thenifx=15thenprint“A”elseprint“B”elseifx=5thenprint“C”elseprint“D”endif4、以下程序段的输出结果是(123)num=0Whilenum=2num=num+1PrintnumWend5、设有以下窗体单击事件过程：PrivateSubForm_Click（）a＝1Fori＝1to3SelectCaseiCase1，3a＝a＋1Case2，4a＝a＋2EndSelectNextiMsgBoxaEndSub打开窗体运行后，单击窗体，则消息框的输出内容是（）6、某窗体已编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为（）privatesubform_click()dimkasinteger,nasinteger,masintegern=10:m=1:k=1dowhilek=nm=m*2k=k+1loopmsgboxmendsub7、在窗体上添加一个命令按钮（名为command1），然后编写如下程序：functionm(xasinteger)asintegerm=iif(xy,x,y)endfunctionprivatesubcommand1_click(0dimaasinteger,basintergera=10b=20msgboxm(a,b)endsub打开窗体运行后，单击命令按钮，消息框的输出结果为（）8、设有以下窗体单击事件过程：在窗体上添加一个命令按钮（名为command1）和一个文本框（名为text1）,然后编写如下事件过程：privatesubcommand1_click()dimxasinteger,yasinteger,zasintegerx=5:y=7:z=0me!text1=””callpi(x,y,z)me!text1=zendsubsubpi(aasinteger,basinteger,casinteger)c=a+bendsub打开此窗体运行后，单击命令按钮，文本框中显示的内容是（）9、在窗体中使用一个文本框（名为x）接受输入值，有一个命令按钮test，事件代码如下：PrivateSubtest_Click()y=0Fori=0ToMe!xy=y+2*i+1NextiMsgBoxyEndSub打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是。10