期末综合练习题10级Word文件下载.docx
- 文档编号:18176133
- 上传时间:2022-12-13
- 格式:DOCX
- 页数:14
- 大小:49KB
期末综合练习题10级Word文件下载.docx
《期末综合练习题10级Word文件下载.docx》由会员分享,可在线阅读,更多相关《期末综合练习题10级Word文件下载.docx(14页珍藏版)》请在冰豆网上搜索。
=3Or5>
=6的值是_______。
第10题
在VBA中,表达式Not(Not(8-3>
5))的值是_______。
第11题
在VBA中,表达式33/2>
16And(16\5>
3)的值是_______。
第12题
在VBA中,声明函数过程的关键字是_______。
A.DimB.ConstC.FunctionD.Sub
第13题
对VBA中的逻辑值进行算术运算时,True值被当做-1,False当做_______。
A.1B.2C.0D.3
第14题
在VBA中,类型说明符#表示的数据类型是______。
A.整型B.长整型C.单精度型D.双精度型
第15题
下列语句中,定义窗体的加载事件过程的头语句是______。
A.PrivateSubForm_Chang()
B.PrivateSubForm__LostFocus()
C.PrivateSubForm_Load()
D.PrivateSubForm_Open()
第16题
现有一个已经建好的窗体,窗体中有一个命令按钮,单击此按钮,将打开“产品数量统计”报表,如果采用VBA代码完成,下面语句正确的是______。
A.Docmd.OpenForm"
产品数量统计"
B.Docmd.OpenView"
C.Docmd.OpenTable"
D.Docmd.OpenReport"
第17题
表达式IIf(0,60,100)的结果是______。
A.0B.60C.100D.160
第18题
在VBA中,变量声明语句“Dima#,bASinteger”中的变量a的类型是______。
A.整型B.双精度型C.长整型D.变体型
第19题
在VBA中,“Dima(3,3)ASBollean”语句定义了一个数组,该数组中的全部元素都初始化为______。
A.TrueB.FalseC.-1D.1
第20题
在VBA某个模块中,有如下声明语句
Dima(6,10)ASinteger
那么数组a(6,10)总共有______个元素。
A.16B.60C.70D.77
第21题
以下VBA程序段运行后,变量j的值是______。
k=10
j=0
Do
k=k+10
j=j+1
LoopUntilk>
20
A.1B.2C.4D.10
第22题
y=89
j="
不及格"
DoWhiley>
60
j=IIf(y<
70,"
及格"
IIf(y<
90,"
良好"
"
优秀"
))
y=y-50
Loop
A."
B."
C."
D."
第23题
以下是宏h的操作序列设计:
条件操作操作参数
[txt1]>
=2MsgBox消息是“北京”
...MsgBox消息是“上海”
MsgBox消息是“广州”
现设置宏h为窗体“sysu”上名为“cmd1”命令按钮的单击事件属性,打开窗体“sysu”运行后,在窗体上名为“txt1”的文本框内输入数字1,然后单击命令按钮cmd1,则
A.屏幕会弹出一个消息框,显示消息“北京”
B.屏幕会先后弹出两个消息框,分别显示消息“北京”和“上海”
C.屏幕会先后弹出三个消息框,分别显示消息“北京”、“上海”、“广州”
D.屏幕会弹出一个消息框,显示消息“广州”
第24题
以下VBA代码程序运行结束后,变量a的值是______。
a=0
b=101
b=b-20
a=a+b
LoopWhileb>
80
A.60B.140C.142D.160
第25题
以下VBA代码程序运行结束后,数组元素a(12)的值是______。
Dima(12)AsLong,iAsLong
i=0
DoUntili>
12
a(i)=i^2-i
i=i+1
A.1B.128C.132D.144
第26题
假定有如下的Function过程:
Functionppfun(xAsSingle,yAsSingle)
ppfun=x^3-y^2
EndFunction
在窗体上添加一个命令按钮(名为cmd10),然后编写如下事件过程:
PrivateSubcmd10_Click()
DimaAsSingle,bAsSingle
a=5
b=4
MsgBoxppfun(a,b)mod50
EndSub
打开窗体运行后,单击命令按钮,消息框中的输出内容是______。
A.50B.25C.9D.109
第27题
在窗体上添加一个命令按钮(名为cmd12),然后编写如下事件过程:
PrivateSubcmd12_Click()
DimpiAsSingle,nAsInteger
pi=3.14
n=Len(Str(pi)&
Space
(2)&
"
是本字符串长度"
)
MsgBoxn
A.11B.12C.13D.14
第28题
在窗体上添加一个命令按钮(名为cmd13),然后编写如下事件过程:
PrivateSubcmd13_Click()
DimxAsString,yAsString
x="
龙洞华美路中山大学新华学院法学院"
y="
2006级法学专业学生"
MsgBoxMid(x,6,4)&
Right(x,3)&
Left(y,9)
A.龙洞华美路中山大学新华学院法学院2006级法学专业学生
B.中山大学新华学院法学院2006级法学专业学生
C.中山大学法学院2006级法学专业学生
D.中山大学法学院2006级法学专业
第29题
下列程序段,建立如图所示的数组d(下标从1开始),填写所缺部分:
123456
212345
321234
432123
543212
654321
Dimd(1To6,1To6)
Forj=1To6
Fork=1To6
d(j,k)=Abs(_____)+1
Nextk
Nextj
A.jB.j-k+1C.j-kD.2*j-k
二、多选题
第30题
在Access中,宏的种类包括_______。
A.繁难宏B.条件宏C.宏组D.简单宏
BCD
第31题
在VBA中,对于Sub(或Function)过程中的每一个形参,可用于声明其参数传递方式的关键字包括_______。
A.ByMeB.ByVal
C.ByRefD.ByVBA
BC
第32题
下面______是合法的变量名。
A.STR-NAMEB.CaseC.FOR_99D.abc2006
CD
三、单选[多]
第33题
在窗体上已经建立1个标签控件lab1和1个命令按钮控件cmd1。
请完善程序,使之完成以下操作:
打开窗体后单击命令按钮,则通过输入对话框分别输入3个数值,然后求出其中最大的数,并将最大的数显示在标签lab1中。
PrivateSubcmd1_Click()
DimaAsSingle,bAsSingle,cAsSingle
DimkAsSingle
a=Val(InputBox("
输入第一个数"
b=Val(InputBox("
输入第二个数"
c=Val(InputBox("
输入第三个数"
Ifa<
bThen
k=b
Else
___[1]___‘k=a
EndIf
If___[2]___Then‘k<
c
k=c
___[3]___‘lab1.Caption=k
[1]A.k=0B.k=cC.k=bD.k=a
[2]A.k=kB.k=cC.k<
cD.k>
[3]A.lab1.Value=aB.lab1.Value=b
C.lab1.Caption=cD.lab1.Caption=k
DCD
第34题
在窗体上添加一个命令按钮(名为cmd),然后编写如下事件过程。
单击该命令按钮,便将数组p(6,8)中各个元素都赋予其对应的两个下标值平方之和,请完善程序。
PrivateSubcmd_Click()
Dimp(6,8)Asinteger,iAsinteger,jAsinteger
For____[1]_____To6’i=0
Forj=0To____[2]_____’8
p(i,j)=____[3]_____’i^2+j^2
Nexti
[1]A.i>
0B.i>
0C.i=1D.i=0
[2]A.6B.7C.8D.9
[3]A.(i+j)^2B.i^2+jC.i+j^2D.i^2+j^2
第35题
在窗体上已经建立1个文本框控件txt1和1个命令按钮控件cmd1。
程序运行时,文本框上显示“VBA程序设计”,命令按钮的标题上显示“隐藏”;
单击命令按钮时文本框消失;
单击窗体时显示出文本框。
PrivateSub___[1]___()‘cmd1_Click
txt1.Visible=False
PrivateSubForm_Click()
txt1.Visible=___[2]___‘True
PrivateSubForm_Load()
txt1.Value="
VBA程序设计"
txt1.Visible=True
cmd1.___[3]___="
隐藏"
‘Caption
[1]A.command1_ClickB.Lab1_Click
C.Form_LoadD.cmd1_Click
[2]A.FalseB.True
C."
D."
显示"
[3]A.VisibleB.Value
C.CaptionD.Click
DBC
四、填空题
第36题(编程题)
求S=1/5+1/10+1/15+1/20+1/25+…+1/(5*n)+…的前n项之和,当S第一次大于或等于1.4时终止计算,此时项数n为_____。
616(n)
程序代码:
PrivateSubCmd1_Click()
Dimn%,sAsDouble
s=0'
s作累加器,初值置0
n=1
Whiles<
=1.4
s=s+1/(5*n)
n=n+1
Wend
Text0.Value="
n="
&
n-1
EndSub
第37题(编程题)
通过编程求出结果。
把9786表示为两个加数之和,使其中一个加数能被91整除,而另一个加数能被87整除。
请求出:
在这两个加数中,能被91整除的加数等于多少?
4914(n)
DimiAsInteger,jAsInteger,kAsInteger
k=9786
Fori=87TokStep87
Forj=91TokStep91
Ifi+j=kThen
MsgBox"
能被91整除的加数是:
j
ExitFor
第38题
数据库的“职工”表中含有“姓名”、“职称”和“工资”等字段,要实现对不同职称的职工增加工资,规定工程师职称增加20%,技术员增加15%,其他人员增加10%。
下列程序的功能是按上述规定调整每位职工的工资,并显示所涨工资的总和。
请在空白处填入适当的语句,使程序可以完成指定的功能。
PrivateSubCommand0_Click()
DimdbAsDAO.Database
DimrsAsDAO.Recordset
DimgzAsDAO.Field
DimzcAsDAO.Field
DimsumAsSingle
DimrateAsSingle
Setdb=CurrentDb()
Setrs=db.OpenRecordset("
职工"
Setgz=rs.__________("
工资"
)‘Fields
Setzc=rs.Fields("
职称"
sum=0
DoWhileNotrs.EOF
rs.Edit
SelectCasezc
CaseIs="
工程师"
rate=0.2
技术员"
rate=0.15
CaseElse
rate=0.1
EndSelect
sum=sum+gz*rate
gz=gz+gz*rate
rs.Update
rs.MoveNext
rs.Close
db.Close
Setrs=Nothing
Setdb=Nothing
涨工资总计:
"
sum
Fields
第39题
数据库的“学生成绩”表中含有字段(学号、姓名、语文、数学、英语,总分)。
下列程序的功能是:
计算每名学生的总分(总分=数学+外语+专业)。
请在空白处填入适当的语句,使程序可以实现所需要的功能。
DimcnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
DimzfAsADODB.Field
DimywAsADODB.Field
DimsxAsADODB.Field
DimyyAsADODB.Field
DimstrSQLAsString
Setcn=CurrentProject.Connection
strSQL="
select*from学生成绩"
rs.OpenstrSQL,cn,adOpenDynamic,adLockOptimistic,adCmdText
Setzf=rs.Fields("
总分"
Setyw=rs.Fields("
语文"
Setsx=rs.Fields("
数学"
Setyy=rs.Fields("
英语"
zf=yw+sx+yy
rs._______‘MoveNext
cn.Close
Setcn=Nothing
MoveNext
&
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 期末 综合 练习题 10