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

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

* * * * * * * * * * * * * * * * * * * * * * * * * *

C) * * * * D) * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

解析：典型的循环结构，For…Next语句的执行步骤见考点9，按其步骤执行最后结果是A。

32．在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下： Option Compare Database

Dim a As String*10 ‘a为字符型变量，其长度为10，作用域为模块 Private Sub Commandl_Click()

a=\‘a=“■■■■■■1234” b=Len(a) Me.Lhl.Caption=b End Sub

打开窗体后单击命令按钮，‘窗体中显示的内容是——。(2007年9月) A)4 B)5 C)10 D) 40

解析：DimaAsString * 10定义a为定长为10的字符串，Len(a)的值就是10，所以b的值也是10，最后窗体中显示的内容为10。

33．在窗体中有一个标签Label0，标题为“测试进行中”；有一个命令按钮Commandl，事件代码如下：

Private Sub Commandl_Click() ‘后执行 LabelO.Caption=\标签\ End Sub

Private Sub Form_Load() ‘先执行 Form.Caption=\举例\

Commandl.Caption=\移动\ End Sub

注意：窗体事件：格式举例：form_open Open 打开：

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

Close 关闭 ：

Load 加载： 当窗体打开时，并且显示了它的记录时发生，显然此事件发生在

Open之后。

Unload 卸载：当窗体关闭时，且记录被卸载，从屏幕上消失之前发生，此事件在Close之前发生。

Resize 调整大小：窗体第一次显示时发生。

解析：本题所给命令按钮的事件为，单击命令按钮时标签信息显示“标签”，运行窗体显示“举例”，命令按钮显示“移动”，因此D正确。 二、填空题

1．数据结构分为逻辑结构和存储结构，循环队列属于逻辑结构。(2005年9月) 解析：所谓数据的逻辑结构是指反映数据元素之间逻辑关系的数据结构，它在计算机存储空间中的存放形式称为数据的存储结构(也称数据的物理结构)。在数据的存储结构中，不仅要存放各数据元素的信息，还需要存放各数据元素之间的前后件关系的信息。而所谓循环队列，就是将队列存储空间的最后一个位置绕到第一个位置，形成逻辑上的环状空间，供队列循环使用。因此，循环队列不需要存放元素

A B

C

D

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

之间的前后件关系，所以它属于逻辑结构。

2．建立了一个窗体，窗体中有一个命令按钮，单击此按钮，将打开一个查询，查询名为“qT'，，如果采用VBA代码完成，应使用的语句是Docmd.OpenQuery＂qT＂。(2005年9月) ? Docmd对象：

1.打开窗体操作：Docmd.OpenForm formname 例：Docmd.OpenForm ＂VB1＂

2.打开报表操作：Docmd.OpenReport reportname 例：Docmd. OpenReport ＂1报表的结构＂

3.关闭操作：Docmd.Close [objecttype][,objectname]

例1： Docmd.Close acForm ＂VB1＂ ‘关闭窗体：VB1

例2： Docmd.Close acReport ＂报表１＂ ‘关闭报表：报表１ 例３： Docmd.Close ‘关闭当前窗体 例4： Docmd.Quit ‘退出Access系统 解析：在Access中，可以使用Docmd对象的RunMacro方法从VBA代码过程中运行宏。由于打开查询的宏操作为OpenQuery，所以从VBA中打开查询qT的代码为Docmd.OpenQuery＂qT＂。 3．设有以下窗体单击事件过程：

Private Sub Form_Click() a=1

For i=1 To 3 Select Case i Case 1，3 a=a+1 Case 2，4 a=a+2 End Select Next i

MsgBox a End Sub

打开窗体运行后，单击窗体，则消息框的输出内容是５．(2005年9月) 解析：SelectCase结构运行时，首先计算“表达式’，的值。它可以是字符串或者数值变量或表达式。然后，会依次计算测试每个Case表达式的值，直到值匹

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

配成功，程序会转入相应的Case结构内执行语句。本题中，当i=1和3时，执行a=a+1，当i=2时，执行a=a+2，所以a：1十l十2十1=5。

4．在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为text1)，然后编写如下事件过程：

Private Sub Commandl_Click()

Dim x As Integer，y As Integer，z As Integer x=5：y=7：z=0 Me!Text1=\ Call P1(x，y，z) Me!Textl=z End Sub

Sub pl(a As Integer，b AsInteger，c As Integer) c=a+b End Sub

打开窗体运行后，单击命令按钮，文本框中显示的内容是12。(2005年9月) 解析：由于VBA中，默认情况下，参数是按地址传递(ByRef)，结果会返回。本题中z的值等于x／y，所以文本框中显示的内容为12。

5．有一个VBA计算程序的功能如下，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为Textl、Text2、Text3和Text4，3个按钮分别为清除(名为Commandl)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击“清除”按钮，则清除所有文本框中显示的内容；单击“计算”按钮，则计算在Textl、Text2和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4女本框中；单击“退出”按钮则退出。试将下列程序填空补充完整。(2005年9月)

Private Sub Commandl_Click( ) Me!Textl=\ Me!Text2=\ Me!Text3=\ Me!Text4=\ End Sub

Private Sub Command2_Click( )

If Me!Textl=\ MsgBox \成绩输入不全\ Else

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

Me!Text4=Val(Me!Text1)+Val(Me!Text2)+Val(Me!Text3))／3 If End

End Sub

Private SubCommand3_Click( ) Docmd.Quit End Sub

解析：由题目可知，Text4中存放的是3科成绩的平均成绩，所以要把3个科目的成绩加起来除以3，因此第1个空应该填Val(Me!Textl)，获得输入科目的成绩；If…Else…End lf语句中，缺少结束语句，所以第2个空应该填End If Command3的功能是退出，而退出有两种，一种是退出窗体，一种是退出Access，如果是退出窗体，则使用Close方法，如果是退出Access，则使用Quit方法。 6．在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序： Private Sub Commandl_Click() Dim s，I As integer S=0

For …… 此处隐藏：1909字，全部文档内容请下载后查看。喜欢就下载吧 ……