VBA理论练习题 - 图文(2)

VBA理 论 练 习 题 第 6 页 共 42 页

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 页 共 42 页

第二部分（数据库编程）

一、选择题（1～9）

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 页 共 42 页

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)。当单击“测试”按钮时，执行的事件功能是：首先弹出消息框，若点击其中的“确定”按钮，则隐藏窗体上的“显示”按钮；否则直接返回到窗体中。 Private Sub cmdtest_Click()

Answer=MsgBox (＂隐藏按钮?＂，vbOKCancel十vbQuestion，＂Msg＂) If Answer=vbOK Then

VBA理 论 练 习 题 第 9 页 共 42 页

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( ) i=i+1

Me!Textl=i

VBA理 论 练 习 题 第 10 页 共 42 页

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 …… 此处隐藏：1721字，全部文档内容请下载后查看。喜欢就下载吧 ……