14.模块8-2教案.ppt

For循环语句，一般用于循环次数已知情况。若循环变量在循环体内没有其他改变其值的语句，则其循环计算方法可以确定为： 循环次数 例1: For I 2 To 13 Step 3 Print I Next I Print “I “, I 循环次数？输出结果？ 循环执行次数： 输出I的值分别为: 2 5 8 11 循环结束，输出为: I 14 例2: For I 2 To 13 Step 2 Print I I I * 2 Next I Print “I “, I 循环次数？输出结果？ 循环执行次数： 2 输出I的值分别为: 2 6 循环结束，输出为: I 14 8.3 VBA程序设计 例：显示Fibonacci数列的第15个元素 （Fibonacci数列的前两个数都是1，从第3个数开始，每个数都是前两个数之和。） （1）建立文本框→名称为t1→建立命令按钮→名称为c1。 （2）c1的click事件代码： Dim f 15 As Integer f 1 1：f 2 1 For i 3 To 15 f i f i - 1 + f i - 2 Next t1 f 15 8.3 VBA程序设计 循环的嵌套——多重循环结构：如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，嵌套的层数可以根据需要而定。以下是各种嵌套循环的示例： （1）For I …. ….. For J …. …. Next J ….. Next I （2）For I …. ….. Do While/Until …. …. Loop ….. Next I （3）Do While…. ….. For J …. …. Next J ….. Loop （4）Do While/Until…. ….. Do While/Until …. …. Loop ….. Loop 8.3 VBA程序设计 对于循环的嵌套，要注意以下几点： 1 内循环变量与外循环变量不能同名； 2 外循环必须完全包含内循环，不能交叉； 3 不能从循环体外转向循环体内，也不能从外循环转向内循环。 正 确 错 误 For ii 1 To 10 For ii 1 To 20 … Next ii Next ii For ii 1 To 10 For jj 1 To 20 … Next jj Next ii For ii 1 To 10 For jj 1 To 20 … Next ii Next jj For ii 1 To 10 … Next ii For ii 1 To 10 … Next ii 8.3 VBA程序设计 　　4、其他语句 ：除了前面所学的一些重要语句格式，我们还了解几个其他常见的语句。 8.3 VBA程序设计 ⑴ Goto 语句 其形式为： GoTo 标号|行号 作用是无条件地转移到标号或行号指定的那行语句。由于goto语句破坏了程序的逻辑顺序，一般不建议使用。 If Number 1 Then GoTo Line1 Else GoTo Line2 Line1: ’ 标号1 MyString Number equals 1“ Line2: ’ 标号2 MyString Number equals 2 8.3 VBA程序设计 例8-5：右边的例子是使用 Exit 语句退出 For...Next 循环、Do...Loop 循环及子过程。 ⑵ Exit 语句 用于退出 Do...Loop、For...Next、Function或Sub代码块。 对应的使用格式为：Exit Do、Exit For、Exit Function、Exit Sub。分别表示退出DO循环、For循环、函数过程、子过程。 Private Sub Form_Click Dim I%, Num% Do 建立无穷循环。 For I 1 To 100 循环 100 次。 Num Int Rnd * 100 生成一个0~99的随机数。 Select Case Num Case 10: Exit For 退出 For...Next 循环。 Case 50: Exit Do 退出 Do...Loop 循环。 Case 64: Exit Sub 退出子过程。 End Select Next I Loop End Sub 8.3 VBA程序设计 8.3 VBA程序设计 例8-6：请把标签MyLabel高度设为2000，宽度设为2000，