010模块与VBA理论题.docx
- 文档编号:13543879
- 上传时间:2023-06-15
- 格式:DOCX
- 页数:56
- 大小:182.36KB
010模块与VBA理论题.docx
《010模块与VBA理论题.docx》由会员分享,可在线阅读,更多相关《010模块与VBA理论题.docx(56页珍藏版)》请在冰点文库上搜索。
010模块与VBA理论题
第八章:
模块与VBA
一、选择题:
1.能被"对象所识别的动作"和"对象可执行的活动"分别称为对象的
A)方法和事件B)事件和方法C)事件和属性D)过程和方法
2.在下列关于宏和模块的叙述中,正确的是
A)模块是能够被程序调用的函数
B)通过定义宏可以选择或更新数据
C)宏或模块都不能是窗体或报表上的事件代码
D)宏可以是独立的数据库对象,可以提供独立的操作动作
3.在Access中,如果要处理具有复杂条件或循环结构的操作,则应该使用的对象是
A)窗体B)模块C)宏D)报表
4.发生在控件接收焦点之前的事件是
A)EnterB)ExitC)GotFocusD)LostFocus
5.在VBA中,如果没有显式声明或用符号来定义变量的数据类型,变量的默认数据类型为
A)BooleanB)IntC)StringD)Variant
6.下列数据类型中,不属于VBA的是
A)长整型B)布尔型C)变体型D)指针型
7.如下程序段定义了学生成绩的记录类型,由学号、姓名和三门课程成绩(百分制)组成。
no
name
score
1001
舒宜
78
88
96
TypeStud
s
noAsInteger
nameAsString
score(1to3)AsSingle
EndType
若对某个学生的各个数据项进行赋值,下列程序段中正确的是
A)DimSAsStudB)DimSAsstud
Stud.no=1001S.no=1001
Stud.name="舒宜"S.name="舒宜"
Stud.score=78,88,96S.score=78,88,96
C)DimSAsStudD)DimSAsstud
Stud.no=1001S.no=1001
Stud.name="舒宜"S.name="舒宜"
Stud.score
(1)=78S.score
(1)=78
Stud.score
(2)=88S.score
(2)=88
Stud.score(3)=96S.score(3)=96
8.窗体上添加有3个命令按钮,分别命名为Command1、Command2和Command3。
编写Command1的单击事件过程,完成的功能为:
当单击按钮Commandl时,按钮Command2可用,按钮Command3不可见。
以下正确的是
A)PrivateSubCommand1_Click()C)PrivateSubCommand1_Click()
Command2.Visible=TrueCommand2.Enabled=True
Command3.Visible=FalseCommand3.Visible=False
EndSubEndSub
B)PrivateSubCommand1_Click()D)PrivateSubCommand1_Click()
Command2.Enabled=TrueCommand2.Visible=True
Command3.Enabled=FalseCommand3.Enabled=False
EndSubEndSub
9.假定窗体的名称为fmTest,则把窗体的标题设置为"AccessTest"的语句是
A)Me="AccessTest"B)Me.Caption="AccessTest"
C)Me.text="AccessTest"D)Me.Name="AccessTest"
10.VBA程序的多条语句可以写在一行中,其分隔符必须使用符号
A):
B)'C);D),
11.Access的控件对象可以设置某个属性来控制对象是否可用(不可用时显示为灰色状态)。
需要设置的属性是
A)DefaultB)CancelC)EnabledD)Visible
12.
A
在窗体中有一个标签Label0,标题为"测试进行中";有一个命令按钮Command1,事件代码如下:
PrivateSubCommand1_Click()
Label0.Caption="标签"
EndSub
PrivateSubForm_Load()
Form.Caption="举例"
Command1.Caption="移动"
EndSub
打开窗体后单击命令按钮,屏幕显示
13.
决定哪个按钮为默认按钮
在窗体中添加一个命令按钮(名称为Command1),然后编写如下代码:
False
True
PrivateSubCommand1_Click()
a=0:
b=5:
c=6
MsgBoxa=b+c
EndSub
窗体打开运行后,如果单击命令按钮,则消息框的输出结果为
A)l1B)a=11C)0D)False
14.用于获得字符串Str从第2个字符开始的3个字符的函数是
A)Mid(Str,2,3)B)Middle(Str,2,3)
C)Right(Str,2,3)D)Left(Str,2,3)
15.
0 0 0≤int(rnd*100)≤99 在如下语句 s=Int(100*Rnd) 执行完毕后,s的值是 A)[0,99]的随机整数B)[0,100]的随机整数 C)[1,99]的随机整数D)[1,100]的随机整数 16.InputBox函数的返回值类型是 A)数值B)字符串 C)变体D)数值或字符串(视输入的数据而定) 17.在窗体中有一个标签Lb1和一个命令按钮Command1,事件代码如下: OptionCompareDatabase DimaAsString*10‘定义字符变量a,其长度为10。 PrivateSubCommand1_Click() a="1234" b=Len(a)‘注意b的值是“□□□□□□1234” Me.Lb1.Caption=b EndSub 打开窗体后单击命令按钮,窗体中显示的内容是 A)4B)5C)10D)40 18.在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程: PrivateSubCommand1_Click() Fori=1To4 x=4 注意实际有效值: i=4 j=3 k=1to2 x=x+6 Forj=1To3 x=3 Fork=1To2 x=x+6 Nextk Nextj Nexti MsgBoxx EndSub 打开窗体后,单击命令按钮,消息框的输出结果是 A)7B)15C)157D)538 19. Fix(x) 取整: 返回数值表达式值的整数部分值,参数为负值时返回大于等于参数值的第一个负数 表达式Fix(-3.25)和Fix(3.75)的结果分别是 A)-3,3B)-4,3C)-3,4D)-4,4 20.能够实现从指定记录集中检索特定字段值的函数是 A)DCountB)DlookupC)DMaxD)DSum 21. 132 执行语句: MsgBox"AAAA",vbOKCancel+vbQuestion,"BBBB"之后,弹出的信息框外观样式是 A)B) C)D) 22.以下程序段运行后,消息框的输出结果是 Sqr(n)求n的平方根 a=sqr(3) True: -1 False: 0 b=sqr (2) c=a>b MsgBoxc+2 A)-1B)1C)2D)出错 23.以下关于VBA运算符优先级比较,正确的是 A)算术运算符>逻辑运算符>比较运算符 B)逻辑运算符>比较运算符>算术运算符 C)算术运算符>比较运算符>逻辑运算符 运算级别: 先*/后整除\ D)以上均是错误的 24.VBA表达式3*3\3/3的输出结果是 A)0B)1C)3D)9 25.使用VBA的逻辑值进行算术运算时,True值被处理为 A)-1B)0C)1D)任意值 26.以下可以得到"2*5=10"结果的VBA表达式为 A)"2*5"&"="&2*5B)"2*5"+"="+2*5 C)2*5&"="&2*5D)2*5+"="+2*5 27.下列逻辑表达式中,能正确表示条件"x和y都是奇数"的是 A)xMod2=1OryMod2=1B)xMod2=0OryMod2=0 C)xMod2=1AndyMod2=1D)xMod2=0AndyMod2=0 Mod为求余数计算 28.定义了二维数组A(2to5,5),该数组的元素个数为 A20a21a22a23a24a25 A30a31a32a33a34a35 A40a41a42a43a44a45 A50a51a52a53a54a55 A)20B)24 C)25D)36 注意: 数组行、列的下标初始值的默认值为零。 29.(31)下列数组声明语句中,正确的是 A)DimA[3,4]AsIntegerB)DimA(3,4)AsInteger C)DimA[3;4]AsIntegerD)DimA(3;4)AsInteger 30.(29)语句DimNewArray(10)AsInteger的含义是 A)定义了一个整形变量且初值为10B)定义了10个整数构成的数组 C)定义了11个整数构成的数组D)将数组的第10个元素设置为整型 31.VBA程序流程控制的方式 A)顺序控制和分支控制B)顺序控制和循环控制 C)循环控制和分支控制D)顺序、分支和循环控制 32. 在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1),并在命令按钮中编写如下事件代码: PrivateSubCommand1_Click() m=2.17 n=Len(Str$(m)+Space(5)) Me! Text1=n EndSub 打开窗体运行后,单击命令按钮,在文本框中显示 A)5B)8C)9D)10见: lVBA32 33.在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: PrivateSubCommand1_Click() A=75 IfA>60ThenI=1 IfA>70ThenI=2 IfA>80ThenI=3 IfA>90ThenI=4 MsgBoxI EndSub 窗体打开运行后,单击命令按钮,则消息框的输出结果是 A)1B)2C)3D)4 34.在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: PrivateSubCommand1_Click() a=75‘a=50则结果如何? Ifa>60Then k=1 Elselfa>70Then k=2 Elselfa>80Then k=3 Elselfa>90Then k=4 EndIf MsgBoxk EndSub 窗体打开运行后,单击命令按钮,则消息框的输出结果是 A)1B)2C)3D)4 35.下列不是分支结构的语句是 A)If…Then…EndIfB)While…Wend C)If…Then…Else…EndIfD)Select…Case…EndSelect 36.下列四个选项中,不是VBA的条件函数的是 A)ChooseB)IfC)IIfD)Switch 37.在窗体中有一个文本框Text1,编写事件代码如下: PrivateSubForm_Click() X=Val(InputBox("输入x的值"))‘VAL将数值字符串转换为数值。 Y=1 IfX<>0ThenY=2 Text1.Value=Y EndSub 打开窗体运行后,在输入框中输入整数12,文本框Text1中输出的结果是 A)1B)2C)3D)4 38.假定有以下循环结构 DoUntil条件‘条件为假时执行循环体。 循环体 Loop 则正确的叙述是 A)如果"条件"值为0,则一次循环体也不执行 B)如果"条件"值为0,则至少执行一次循环体 C)如果"条件"值不为0,则至少执行一次循环体 D)不论"条件"是否为"真",至少要执行一次循环体 39.假定有以下程序段 i=1 j=-4,-3,-2,-1 执行n=n+1 i=2 j=-4,-3,-2,-1 执行n=n+1 i=3 j=-4,-3,-2,-1 执行n=n+1 对于n=n+1共计12次 n=0 Fori=1To3 Forj=-4To-1 n=n+1 Nextj Nexti 运行完毕后,n的值是 A)0B)3C)4D)12 40.以下程序段运行结束后,变量x的值为 x=2 y=4 Do x=8注意: 先执行一次循环体 y=5 注意: 条件为假时退出循环。 x=x*y y=y+1 LoopWhiley<4 A)2B)4C)8D)20 41.在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: PrivateSubCommand1_Click() s="ABBACDDCBA" I=6,4,2 Mid(s,I,I)从第I个位置向后取I字符。 ForI=6To2Step-2 x=Mid(s,I,I)‘BB 注意: 只有I=2时起作用 y=Left(s,I)‘AB z=Right(s,I)‘BA z=x&y&z‘BBABBA NextI MsgBoxz EndSub 窗体打开运行后,单击命令按钮,则消息框的输出结果是 A)AABAABB)ABBABAC)BABBAD)BBABBA 42.设有如下窗体单击事件过程 PrivateSubForm_Click() a=1 Fori=1To3‘i=1,2,3 SelectCasei Case1,3‘i=1i=3 a=a+1a=2a=5 Case2,4‘i=2 a=a+2a=4 EndSelect Nexti MsgBoxa EndSub 打开窗体运行后,单击窗体,则消息框的输出的结果是 A)3B)4C)5D)6 43.设有如下程序: PrivateSubCommand1_Click() DimsumAsDouble,xAsDouble i=5 x=n/i=4/5 n=n+1=5 sum=sum+x =1/2+2/3+3/4+4/5 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 44.下列Case语句中错误的是 A)Case0To10B)CaseIs>10 C)CaseIs>10AndIs<50D)Case3,5,Is>10 注意Case语句参数说明: Case1,3,5,9单个值或多个值,中间用逗号隔开; Case1To10用To指定范围; CaseIs>=10用Is指定条件; 45.在窗体中使有一个文本框(名为n)接受输入的值,有一个命令按钮run,事件代码如下: PrivateSubrun_Click() result="" Fori=1ToMe! ni=1,2,3,44次 Forj=1ToMe! nj=1,2,3,44次 result=result+"*"内层: **** Nextj 回车 result=result+Chr(13)+Chr(10)外层: ****□ _ Nextichr将ASCII转换成字符 MsgBoxresult EndSub 打开窗体后,如果通过文本框输入的值为4,单击命令按钮后输出的图型是 A)****B)* ******* ********* *********** C)****D)**** ********** ************ ************** 46.下列四种形式的循环设计中,循环次数最少的是 a=5 a=6 a=7 a=8退出 3次 A)a=5: b=8B)a=5: b=8 a=5 a=6 5<6真 退出 1次 DODO a=a+1a=a+1 LoopWhilea a=5 a=6 a=7 a=8 a=99>8真 退出 4次 a=5 a=8 5<8真 一次不执行 C)a=5: b=8D)a=5: b=8 DOUntila a=a+1a=a+1 LoopLoop 47.在窗体中有一个命令按钮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个数据分别统计有几个奇数,有几个偶数 48.在VBA中,错误的循环结构是 A)DoWhile条件式B)DoUntil条件式 注意: 关键字后跟条件 循环体循环体 LoopLoop C)DoUntilD)Do 循环体循环体 Loop条件式LoopWhile条件式 49.在窗体中有一个命令按钮(名称为run34),对应的事件代码如下: 运行以上事件,程序的输出结果是 A)10B)30C)55D)其他结果 50.在窗体中有一个名称为run35的命令按钮,单击该按钮从键盘接收学生成绩,如果输入的成绩不在0到100分之间,则要求重新输入;如果输入的成绩正确,则进入后续程序处理。 run35命令按钮的Click的事件代码如下: PrivateSubrun35_Click() DimflagAsBoolean result=0 flag=True Dowhileflag result=Val(InputBox("请输入学生成绩: ","输入")) 注意: 错误的语句是 而不是正确的语句 Ifresult>=0Andresult<=100Then‘验证78,-56 Flag=True Else MsgBox"成绩输入错误,请重新输入" EndIf Loop Rem成绩输入正确后的程序代码略 EndSub 程序中有一空白处,需要填入一条语句使程序完成其功能,下列选项中错误的语句是 A)flag=FalseB)flag=NotflagC)flag=TrueD)ExitDo 51.设有如下过程: x=1 Do x=x+2x=1,x=3,x=5,x=7 Loopuntil‘条件为假时执行循环体 运行程序,要求循环执行3次后结束循环,空白处应该填入的语句是 A)x<=7B)x<7C)x>=7D)x>7 52.在窗体中有一个名称为command1的命令按钮,然后编写如下事件代码: 6 PrivateSubCommand1_Click() Msgboxf(24,18) EndSub PublicFunctionf(mAsInteger,nAsInteger)AsInteger DoWhilem<>n‘1.m=24n=18 Dowhilem>n‘1.24>18 m=m-n‘1.m=24-18m=6 Loop‘m=6n=18 Dowhilem n=n-m‘1.n=18-6n=122.n=12-6n=6 Loop‘m=6n=6 Loop‘m=n=6 f=mf=6 EndFunction 窗体打开运行后,单击命令按钮,则消息框的输出结果是 A)2B)4C)6D)8 53.在窗体中有一个命令按钮Command1和一个文本框Text1,编写事件代码如下: PrivateSubCommand1_Click() Fori=1To4 x=3注意: i=1,2,3,4都执行x=3因此只有x=4有意义。 Forj=1To3‘j=1,2,33次 Fork=1To2‘k=1,22次 x=x+3‘x=x+3执行次数为3*2=6x=21 Nextk Nextj Nexti Text1.Value=Str(x) EndSub 打开窗体运行后,单击命令按钮,文本框Text1输出的结果是 A)6B)12C)18D)21 54.在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: PrivateSubCommand1_Click() Dima(10,10) a(m,n)=a(2,5)=2*5=10 a(m,n)=a(3,4)=3*4=12 a(m,n)=a(4,5)=4*5=20 a(2,5)+a(3,4)+a
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 010 模块 VBA 理论