第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