笔试练习9VBA数据库编程答案.docx

笔试练习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的单击事件过程中，正确的是：

Ａ）privatesubCommand1_Click（）

　　Command2.Visible=true

　　Command3.Visible=false

Ｂ）privatesubCommand1_Click（）

　Command2.Enable=true

　　Command3.Enable=false

Ｃ）privatesubCommand1_Click（）

　　Command2.Enable=true

　　Command3.Visible=false

Ｄ）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