模块和VBA编程Word文件下载.docx
- 文档编号:14937812
- 上传时间:2022-10-26
- 格式:DOCX
- 页数:27
- 大小:28.83KB
模块和VBA编程Word文件下载.docx
《模块和VBA编程Word文件下载.docx》由会员分享,可在线阅读,更多相关《模块和VBA编程Word文件下载.docx(27页珍藏版)》请在冰豆网上搜索。
C)Leftstr(S,
D)Leftstr(S,
(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)
打开窗体运行后,单击命令按钮,文本框Text1中输出的结果是
A)6
B)12
C)18
D)21
(8)在窗体中有一个命令按钮Command1,编写事件代码如下:
Dim
s
As
Integer
s=p
(1)+p
(2)+p(3)+p(4)
debug.Prints
PublicFunctionp(N
Integer)
Sum
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-----
程序空白处应填写的是
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>
m=m-n
Loop
m<
n=n-m
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条件式
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
Rem成绩输入正确后的程序代码略
程序中有一空白处,需要填入一条语句使程序完成其功能。
下列选项中错误的语句是
()。
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动态连接库
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 模块 VBA 编程