模块和VBA编程.docx
- 文档编号:12319699
- 上传时间:2023-06-05
- 格式:DOCX
- 页数:34
- 大小:34.91KB
模块和VBA编程.docx
《模块和VBA编程.docx》由会员分享,可在线阅读,更多相关《模块和VBA编程.docx(34页珍藏版)》请在冰点文库上搜索。
模块和VBA编程
一、选择题
(1)执行语句:
MsgBox”AAAA”,vbOKCancel+vbQuestion,“BBBB”之后,弹出的信息框
A)标题为“BBBB”、框内提示符为“惊叹号”、提示内容为“AAAA”
B)标题为“AAAA”、框内提示符为“惊叹号”、提示内容为“BBBB”
C)标题为“BBBB”、框内提示符为“问号”、提示内容为“AAAA”
D)标题为“AAAA”、框内提示符为“问号”、提示内容为“BBBB”
(2)窗体中有3个命令按钮,分别命名为Command1、Command2和Command3。
当单击Command1按钮时,Command2按钮变为可用,Command3按钮变为不可见。
下列Command1的单击事件过程中,正确的是
A)privatesubCommand1_Click()
Command2.Visible=true
Command3.Visible=false
B)privatesubCommand1_Click()
Command2.Enable=true
Command3.Enable=false
C)privatesubCommand1_Click()
Command2.Enable=true
Command3.Visible=false
D)privatesubCommand1_Click()
Command2.Visible=true
Command3.Enable=false
(3)用于获得字符串S最左边4个字符的函数是
A)Left(S, 4)
B)Left(S, 1, 4)
C)Leftstr(S, 4)
D)Leftstr(S, 1, 4)
(4)下列程数据类型中,不属于VBA的是
A)长整型
B)布尔型
C)变体型
D)指针型
(5)下列数组声明语句中,正确的是
A)DimA[3,4]AsInteger
B)DimA(3,4)AsInteger
C)DimA[3;4]AsInteger
D)DimA(3;4)AsInteger
(6)在窗体中有一个文本框Text1,编写事件代码如下:
PrivateSubForm_Click()
X=val(Inputbox(“输入x的值”))
Y=1
IfX<>0ThenY=2
Text1.Value=Y
EndSub
打开窗体运行后,在输入框中输入整数12,文本框Text1中输出的结果是
A)1
B)2
C)3
D)4
(7)在窗体中有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:
PrivateSubCommand1_Click()
ForI=1To4
x=3
Forj=1To3
Fork=1To2
x=x+3
Nextk
Nextj
NextI
Text1.Value=Str(x)
EndSub
打开窗体运行后,单击命令按钮,文本框Text1中输出的结果是
A)6
B)12
C)18
D)21
(8)在窗体中有一个命令按钮Command1,编写事件代码如下:
PrivateSubCommand1_Click()
Dim s As Integer
s=p
(1)+p
(2)+p(3)+p(4)
debug.Prints
EndSub
PublicFunctionp(N As Integer)
Dim Sum As Integer
Sum=0
Fori=1ToN
Sum=Sum+i
Nexti
P=Sum
EndFunction
打开窗体运行后,单击命令按钮,输出的结果是
A)15
B)20
C)25
D)35
(9)下列过程的功能是:
通过对象变量返回当前窗体的Recordset属性记录集引用,消息框中输出记录集的记录(即窗体记录源)个数。
SubGetRecNum()
DimrsAsObject
Setrs=Me.Recordset
MsgBox-----
EndSub
程序空白处应填写的是
A)Count
B)rs.Count
C)RecordCount
D)rs.RecordCount
(10)发生在控件接收焦点之前的事件是
A)Enter
B)Exit
C)GotFocus
D)LostFocus [答案讨论]
(11)要想在过程Proc调用后返回形参x和Y的变化结果,下列定义语句中正确的是
A)SubProc(xasInteger,yasInteger)
B)SubProc(ByValxasInteger,yasInteger)
C)SubProc(xasInteger,ByvalyasInteger)
D)SubProc(ByvalxasInteger,ByvalyasInteger) [答案讨论]
(12)在VBA中要打开名为“学生信息录入”的窗体,应使用的语句是
A)DoCmd.OpenForm“学生信息录入”
B)OpenForm“学生信息录入”
C)DoCmd.OpenWindow“学生信息录入”
D)OpenWindow“学生信息录入” [答案讨论]
(30)要显示当前过程中的所有变量及对象的取值,可以利用的调试窗口是
A)监视窗口
B)调用堆栈
C)立即窗口
D)本地窗口 [答案讨论]
(13)在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码:
PrivateSubCommandlClick()
MsgBoxf(24,18)
End Sub
PublicFunctionf(mAsInteger,nAsInteger)AsInteger
DoWhilem<>n
DoWhile m>n
m=m-n
Loop
DoWhile m n=n-m Loop Loop f=m EndFunction 窗体打开运行后,单击命令按钮,则消息框的输出结果是 A)2 B)4 C)6 D)8 (14)在下图所示的窗体上,有一个标有“显示”字样的命令按钮(名称为Command1)和 一个文本框(名称为text1)。 当单击命令按钮时,将变量sum的值显示在文本框内, 正确的代码是()。 A)Me! Text1.Caption=sumB)Me! Text1.Valuc=sum C)Me! Text1.Text=sumD)Me! Text1.Visiblc=sum (29)在VBA中,实现窗体打开操作的命令是()。 A)DoCmd.OpenFormB)OpenForm C)Do.OpenFormD)DoOpcn.Form (30)在Access中,如果变量定义在模块的过程内部,当过程代码执行时才可见,则这种 变量的作用域为()。 A)程序范围 B)全局范围 C)模块范围 D)局部范围 (15)表达式Fix(-3.25)和Fix(3.75)的结果分别是()。 A)-3,3B)-4,3 C)-3,4D)-4,4 (16)在VBA中,错误的循环结构是()。 A)DoWhile条件式 循环体 Loop C)DoUntil 循环体 Loop条件式 B)DoUntil条件式 循环体 Loop D)Do 循环体 LoopWhile条件式 (17)在过程定义中有语句: PrivateSubGetData(ByValdataAsInteger) 其中“ByVal”的含义是()。 A)传值调用 C)形式参数 B)传址调用 D)实际参数 (18)在窗体中有一个命令按钮(名称为run34),对应的事件代码如下: PrivateSubrun34_Click() sum=0 Fori=10To1Step-2 sum=sum+i Nexti MsgBoxsum EndSub 运行以上事件,程序的输出结果是()。 A)10B)30 C)55D)其他结果 (19)在窗体中有一个名称为run35的命令按钮,单击该按钮从键盘接收学生成绩,如果输入的成绩不在0到100分之间,则要求重新输入;如果输入的成绩正确,则进入后续 程序处理。 run35命令按钮的Click的事件代码如下: PrivateSubrun35_Click() DimflagAsBoolcan result=0 flag=True DoWhileflag result=Val(InputBox("请输入学生成绩: ","输入")) Ifresult>=0Andresult<=100Then ___________ Else MsgBox"成绩输入错误,请重新输入" EndIf Loop Rem成绩输入正确后的程序代码略 EndSub 程序中有一空白处,需要填入一条语句使程序完成其功能。 下列选项中错误的语句是 ()。 A)flag=FalseB)flag=Notflag C)flag=TrueD)ExitDo (20)VBA程序流程控制的方式是 A顺序控制和分支控制 B顺序控制和循环控制 C循环控制和分支控制 D顺序、分支和循环控制 (21)从字符串s中的第2个开始获得4个字符的子字符传函数是 AMid$(s,2,4) BLeft$(s,2,4) CRigth$(s,4) DLeft$(s,4) (22)语句DimNewArray(10)AsInteger的含义是 A定义了一个整型变量且初值为10 B定义了10个整数构成的数组 C定义了11个整数构成的数组 D将数组的第10元素设置为整型 (23)在ACCESS中,如果要处理具有复杂条件或循环结构的操作,则应该使用的对象是 A窗体 B模块 C宏 D报表 (31)不属于VBA提供的程序运行错误处理的语句结构是、 AOnErrorThen标号 BONErrorGoto标号 COnErrorResumeNext DOnErrorGoto0 (24)ADO的含义是 A开放数据库互连应用编程接口 B数据库访问对象 C动态连接库 DActive数据对象 (25)若要在子过程Procl调用后返回两个变量的结果,下列过程定义语句中有效的是 ASubProcl(n,m) BSubProcl(ByValn,m) CSubProcl(n,ByValm) DSubProcl(ByValn,ByValm) (26)在窗体中有一个命令run35,对应的事件代码如下: privatesubrun35_enter() Dimnumasinteger Dimaasinteger Dimbasinteger DimIasinteger ForI=1to10 Num=inputbox(“请输入数据: ”,”输入”,1) Ifint(num/2)=num/2then A=a+1 Else B=b+1 Endif NextI Msgbox(”运行结果: a=”&str(a)&”,b=”&str(b)) Endsub 运行以上事件所完成的功能是 A对输入的10个数据求累加和 B对输入的10个数据求各自的余数,然后再进行累加 C对输入的10个数据分别统计有几个是整数,有几个是非整数 D对输入的10个数据分别统计有几个是奇数,有几个是偶数 (27)在模块中执行宏“macro1”的格式为是 A)Function.RunMacroMacroName B)DoCmd.RunMacromacro1 C)Sub.RunMacromacro1 D)RunMacromacro1 (28)有如下程序段: DimstrAsString*10 Dimi 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 (29)在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码: PrivateSubCimmandl_Click() a=75 Ifa>60Then k=1 Elselfa>70Then k=2 Elselfa>80Then k=3 Elselfa>90Then k=4 Enklf MsgBoxk EndSub 窗体打开运行后,单击命令按钮,则消息框的输出结果是 A)1B)2C)3D)4 (30)设有如下窗体单击事件过程: PrivateSubFom_Click() a=1 Fori–To3 SelectCasei Case1,3 a=a+1 Case2,4 a=a+2 EndSelect Nexti MsgBoxa EndSub 打开窗体运行后,单击窗体,则消息框的输出的结果是 A)3B)4C)5D)6 (31)设有如下程序: PrivateSubCimmandl_Click() DimsumAsDouble,xAsDouble Sum=0 n=0 Fori=1To5 x=n/i n=n+1 sum=sum+x Nexti EndSub 该程序通过For循环来计算一个表达式的值,这个表达式是 A)1+1/2+2/3+3/4+4/5B)1+1/2+1/3+1/4+1/5 C)1/2+2/3+3/4+4/5D)1/2+1/3+1/4+1/5 (32)下列Case语句中错误的是 A)Case0To10B)Case1S>10 C)CaseIs>10AndIs<50D)Case3,5,Is>10 (33)如下程序段定义了学生成绩的记录类型,由学号,姓名和三门课程成绩(百分制)组成。 TypeStud noAsInteger nameAsString score(1to3)AsSingle EndType 若对某个学生的各个数据项进行赋值,下列程序段中正确的是 A)DimSAsStudB)DimSAsStud (21)在调试VBA程序时,能自动被检查出来的错误是 A)语法错误 B)逻辑错误 C)运行错误 D)语法错误和逻辑错误 (23)在已建窗体中有一命令按钮(名为Commandl),该按钮的单击事件对应的VBA代码为: PrivateSubCommandl_Click() subT.Form.RecordSource="select*from雇员" EndSub 单击该按钮实现的功能是 A)使用select命令查找“雇员”表中的所有记录 B)使用select命令查找并显示“雇员”表中的所有记录 C)将subT窗体的数据来源设置为一个字符串 D)将subT窗体的数据来源设置为“雇员”表 (27)能够实现从指定记录集里检索特定字段值的函数是 A)Nz B)Find C)Lookup D)DLookup (28)如果X是一个正的实数,保留两位小数、将千分位四舍五入的表达式是 A)0.01*Int(x+0.05) B)0.01*Int(100*(X+0.005)) C)0.01*Int(x+0.005) D)0.01*Int(100*(X+0.05)) (29)在模块的声明部分使用“OptionBase1”语句,然后定义二维数组A(2to5,5),则该数组的元素个数为 A)20 B)24 C)25 D)36 (30)由“Fori=1To9Step-3”决定的循环结构,其循环体将被执行 A)0次 B)1次 C)4次 D)5次 (31)在窗体上有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下: PrivateSubCommand1_Click() Dimi,j,x Fori=1To20step2 x=0 Forj=To20step3 x=x+1 Nextj Nexti Textl.Value=Str(x) EndSub 打开窗体运行后,单击命令按钮,文本框中显示的结果是 A)1 B)7 C)17 D)400 (32)在窗体上有一个命令按钮Commandl,编写事件代码如下: PrivateSubCommandl_Click() DimyAsInteger y=0 Do y=InputBox("y=") If(yMod10)+Int(y/10)=10ThenDebug.Printy; LoopUntily=0 EndSub 打开窗体运行后,单击命令按钮,依次输入10、37、50、55、64、20、28、19、-19、0,立即窗口上输出的结果是 A)375564281919 B)105020 C)1050200 D)3755642819 (33)在窗体上有一个命令按钮Commandl,编写事件代码如下: PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=12: y=32 CallProc(x,y) Debug.Printx;y EndSub PublicSubProc(nAsInteger,ByValmAsInteger) n=nMod10 m=mMod10 EndSub 打开窗体运行后,单击命令按钮,立即窗口上输出的结果是 A)232 B)123 C)22 D)1232 34)在窗体上有一个命令按钮Commandl,编写事件代码如下: PrivateSubCommandl_Click() Dimd1AsDate Dimd2AsDate dl=#12/25/2009# d2=#1/5/2010# MsgBoxDateDiff(”ww”,d1,d2) EndSub 打开窗体运行后,单击命令按钮,消息框中输出的结果是 A)1 B)2 C)10 D)11 (35)下列程序段的功能是实现“学生”表中“年龄”字段值加1 DimStrAsString Str="" Docmd.RunSQLStr 空白处应填入的程序代码是 A)年龄=年龄+1 B)Update学生Set年龄=年龄+1 C)Set年龄=年龄+1 D)Edit学生年龄=年龄+l (19)下列表达式计算结果为数值类型的是 A)#5/5/2010#-#5/1/2010# B)“102”>“11” C)102=98+4 D)#5/1/2010#+5 (26)要将一个数字字符串转换成对应的数值,应使用的函数是 A)Val B)Single C)Asc D)Space (27)下列变量名中,合法的是 A)4A B)A-1 C)ABC_1 D)private (28)若变量i的初值为8,则下列循环语句中循环体的执行次数为 DoWhilei<=17 i=i+2 Loop A)3次 B)4次 C)5次 D)6次 (29)InputBox函数的返回值类型是 A)数值 B)字符串 C)变体 D)视输入的数据而定 (30)下列能够交换变量X和Y值的程序段是 A)Y=X: X=Y B)Z=X: Y=Z: X=Y C)Z=X: X=Y: Y=Z D)Z=X: W=Y: Y=Z: X=Y (31)窗体中有命令按钮Commandl,事件过程如下: PublicFunctionf(xAsInteger)AsInteger DimyAsInteger x=20 y=2 f=x*y EndFunction PrivateSubCommandl_Click() DimyAsInteger StaticxAsInteger x=10 y=5 y=f(x) Debug.Printx;y EndSub 运行程序,单击命令按钮,则立即窗口中显示的内容是 A)105 B)1040 C)205 D)2040 (32)窗体中有命令按钮Commandl和文本框Text1,事件过程如下: Functionresult(ByValxAsInteger)AsBoolean I
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 模块 VBA 编程