计算机数据库(经济会计类)九讲 VBA程序设计随堂讲义.ppt

例9.12 窗体上有一命令按钮Command1，在其Click事件过程编写代码。用While…Wend语句求1到100的自然数的和。要求用MsgBox函数输出计算结果。 Private Sub Command1_Click() Dim i As Integer, S As Integer i = 1 While i = 100 S = S + i i = i + 1 Wend MsgBox 1到100的自然数的和为： S End Sub 例9.13 窗体上有一个命令按钮Command1，在其Click事件过程编写代码。分别用For…Next语句输入数组，用Do While…Loop输出数组。要求用InputBox函数输入数组元素的每个值，用MsgBox函数分别显示每个输入的数组元素。 Private Sub Command1_Click() Dim i As Integer,j As Integer Dim n(1 To 4) As String For i = 1 To 4 n(i) = InputBox(请输入第 i 位同学的姓名:) Next i j = 1 Do While j= 4 MsgBox n(j) j = j + 1 Loop End Sub 过程创建和调用: 过程是由一系列可以完成某项指定的操作或计算的语句和方法组成，可将其理解为装有VBA程序代码的容器。过程通常分为： Sub过程(子过程)、Function过程(函数)等。 窗体中的模块(声明及过程代码) 过程 过程 窗体 窗体控件 声明 (1) 子过程 Sub过程（又称子过程）以关键词Sub开始，以End Sub结束，其定义语句语法格式为： [Public|Private] [Static] Sub 子过程名([形参]) [As 数据类型] [子过程语句] [Exit Sub] [子过程语句] End Sub Private Sub ABC(x,y) As Integer ……. End Sub 例: Private Sub Command1_Click() Text1.SetFocus Text1.Text = 您 好 End Sub 子过程不返回任何值。选用关键字Public可使该过程能被所有模块的所有其他过程调用。选用关键字Private则只能被同一模块的其他过程调用。 (2) 函数过程 函数也是一种过程，是一种特殊的、能够返回值的过程。函数过程以关键字Function开始，以End Function结束，其定义语句语法格式为： [Public|Private] [Static] Function 函数过程名([形参]) [As 数据类型] [函数过程语句] [函数过程名=表达式] [Exit Function] [函数过程语句] [函数过程名=表达式] End Function 例: Public Function V(r As Single) As Single V=4/3*3.14 * r ^2 End Function Private Function ABC(x,y) ……. End Function 2. 函数过程的调用 函数过程的调用是将函数过程返回值赋给某个变量，格式为： 变量=函数过程名([实参列表]) 多个实参之间用逗号分隔。“实参列表”必须与形参保持个数相同，位置与类型一一对应，实参可以是常量、变量或表达式。调用函数过程时，把实参的值传递给形参，称为参数传递。 例如: a=5 X=V(a) Public Function V(r As Single) As Single V=4/3*3.14 * r ^2 End Function 例: 在窗体对象中，使用函数过程实现任意半径的圆面积计算，当输入圆半径值时，计算并显示圆面积。 在窗体中添加2个文本框控件，其标题分别设为：半径、圆面积。2个文本框名字分别设为：SR、SS。创建一个命令按钮，其标题设为“计算” 。 在按钮Click事件过程中，加入如下代码： Private Sub command1_Click() me!SS=Area(me!SR) E