第8章模块与VBA程序设计讲述.ppt

例8-11 假设我国现在的人口为13亿，若年增长率为r＝1.5%，试计算多少年后我国人口增加到20亿。人口计算公式为“p＝p0 (1＋r)n”，其中p0为人口初始值，r为增长率，n为年数。 程序片段如下。 Dim p As Single, r As Single, i As Integer p = 13 r = 0.015 i = 0 Do While p 20 p = p * (1 + r) i = i + 1 Loop MsgBox i 年后，我国人口将达到 p 亿 3．For Each…Next语句 For Each…Next语句是对于数组中的每个元素或对象集合中的每一项重复执行一组语句，这在不知道数组或集合中元素的数目时非常有用，其语法格式如下： For Each 元素名 In 名称 循环体 Next [元素名] 其中，元素名是用来枚举数组元素或集合中所有成员的变量。对于数组，元素名只能是Variant变量。对于集合，元素名可能是Variant变量、Object变量等。名称是指数组或对象集合的名称。 例8-12 计算 Sub ForEach() Dim a(1 To 10) As Long Dim result As Long, t As Long Dim i As Integer, x As Variant result = 0 t = 1 For i = 1 To 10 求阶乘并存入数组a中 t = t * i a(i) = t Next i For Each x In a 利用For Each…Next语句控制数组元素，实现累加 result = result + x Next x Debug.Print 1!+2!+3+……+10!= result End Sub 的值。 8.3.4 辅助控制 1．GoTo控制语句 GoTo语句无条件地转移到过程中指定的行，其语法格式如下： GoTo 行号 2．Exit语句 Exit语句用于退出Do循环、For循环、Function过程、Sub过程或Property过程代码块，相应地它包括Exit Do、Exit For、Exit Function、Exit Sub和Exit Property几个语句。 下面示例代码使用Exit语句退出Do循环、For循环及Sub子过程。 Sub ExitDemo() Dim i, RndNum Do 建立循环，这是一个无止境的循环 For i = 1 To 1000 循环1000次 RndNum = Int(Rnd * 1000) 生成一个随机数 Select Case RndNum 检查随机数 Case 7: Exit For 如果是7，退出For循环 Case 9: Exit Do 如果是9，退出Loop循环 Case 10: Exit Sub 如果是10，退出子过程 End Select Next i Loop End Sub 8.4 VBA过程 8.4.1 子过程与函数过程 过程必须先声明后调用，不同的过程有不同的结构形式和调用格式。 1．子过程 （1）子过程的声明 子过程的声明格式如下： Sub 子过程名([形式参数列表]) [局部常量或变量的定义] [语句序列] [Exit Sub] [语句序列] End Sub （2）子过程的创建 子过程的创建有以下两种方法： ①在VBE的工程资源管理器窗口中，双击需要创建的过程窗体模块或报表模块或标准模块，然后选择“插入”→“过程”命令，打开“添加过程”对话框，然后根据需要设置参数。 ②直接在窗体模块、报表模块或标准模块的代码窗口中，输入“Sub 子过程名”，然后按Enter键，自动生成过程的起始语句和结束语句。 （3）子过程的调用 子过程的调用有两种方式，一种是利用Call语句来调用，另一种方法是把过程名作为一个语句来直接调用。 利用Call语句调用子过程的语法格式如下： Call 过程名([实际参数列表]) 利用过程名作为语句的子过程调用方法如下： 过程名 [实际参数列表] 实际参数列表简称为实参，它与形式参数的个数、位置和类型必须一一对应，调用时把实参的值传递给形参。 例8-13 编写一个求n!的子程序，然后调用它计算 程序如下： Sub Factor1(n As Integer, p