计算机二级Access 第八章同步练习题.docx
- 文档编号:8007081
- 上传时间:2023-01-27
- 格式:DOCX
- 页数:37
- 大小:27.74KB
计算机二级Access 第八章同步练习题.docx
《计算机二级Access 第八章同步练习题.docx》由会员分享,可在线阅读,更多相关《计算机二级Access 第八章同步练习题.docx(37页珍藏版)》请在冰豆网上搜索。
计算机二级Access第八章同步练习题
第8章模块与VBA编程基础
一、选择题
(1)下列能够交换变量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
(2)在VBA中,下列关于过程的描述正确的是()。
A)过程的定义可以嵌套,但过程的调用不能嵌套
B)过程的定义不可以嵌套,但过程的调用可以嵌套
C)过程的定义和过程的调用均可以嵌套
D)过程的定义和过程的调用均不能嵌套
(3)若要在子过程Proc1调用后返回两个变量的结果,下列过程定义语句中有效的是()。
A)SubProc1(n,m)
B)SubProcl(ByValn,m)
C)SubProc1(n,BYValm)
D)SubProc1(ByValn,ByValm)
(4)Sub过程与Function过程最根本的区别是()。
A)Sub过程的过程名不能返回值,而Function的过程名可以返回值
B)Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以
C)两种过程参数的传递方式不同
D)Function过程可以有参数,Sub过程不可以有参数
(5)能被"对象所识别的动作"和"对象可执行的活动"分别称为对象的()。
A)方法和事件
B)事件和方法
C)事件和属性
D)过程和方法
(6)键盘事件是操作键盘所引发的事件,下列不属于键盘事件的是()。
A)"击键"事件
B)"键按下"事件
C)"键释放"事件
D)"键锁定"事件
(7)VBA程序的多条语句可以写在一行中,其分隔符必须使用符号()。
A):
B)'
C);
D),
(8)下列数据类型中,不属于VBA数据类型的是()。
A)长整型
B)布尔型
C)变体型
D)指针型
9)如下程序段定义了学生成绩的记录类型,由学号、姓名和三门课程成绩(百分制)组成。
TypeStud
noAsInteger
nameAsString
score(1to3)AsSingle
EndType
若对某个学生的各个数据项进行赋值,下列程序段正确的是()。
A)DimSAsStud
Stud.no=1001
Stud.name="舒宜"
Stud.score=78,88,96
B)DimSAsStud
S.no=1001
S.name="舒宜"
S.score=78,88,96
C)DimSAsStud
Stud.no=1001
Stud.name="舒宜"
Stud.score
(1)=78
Stud.score
(2)=88
Stud.score(3)=96
D)DimSAsStud
S.no=1001
S.name="舒宜"
S.score
(1)=78
S.score
(1)=88
S.score
(1)=96
(10)下列给出的选项中,非法的变量名是()。
A)Sum
B)Integer_2
C)Dim
D)Form1
(11)在模块的声明部分使用"OptionBase1"语句,然后定义二维数组A(2to5,5),则该数组的元素个数为()。
A)20
B)24
C)25
D)36
(12)在Access中,如果变量定义在模块的过程内部,当过程代码执行时才可见,则这种变量的作用域为()。
A)程序范围
B)全局范围
C)模块范围
D)局部范围
(13)语句DimNewArray(10)AsInteger的含义是()。
A)定义了一个整型变量且初值为10
B)定义了10个整数构成的数组
C)定义了11个整数构成的数组
D)将数组的第10个元素设置为整型
(14)要将一个数字字符串转换成对应的数值,应使用的函数是()。
A)Val
B)Single
C)Asc
D)Space
(15)能够实现从指定记录集里检索特定字段值的函数是()。
A)Nz
B)Find
C)Lookup
D)Dlookup
(16)如果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))
(17)在窗体上有一个命令按钮Command1,编写事件代码如下:
PrivateSubCommand1_Click()
Dimd1AsDate
Dimd2AsDate
d1=#12/25/2009#
d2=#1/5/2010#
MsgBoxDateDiff("ww",d1,d2)
EndSub
打开窗体运行后单击命令按钮,消息框中输出的结果是()。
A)1
B)2
C)10
D)11
(18)用于获得字符串S最左边4个字符的函数是()。
A)Left(S,4)
B)Left(S,1,4)
C)Leftstr(S,4)
D)Leftstr(S,0,4)
(19)表达式Fix(-3.25)和Fix(3.75)的结果分别是()。
A)-3,3
B)-4,3
C)-3,4
D)-4,4
(20)从字符串s中的第2个字符开始获得4个字符的子字符串函数是()。
A)Mid(s,2,4)
B)Left$(s,2,4)
C)Right(s,4)
D)Left$(s,4)
(21)有如下语句:
s=Int(100*Rnd)
执行完毕后,s的值是()。
A)[0,99]的随机整数
B)[0,100]的随机整数
C)[1,99]的随机整数
D)[1,100]的随机整数
(22)在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1),并在命令按钮中编写如下事件代码:
PrivateSubCommand1_Click()
m=2.17
n=Len(Str$(m)+Space(5))
Me!
Text1=n
EndSub
打开窗体运行后,单击命令按钮,在文本框中显示的内容为()。
A)5
B)8
C)9
D)10
(23)在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码:
PrivateSubCommand1_Click()
s="ABBACDDCBA"
ForI=6To2Step-2
x=Mid(s,I,I)
y=Left(s,I)
z=Right(s,I)
z=x&y&z
NextI
MsgBoxz
EndSub
窗体打开运行后,单击命令按钮,则消息框的输出结果是()。
A)AABAAB
B)ABBABA
C)BABBA
D)BBABBA
(24)表达式"B=INT(A+0.5)"的功能是()。
A)将变量A保留小数点后1位
B)将变量A四舍五入取整
C)将变量A保留小数点后5位
D)舍去变量A的小数部分
(25)下列表达式计算结果为数值类型的是()。
A)#5/5/2010#-#5/1/2010#
B)"102">"11"
C)102=98+4
D)#5/1/2010#+5
(26)在窗体上有一个命令按钮Command1,编写事件代码如下:
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
(27)在窗体中添加一个命令按钮(名称为Command1),然后编写如下代码:
PrivateSubCommand1_Click()
a=0:
b=5:
c=6
MsgBoxa=b+c
EndSub
窗体打开运行后,如果单击命令按钮,则消息框的输出结果为()。
A)11
B)a=11
C)0
D)False
(28)VBA表达式"3*3\3/3"的输出结果是()。
A)0
B)1
C)3
D)9
(29)下列逻辑表达式中,能正确表示条件"x和y都是奇数"的是()。
A)xMod2=1OryMod2=1
B)xMod2=0OryMod2=0
C)xMod2=1AndyMod2=1
D)xMod2=0AndyMod2=0
(30)有如下事件程序,运行该程序后输出结果是()。
PrivateSubCommand3_Click()
DimxAsInteger,yAsInteger
x=1:
y=0
DoUntily<=25
y=y+x*x
x=x+1
Loop
MsgBox"x="&x&",y="&y
EndSub
A)x=1,y=0
B)x=4,y=25
C)x=5,y=30
D)以上结果都不对
(31)下列程序的功能是计算sum=1+(1+3)+(1+3+5)+…+(1+3+5+…+39)。
PrivateSubCommand34_Click()
t=0
m=1
sum=0
Do
t=t+m
sum=sum+t
m=_________
LoopWhilem<=39
MsgBox"sum="&sum
EndSub
为保证程序能正确完成上述功能,空白处应填入的语句是()。
A)m+1
B)m+2
C)t+1
D)t+2
(32)若变量i的初值为8,则下列循环语句中循环体的执行次数为()。
DoWhilei<=17
i=i+2
Loop
A)3次
B)4次
C)5次
D)6次
(33)窗体中有命令按钮Command1和文本框Text1,事件过程如下:
Functionresult(ByValxAsInteger)AsBoolean
IfxMod2=0Then
result=True
Else
result=False
EndIf
EndFunction
PrivateSubCommand1_Click()
x=Val(InputBox("请输入一个整数"))
If__________Then
Text1=Str(x)&"是偶数"
Else
Text1=Str(x)&"是奇数"
EndIf
EndSub
运行程序,单击命令按钮,输入19,在Text1中会显示"19是奇数",那么在程序的空白处应填写()。
A)result(x)="偶数"
B)result(x)
C)result(x)="奇数"
D)NOTresult(x)
(34)窗体中有命令按钮run34,对应的事件代码如下:
PrivateSubrun34_Enter()
DimnumAsInteger,aAsInteger,bAsInteger,iAsInteger
Fori=1To10
num=InputBox("请输入数据:
","输入")
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个数据分别统计整数和非整数的个数
(35)在窗体上有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:
PrivateSubCommand1_Click()
Dimi,j,x
Fori=1To20step2
x=0
Forj=2To20step3
x=x+1
Nextj
Nexti
Text1.Value=Str(x)
EndSub
打开窗体运行后,单击命令按钮,文本框中显示的结果是()。
A)1
B)7
C)17
D)400
(36)在窗体中有一个文本框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
(37)在窗体中有一个命令按钮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
(38)下列四个选项中,不是VBA条件函数的是()。
A)Choose
B)If
C)Iif
D)Switch
(39)设有如下过程:
x=1
Do
x=x+2
LoopUntil__________
运行程序,要求循环体执行3次后结束循环,空白处应填入的语句是()。
A)x<=7
B)x<7
C)x>=7
D)x>7
(40)在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码:
PrivateSubCommand1_Click()
MsgBoxf(24,18)
EndSub
PublicFunctionf(mAsInteger,nAsInteger)AsInteger
DoWhilem<>n
DoWhilem>n
m=m-n
Loop
DoWhilem n=n-m Loop Loop f=m EndFunction 窗体打开运行后,单击命令按钮,则消息框的输出结果是()。 A)2 B)4 C)6 D)8 (41)在窗体中有一个命令按钮(名称为run34),对应的事件代码如下: PrivateSubrun34_Click() sum=0 Fori=10To1Step-2 sum=sum+i Nexti MsgBoxsum EndSub 运行以上事件,程序的输出结果是()。 A)10 B)30 C)55 D)其他结果 (42)VBA程序流程控制的方式是()。 A)顺序控制和分支控制 B)顺序控制和循环控制 C)循环控制和分支控制 D)顺序控制、分支控制和循环控制 (43)在Access中,如果要处理具有复杂条件或循环结构的操作,则应该使用的对象是()。 A)窗体 B)模块 C)宏 D)报表 (44)下列4种形式的循环设计中,循环次数最少的是()。 A)a=5: b=8 Do A=a+1 LoopWhilea B)a=5: b=8 Do a=a+1 LoopUntila C)a=5: b=8 DoUntila b=b+1 Loop D)a=5: b=8 DoUntila>b a=a+1 Loop (45)下列不是分支结构的语句是()。 A)If…Then…EndIF B)While…Wend C)If…Then…Else…EndIf D)Select…Case…EndSelect (46)在窗体中使用一个文本框(名为n)接收输入的值,有一个命令按钮run,事件代码如下: PrivateSubrun_Click() result="" Fori=1ToMe! n Forj=1ToMe! n result=result+"*" Nextj result=result+Chr(13)+Chr(10) Nexti MsgBoxresult EndSub 打开窗体后,如果通过文本框输入的值为4,单击命令按钮后输出的图形是()。 A)**** **** **** **** B)* *** ***** ******* C)**** ****** ******** ********** D)**** **** **** **** (47)在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: PrivateSubCommand1_Click() a=75 Ifa>60Then k=1 ElseIfa>70Then k=2 ElseIfa>80Then k=3 ElseIfa>90Then k=4 EndIf MsgBoxk EndSub 窗体打开运行后,单击命令按钮,则消息框的输出结果是()。 A)1 B)2 C)3 D)4 (48)设有如下窗体单击事件过程: PrivateSubForm_Click() a=1 Fori=1To3 SelectCasei Case1,3 a=a+1 Case2,4 a=a+2 EndSelect Nexti MsgBoxa EndSub 打开窗体运行后,单击窗体,则消息框的输出结果是()。 A)3 B)4 C)5 D)6 (49)设有如下程序: PrivateSubCommand1_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/5 B)1+1/2+1/3+1/4+1/5 C)1/2+2/3+3/4+4/5 D)1/2+1/3+1/4+1/5 (50)下列Case语句中错误的是()。 A)Case0To10 B)CaseIs>10 C)CaseIs>10AndIs<50 D)Case3,5Is>10 (51)在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: PrivateSubCommand1_Click() Dima(10,10) Form=2To4 Forn=4To5 a(m,n)=m*n Nextn Nextm MsgBoxa(2,5)+a(3,4)+a(4,5) EndSub 窗体打开运行后,单击命令按钮,则消息框的输出结果是()。 A)22 B)32 C)42 D)52 (52)在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程: PrivateSubCommand1_Click() Fori=1To4 x=4 Forj=1To3 x=3 Fork=1To2 x=x+6 Nextk Nextj Nexti MsgBoxx EndSub 打开窗体后,单击命令按钮,消息框的输出结果是()。 A)7 B)15 C)157 D)528 (53)假定有以下循环结构: DoUntil条件 循环体 Loop 则正确的叙述是()。 A)如果"条件"值为0,则一次循环体也不执行 B)如果"条件"值为0,则至少执行一次循环体 C)如果"条件"值不为0,则至少执行一次循环体 D)不论"条件"是否为"真",至少要执行一次循环体 (54)假定有以下程序段: n=0 fori=1to3 forj=-4to-1 n=n+1 nextj nexti 运行完毕后,n的值是()。 A)0 B)30 C)4 D)12 (55)执行下面的程序段后,x的值为()。 x=5 ForI=1To20Step2 x=x+I\5 NextI A)21 B)22 C)23 D)24 (56)已知程序段: s=0 Fori=1To10Step2 s=s+1 i=i*2 Nexti 当循环结束后,变量i、s的值各为()。 A)10,4 B)11,3 C)22,3 D)16,4 (57)运行下面的程序段: Fork=5TO10Step2 k=k*2 Nextk 则循环次数为()。 A)1 B)2 C)3 D)4 (58)在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序: PublicxAsInteger PrivateSubCommand1_Click() x=10 Calls1 Calls2 MsgBoxx EndSub PrivateSubs1() x=x+20 EndSub PrivateSubs2() DimxAsInteger x=x+20 EndSub 窗体打开运行后,单击命令按钮,则消息框的输出结果为()。 A)10 B)30 C)40 D)50 (59)下面程序: PrivateSubForm_Click() Dimx,y,zAsInteger x=5 y=7 z=0 CallP1(x,y,z) Debug.PrintStr(z) EndSub SubP1(ByValaAsInteger,ByVa
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机二级Access 第八章同步练习题 计算机 二级 Access 第八 同步 练习题