VBA理 论 练 习 题 第 6 页 共 43 页
c=a+b End Sub
打开窗体后，单击命令按钮，文本框中显示的内容是12 23．在下面的VBA程序段运行时，内层循环的循环次数是9
For m=0 To 7 Step 3 For n = m-1 To m+1 Next n Next m
24．在窗体中使用一个文本框(名为numl)接受输入值，有一个命令按钮run，单击事件代码如下
Private Subrun_Click() If Me!num1>=60 Then Result=＂及格＂
Else If Me!numl>70 Then
Result=＂通过＂
Else If Me!numl>85 Then
Result=＂合格＂
End Sub
打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是及格。 25．在窗体中有一个名为Command25的命令按钮，Click事件代码如下。该事件的完整功能是：接受从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。请依据上述功能要求将程序补充完整。 Private Sub Command25_Click() Max=0 max_n=0
For i=l To 10
num=Val(InputBox(＂请输入第＂& i &＂个大于0的整数：＂)) If num>max Then max=num
max_n=i
End If Next i
MsgBox(\最大值为第\个输入的\ End Sub
VBA理 论 练 习 题 第 7 页 共 43 页
第二部分（数据库编程＜习题９＞）（p7～p13）
一、选择题（1～9）(p7---p8)
1．以下内容中不属VBA提供的数据验证函数是
A)IsNull B)IsDate C)lsNumeric D)IsText
2．VBA\定时”操作中，需要设置窗体的“计时器间隔(TimerInterval)”属性值。其计量单位是
A)微秒 B)毫秒 C)秒 D)分钟
3．能够实现从指定记录集里检索特定字段值的函数是 A)Nz B)DSum C)Rnd D)DLookup 4．DAO模型层次中处在最顶层的对象是
A)DBEngine B)Workspace C)Database D)RecordSet 5．ADO对象模型中可以打开RecordSet对象的是
A)只能是Connection对象 B)只能是Command对象 C)可以是Connection对象和Command对象 D)不存在 6．InputBox函数返回值的类型为
A)数值 B)字符串（错误） 注意：正确答案为D）
C)变体 D)数值或字符串(视输入的数据而定)InputBox$ 返回字符串 InputBox 返回数值或字符串 7．ADO的含义是
A)开放数据库互连应用编程接12 B)数据库访问对象 C)动态链接库 D)Active数据对象 8．执行下面的语句后，所弹出的信息框外观样式为 MsgBox＂AAAA＂，vbOKCancel+vbQuestion，＂BBBB＂ 注：vbQuestion等价于32
VBA理 论 练 习 题 第 8 页 共 43 页
A MsgBox(\B
MsgBox(\C D MsgBox(\MsgBox(\ 9．在MsgBox(prompt，buttons，title，hetpfite，context)函数调用形式中必须提供的参数是
A)prompt B)buttons C)title D)context 二、填空题（1～18）(p8---p13)：
1．VBA提供了多个用于数据验证的函数。其中IsDate函数用于合法日期验证；IsNumeric函数用于判定输入数据是否为数值。
2. VBA语言中，函数InputBox的功能是输入数据对话框；Msgbox函数的功能是显示消息信息。
3．VBA的“定时”操作功能是通过窗体的定时(Timer)事件过程完成。 4．VBA中打开窗体的命令语句是DoCmd.OpenForm。
5．Access的窗体或报表事件可以有两种方法来响应：宏对象和事件过程。 6．窗体的计时器触发事件激发的时间间隔是通过计时器间隔(或interval)属性来设置。
7．窗体中有两个命令按钮：“显示”(控件名为cmdDisplay)和“测试”(控件名为cmdTest)。当单击“测试”按钮时，执行的事件功能是：首先弹出消息框，若点击其中的“确定”按钮，则隐藏窗体上的“显示”按钮；否则直接返回到窗体中。请填空补充完整(见227)。
Private Sub cmdtest_Click()
VBA理 论 练 习 题 第 9 页 共 43 页
Answer=MsgBox (＂隐藏按钮?＂，vbOKCancel十vbQuestion，＂Msg＂) If Answer=vbOK Then Me!cmddisplay.Visible=False End If End Sub 注意：vbOKCancel等价于1 vbQuestion等价于32 8．设计一个计时的Access应用程序。该程序界面如图所示，由一个文本框(名为Textl)、一个标签及两个命令按钮(一个标题为Start，命名为Commandl；另一个标题为Stop，命名为Command2)组成。程序功能为：打开窗体运行后，单击“Start'’按钮，则开始计时，文本框中显示秒数；单击“Stop”按钮，则计时停止；双击“Stop”按钮，则退出。请填空补充完整。
Dim i as integer
Private Sub Commandl Click( ) i=0
Me.TimerInterval=1000 End Sub
Private Sub Command2_Click( ) Me.TimerInterval=0
End Sub
Private Sub Command2_DblClick(Cancel As Integer) DoCmd.Close End Sub
Private Sub Form_Load( ) Me.TimerInterval=0 Me!Text1=0 End Sub
Private Sub Form_Timer( )
VBA理 论 练 习 题 第 10 页 共 43 页
i=i+1 Me!Textl=i End Sub 9．要实现以下图示效果的消息框显示，VBA代码语句为MsgBox ＂数据处理结束！＂，vbinformation,＂消息＂ 10．VBA中主要提供了三种数据库访问接口：ODBC API、DAO、ADO。 11．DAO对象模型采用分层结构，其中位于最顶层的对象是DBEngine。
12．Access的VBA编程操作本地数据库时，提供一种DAO数据库打开的快捷方式是CurrentDB()．也提供一种ADO的默认连接对象是CurrentProject.Connection 13．DAO模型中，主要的控制对象有DBEngine、Workspace 、Database、 RecordSet Field和Error。
14．ADO对象模型主要有Connection、 Command 、RecordSet、 Field，而相应QueryDef和Error 5个对象。
15．已知一个为“学生”的Access数据库，库中的表“stud\存储学生的基本情况信息，包括学号、姓名、性别和籍贯。下面程序的功能是：通过窗体向stud表中添加学生记录。对应“学号”、“姓名”、“性别”和“籍贯”的4个文本框的名称分别为：tNo、tName、tSex和tRes。当点击窗体上的“增加”命令按钮(名称为Commandl)时，首先判断学号是否重复，如果不重复则向“stud\表中添加学生记录；如果学号重复，则给出提示信息。当点击窗体上的“退出”命令按钮(名称为Command2)时，关闭当前窗体。
依据要求功能，请将以下程序补充完整。
Private Sub Form_Load()
‘打开窗口时，连接Access数据库 Set ADOcn=CurrentProject.Connention
End Sub
Dim ADOcn As New ADODB.Connection Private Sub Commandl Click() ‘增加学生记录
Dim strSQL As String