笔试练习9VBA数据库编程答案.docx
- 文档编号:24887092
- 上传时间:2023-06-02
- 格式:DOCX
- 页数:15
- 大小:370.07KB
笔试练习9VBA数据库编程答案.docx
《笔试练习9VBA数据库编程答案.docx》由会员分享,可在线阅读,更多相关《笔试练习9VBA数据库编程答案.docx(15页珍藏版)》请在冰豆网上搜索。
笔试练习9VBA数据库编程答案
1、2005.4(32)
假设窗体的名称为fmTest,则把窗体的标题设置为“Access”的语句是
A)Me=“AccessTest”B)Me.Caption=“AccessTest”
C)Me.text=“AccessTest”D)Me.Name=“AccessTest”
2、2005.4(34)
执行语句:
MsgBox“AAAA”,vbOKCancel+vbQuestion,“BBBB”之后,弹出的信息框外观样式是C
3、2005.9(22-23)使用下图,窗体的名称为fmTest,窗体中有一个标签和一个命令按钮,名称分别为Label1和bChange。
(A)在“窗体视图”显示该窗体时,要求在单击命令按钮后标签上显示的文字颜色变为红色,以下能实现该操作的语句是
A)label1.ForeColor=255 B)bChange.ForeColor=255
C)label1.ForeColor="255" D)bChange.ForeColor="255"
(B)若将窗体的标题设置为“改变文字显示颜色”,应使用的语句是
A)Me="改变文字显示颜色" B)Me.Caption="改变文字显示颜色"
C)Me.text="改变文字显示颜色" D)Me.Name="改变文字显示颜色"
4、2005.9(34)
窗体上添加有3个命令按钮,分别命名为Command1、Command2和Command3。
编写Command1的单击事件过程,完成的功能为:
当单击按钮Command1时,按钮Command2可用,按钮Command3不可见。
以下正确的是
A)PrivateSubCommand1_Click() B)PrivateSubCommand1_Click()
Command2.Visible=True Command2.Enabled=True
Command3.Visible=False Command3.Enabled=False
EndSub EndSub
C)PrivateSubCommand1_Click() D)PrivateSubCommand1_Click()
Command2.Enabled=True Command2.Visible=True
Command3.Visible=False Command3.Enabled=False
EndSub EndSub
5、2005.9(填9)建立了一个窗体,窗体中有一命令按钮,单击此按钮,将打开一个查询,查询名为“qT”,如果采用VBA代码完成,应使用的语句是 DoCmd.OpenQuery”qT”
6、2005.9(填13)有一个VBA计算程序的功能如下,该程序用户界面由4个文本框和3个按钮组成。
4个文本框的名称分别为:
Text1、Text2、Text3和Text4。
3个按钮分别为:
清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。
窗体打开运行后,单击清除按钮,则清除所有文本框中显示的内容;单击计算按钮,则计算在Text1、Text2和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中;单击退出按钮则退出。
请将下列程序填空补充完整。
PrivateSubCommand1_Click()
Me!
Text1=""
Me!
Text2=""
Me!
Text3=""
Me!
Text4=""
EndSub
PrivateSubCommand2_Click()
IfMe!
Text1=""OrMe!
Text2=""OrMe!
Text3=""Then
MsgBox"成绩输入不全"
Else
Me!
Text4=(Val(Me!
Text1)+Val(Me!
Text2)+Val(Me!
Text3))/3
Endif
EndSub
PrivateSubCommand3_Click()
Docmd.Close
EndSub
7、2006.4(31)现有一个已经建好的窗体,窗体中有一命令按钮,单击此按钮,将打开“tEmployee”表,如果采用VBA代码完成,下面语句正确的是
A.docmd.openform″tEmployee″ B.docmd.openview″tEmployee″
C.docmd.opentable″tEmployee″ D.docmd.openreport″tEmployee″
8、2006.4(32)Access的控件对象可以设置某个属性来控制对象是否可用(不可用时显示为灰色状态)。
需要设置的属性是
A.Default B.CancelC.Enabled D.Visible
9、2006.4(填10)在使用Dim语句定义数组时,在缺省情况下数组下标的下限为 0 。
10、2006.4(填14)窗体中有两个命令按钮:
“显示”(控件名为cmdDisplay)和“测试”(控件名为cmdTest)。
以下事件过程的功能是:
单击“测试”按钮时,窗体上弹出一个消息框。
如果单击消息框的“确定”按钮,隐藏窗体上的“显示”命令按钮;单击“取消”按钮关闭窗体。
按照功能要求,将程序补充完整。
PrivateSubcmdTest_Click()
Answer= Msgbox (“隐藏按钮”,vbOKCancel)
IfAnswer=vbOKThen
cmdDisplay.Visible= False
Else
Docmd.Close
EndIf
EndSub
11、2006.9(28)在窗体中添加了一个文本框和一个命令按钮(名称分别为tText和bCommand),并编写了相应的事件过程。
运行此窗体后,在文本框中输入一个字符,则命令按钮上的标题变为“计算机等级考试”。
以下能实现上述操作的事件过程是
文本框更改后事件!
!
!
•当修改文本框时触发Change事件
•当选中文本框时触发GotFocus事件
•当文本框失去焦点时触发LostFocus事件
•如果窗体/报表在执行中发生错误,便会引发窗体/报表的“Error(出错)”事件
12、2006.9(填9)某窗体中有一命令按钮,名称为C1。
要求在窗体视图中单击此命令按钮后,命令按钮上显示的文字颜色为棕色(棕色代码为128),实现该操作的VBA语句是_C1.Forecolor=128______。
13、2006.9(填12)在窗体上有一个文本框控件,名称为Text1。
同时,窗体加载时设置其计时器间隔为1秒、计时器触发事件过程则实现在Text1文本框中动态显示当前日期和时间。
请补充完整。
PrivateSubForm_Load()
Me.TimerInterval=1000
EndSub
PrivateSub_Form_Timer()_______
Me.Text1=Now()
EndSub
14、2007.4(29)InputBox函数的返回值类型是
A)数值B)字符串
C)变体D)数值或字符串(视输入的数据而定)
15、2007.4(30)假设某数据库已建有宏对象“宏1”,“宏1”中只有一个宏操作SetValue,其中第一个参数项目为“[Label0],[Caption]”,第二个参数表达式为“[Text0]”,窗体“fmTest”
中有一个标签Label0和一个文本框Text0,现设置控件Text0的“更新后”事件为运行“宏1”,则结果是
A)将文本框清空B)将标签清空
C)将文本框中的内容复制给标签的标题,使二者显示相同内容
D)将标签的标题复制到文本框,使二者显示相同内容
第二个参数表达式的值赋给第一个
16、2007.4(10)退出Access应用程序的VBA代码是Docmd.Quit。
17、2007.4(14)已知一个名为“学生”的Access数据库,库中的表“stud“存储学生的基本信息,包括学号、姓名、性别和籍贯。
下面程序的功能是:
通过下图所示的窗体向“stub”表中添加学生记录,对应“学号”、“姓名”和“籍贯”的四个文本框的名称分别为tNo\tName、tSex和tRes.当单击窗体中的“增加“命令按钮(名称为Commandl)时,首先判断学号是否重复,如果不重复则向“stud“表中添加学生记录:
如果学号重复,则给出提示信息。
PrivateSubForm_Load()
、打开窗口时,连接Access数据库
SetADOcn=CurrentProject,Connection
EndSub
DimADOcnAsNewADODB.Conneetion
PrivateSubCommandl_Click()
、增加学生记录
DimStrSQLAsString
DimADOrsAsNewADODB,Recordset
SetADOrs,ActiveConnection=ADOcn
ADOrs.Open”Select学号FromStudWhere学号=““+tNo+“‘”
IFNotADOrs.EofThen
‘如果该学号的学生记录已经存在,则显示提示信息
MsgBox”你输入的学号已存在,不能增加!
“
Else
‘增加新学生的记录
strSQL=“InsertIntostud(学号,姓名,性别,籍贯)”
strSQL=strSQL+”Values(‘”+tNo+”‘,’”+tName+”‘,’“+tSex”‘,’+tRes+”‘)”
ADOen.ExecuteStrSQL。
MsgBox“添加成功,请继续!
”
EndIf
ADOrs.Close
SetADOrs=Nothing
EndSub
18、2007.9(31)在Access中,DAO的含义是______。
A)开放数据库互连应用编程接口B)数据库访问对象
C)Active数据对象D)数据库动态链接库
19、2007.9(32)在窗体中有一个标签Label0,标题为“测试进行中”;有一个命令按钮Command1;事件代码如下:
PrivateSubCommand1_Click()
Label0.Caption="标签"
EndSub
PrivateSubForm_Load()
Form.Caption="举例"
Command1.Caption="移动"
EndSub
打开窗体后单击命令按钮,屏幕显示______。
2
A)
B)
C)
D)
20、2007.9(14)现有一个登录窗体如下图所示。
打开窗体后输入用户名和密码,登录操作要求在20秒内完成,如果在20秒内没有完成登陆操作,则倒计时达到0秒时自动关闭登录窗体,窗体的右上角是显示倒计时的标签Itime。
事件代码如下,要求填空完成事件过程。
OptionCompareDatabase
DimflagAsBoolean
DimiAsInteger
PrivateSubForm_Load()
flag=True
Me.TimerInterval=1000
i=0
EndSub
PrivateSubForm_Timer()
Ifflag=TrueAndi<20Then
Me!
ITime.Caption=20–i
i=i+1
Else
DoCmd.Close
EndIf
EndSub
PrivateSubOK_Click()
'登录程序略
'如果用户名和密码输入正确,则:
falg=False
4
EndSub
21、2008.4(22)在窗体上,设置控件Command0为不可见属性是
A>Command0.ColoreB>Command0.Caption
C>Command0.EnabledD>Command0.Visible
22、2008.4(13)下列子过程的功能是:
将当前数据库文件中”学生表”的学生”年龄”都加1,请在程序空白的地方填写适当的语句,使程序实现所需要的功能
PrvateSubSetAgePlus1_Click()
DimdbAsDAO.Database
DimrsAsDAO.Recordset
DimfdAsDAO.Field
Setdb=CurrentDb()
Setrs=db.OpenRecordset(“学生表”)
setfd=rs.field(“年龄”)
DoWhileNotrs.EOF
rs.Edit
fd=fd+1
rs.Update
rs.movenext
Loop
rs.Close
db.Close
Setrs=Nothing
Setdb=Nothing
EndSub
23、2008.9(26)在下图所示的窗体上,有一个标有“显示”字样的命令按钮(名称为Command1)和一个文本框(名称为text1)。
当单击命令按钮时,将变量sum的值显示在文本框内,正确的代码是( )。
A)Me!
Text1.Caption=sumB)Me!
Text1.Value=sum
C)Me!
Text1.Text=sumD)Me!
Text1.Visible=sum
24、2008.9(29)在VBA中,实现窗体打开操作的命令是()。
A)DoCmd.OpenForm B)OpenForm
C)Do.OpenForm D)DoOpcn.Form
25、2008.9(填9)Access中用于执行指定的SQL语言的宏操作名是_RunSQL__________。
}常见的宏操作:
}OpenForm、OpenReport、OpenTable、OpenQuery
}RunSQL执行指定SQL语言
}RunMacro执行指定宏
}StopMacro中止当前正在运行的宏,常用在条件宏
}Close关闭指定对象,默认关闭当前窗体
}MsgBox弹出消息框
}Quit退出ACCESS
}SetValue为窗体或报表上的控件、字段或者属性设置值
}GoToControl将焦点移到激活数据表或窗体上制定的字段或控件上
}GoToRecord在表、窗体或者查询结果集中的指定记录成为当前记录
26、2009.3(29)在VBA中要打开名为“学生信息录入”的窗体,应使用的语句是
A)DoCmd.OpenForm”数据信息录入”B)OpenForm”数据信息录入”
C)DoCmd.OpenWindow”数据信息录入”D)OpenWindow”数据信息录入”
27、2009.3(32)能够实现从指定记录集里检索特定字段值的函数是
A)Dcount B)Dlookup C)Dmax D)Dsum
28、2009.3(填12)窗体中有两个命令按钮:
“显示”(控件名为cmdDisplay)和“测试”(控件名为cmdTest)。
当单击“测试”按钮时,执行的事件功能是:
首先弹出消息框,若单击其中的“确定”按钮,则隐藏窗体上的“显示”按钮;否则直接返回到窗体中。
请在空白处填入适当的语句 ,使程序可以完成指定的功能。
PrivateSubcmdTest_Click()
Answer=____Msgbox__("隐藏按钮?
",vbOKCancel+vbQuestion,"Msg")
IfAnswer=vbOKThen
Me!
cmdDisplay.Visible=False
EndIf
EndSub
29、2009.3(填13)对窗体test上文本框控件txtAge中输入的学生年龄数据进行验证。
要求:
该文本框中只接受大于等于15且小于等于30的数值数据,若输入超出范围则给出提示信息。
该文本控件的BeforeUpdate事件过程代码如下,请在空白处填入适当的语句,使程序可以完成指定的功能。
PrivateSubtxtAge_BeforeUpdate(CancelAsInteger)
IfMe!
txtAge=""OrLen(Me!
txtAge)Then'数据为空时的验证
MsgBox"年龄不能为空!
",vbCritical,"警告"
Cancel=True '取消BeforeUpdate事件
ElseIfIsNumeric(Me!
txtAge)=FalseThen
'非数值数据输入的验证
MsgBox"年龄必须输入数值数据!
",vbCritical,"警告"
Cancel=True '取消BeforeUpdate事件
ElseIfMe!
txtAge<15OrMe!
txtAge___>30___Then'非法范围数据输入的验证
MsgBox"年龄为15-30范围数据!
",vbc,"警告"
Cancel=True '取消BeforeUpdate事件
Else
MsgBox"数据验证OK!
",vbInformation,"通告"
EndIf
EndSub
30、2009.9(25)执行语句:
MsgBox”AAAA”,vbOKCancel+vbQuetion,“BBBB”之后,弹出的信息框
A)标题为“BBBB”、框内提示符为“惊叹号”、提示内容为“AAAA”
B)标题为“AAAA”、框内提示符为“惊叹号”、提示内容为“BBBB”
C)标题为“BBBB”、框内提示符为“问号”、提示内容为“AAAA”
D)标题为“AAAA”、框内提示符为“问号”、提示内容为“BBBB”
31、2009.9(26)窗体中有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
32、2009.9(35)下列过程的功能是:
通过对象变量返回当前窗体的Recordset属性记录集引用,消息框中输出记录集的记录(即窗体记录源)个数
SubGetRecNum()
DimrsAsObject
Setrs=Me.Recordset
MsgBox
EndSub
程序空白处应填写的是:
A)Count B)rs.Count C)RecordCount D)rs.RecordCount
33、2009.9(填13)“学生成绩”表含有字段(学号,姓名,数学,外语,专业,总分)。
下列程序的功能是:
计算每名学生的总分(总分=数学+外语+专业)。
请在程序空白处填入适当语句,使程序实现所需要的功能。
PrivateSubCommand1_Click()
Dimcn AsNewADODB.Connection
Dimrs AsNewADODB.Recordset
Dimzongfen AsNewADODB.Fileld
Dimshuxue AsNewADODB.Fileld
Dimwaiyu AsNewADODB.Fileld
Dimzhuanye AsNewADODB.Fileld
DimstrSQL As Sting
Setcn=CurrentProject.Connection
StrSQL=“Select*from成绩表”
rs.OpenstrSQL,cn,adOpenDynamic,adLockptimistic,adCmdText
Setzongfen=rs.Filelds(“总分”)
Setshuxue=rs.Filelds(“数学”)
Setwaiyu=rs.Filelds(“外语”)
Setzhuanye=rs.Filelds(“专业”)
Dowhile Notrs.Eof
Zongfen=shuxue+waiyu+zhuanye
Rs.Update
rs.MoveNext
Loop
rs.close
cn.close
Setrs=Nothing
Setcn=Nothing
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 笔试练习9 VBA数据库编程 答案 笔试 练习 VBA 数据库 编程