第九章-VBA程序设计解读.ppt

例：窗体上有一个命令按钮Command1，在其Click事件过程编写代码。分别用For…Next语句输入数组，用Do While…Loop输出数组。要求用InputBox函数输入循环数组元素的每个值，用MsgBox函数分别显示每个输入的数组元素。 Private Sub Command1_Click() Dim i As Integer Dim n(1 To 4) As String For i = 1 To 4 n(i) = InputBox(请输入第 i 位同学的姓名:) Next i i = 1 Do While i = 4 MsgBox n(i) i = i + 1 Loop End Sub 过程调用: 过程有子过程、函数过程等类型。可将其理解为装有VBA程序代码的容器。 1. 函数过程的调用 函数过程的调用同标准函数的调用相同，格式如下： 函数过程名([实参列表]) 多个实参之间用逗号分隔。“实参列表”必须与形参保持个数相同，位置与类型一一对应，实参可以是常量、变量或表达式。调用函数过程时，把实参的值传递给形参，称为参数传递。 例: 在窗体对象中，使用函数过程实现任意半径的圆面积计算，当输入圆半径值时，计算并显示圆面积。 在窗体中添加2个标签控件，其标题分别设为：半径、圆面积。创建2个文本框控件，其名字分别设为：SR、SS。创建一个命令按钮，其标题设为“计算”，在其Click事件过程中，加入如下代码： Private Sub command1_Click() me!SS=Area(me!SR) End Sub 在窗体模块中，建立求解圆面积的函数过程Area()。代码如下： Public Function Area(r As Single) As Single If r = 0 Then MsgBox 圆面积必须为正值, vbCritical, 警告 Area = 0 Exit Function End If Area = 3.14 * r * r End Function 运行结果：当在半径文本框中输入数值数据时，单击“计算”按钮，将在圆面积文本框中显示计算的圆面积值。 2. 子过程的调用 函数过程的特点是具有返回值，但有时编写一个过程不是为了获得某个函数值，这时可以用过程调用的方法。 子过程的调用有两种方法，格式如下： Call 子过程名[(实参列表)] 和 子过程名[实参列表] 用Call关键字调用子过程时，若有实参，则必须把实参用圆括号括起来，无实参时可省略圆括号；不使用Call关键字，若有实参，也不需要用圆括号括起来。 例9.15 在窗体对象中，使用子过程实现数据的排序操作，当输入2个数值时，从大到小排列并显示结果。 Private Sub command1_Click() Dim a, b If Val(Me!Sx)Val(Me!Sy) MsgBox x值大于y值，不需要排序, vbInformation, 提示 Me!Sx.SetFocus Else a=Me!Sx b=Me!Sy Swap a, b Me!Sx=a Me!Sy=b Me!Sx.SetFocus End If End Sub 在窗体模块中，建立完成排序功能的子过程Swap。代码如下： Public Sub Swap(x, y) Dim t t=x x=y y=t End Sub 运行窗体，可实现输入数据的排序。 在上面的例子中，Swap(x, y)子过程定义了2个形参x和y，主要任务是从主调程序中获得实参（初值），又将结果返回给主调程序，而子过程名Swap是无值的。 (5) 对象运算符 对象运算符有“!”和“.”两种，使用对象运算符指示随后将出现的项目类型。 ① !运算符 “!”运算符的作用是指出随后为用户定义的内容。使用“!”运算符可以引用一个开启的窗体、报表或开启窗体或报表上的控件。 ② .运算符 “.”运算符通常用于引用窗体、报表或控件等对象的属性。引用格式为：[控件对象名].[属性名]。 在实际应用中，“.”运算符与“!”运算符配合使用，用于标识引用的一个对象或对象的属性。 例如，可以引用或设置一个打开窗体的某个控件的属性。 Forms![学生信息]![Command2].Enabled = False 该语