Visual Basic程序设计简明教程王晓东电子教案 第5章.ppt

第5章 循环结构 本章内容： ? While语句 ? Do-Loop语句 ? For-Next语句 ? 流程转向语句 ? 循环嵌套 ? 循环算法 ? 图片框 ? 图像框 ? 计时器 5.1 While语句 说明： （1）循环语句的表达式一般是关系或者逻辑表达式，以构成循环条件。如果是算术表达式，则按照“非0为真”的原则，把算术表达式的值转换为逻辑值。 （2）应该把需要重复执行的语句组成循环体。 （3）如果在循环之前需要先判断条件，则采用while语句较为合适。 例5.1 1+2+3+4+5+…+100=？ Private Sub Command1_Click( ) Dim i As Integer, sum As Integer i = 1 循环初值 sum = 0 While i = 100 循环条件 sum = sum + i 循环体 i = i + 1 Wend Print sum=; sum End Sub 5.2 Do-Loop语句 （1）Do While-Loop Do While 表达式 循环体 Loop Do-Loop While Do-Loop While的循环条件位于循环语句的后面，属于“直到型”循环，不断地执行循环体，直到循环条件不成立为止。 说明： 例5.2 1+2+3+4+5+…+100=？ 5.3 For-Next语句 For 循环变量=初值 To 终值 [Step 步长] 循环体 Next [循环变量] 说明 ： （1）步长一般是正数，应该满足初值≤终值。如果步长为负数，则应该满足终值≤初值。如果省略Step，则步长的默认值是1。 （2）循环变量的类型必须是数值型，初值、终值和步长的类型都自动转换为循环变量的类型。循环次数=Int((终值-初值)/步长)+1。 （3）如果事先知道循环次数，则采用For-Next语句较为合适。 例5.3 1+2+3+4+5+…+100=？ Private Sub Command3_Click() Dim i As Integer, sum As Integer sum = 0 循环初值 For i = 1 To 100 循环条件 sum = sum + i 循环体 Next i Print sum=; sum End Sub 5.4 流程转向语句 有时遇到特殊情况，需要提前跳出循环，这时可以使用流程转向语句来实现。 VB语言提供了Exit语句，它往往与If语句配合使用，增加了循环语句的出口，从而增强了程序的灵活性。 5.4 流程转向语句——Exit语句 Exit语句可以出现在Do-Loop语句和For-Next语句中，作用是跳出本层循环结构，转去执行下面的语句。 其一般形式为Exit Do和Exit For，前者用于跳出Do-Loop语句，后者用于跳出For-Next语句。 如果累加和超过4000，则停止计算。 Do If sum 4000 Then Exit Do End If sum = sum + i i = i + 1 Loop While i = 100 5.4 流程转向语句——Exit For For i = 1 To 100 If sum 4000 Then Exit For End If sum = sum + i Next i 5.5 循环嵌套 循环嵌套又称为多重循环，是指在一个循环结构的循环体中又包含另一个完整的循环结构。 通常把嵌套在循环体内的循环结构称为内循环，把外层的循环结构称为外循环。 在程序中一般把最内层循环的总循环次数作为多重循环的循环次数。 例5.5 打印九九乘法口诀表 Private Sub Command1_Click() Dim i As Integer, j As Integer, s As String For i = 1 To 9 控制输出行 For j = 1 To i 输出该行的内容 s = j × i = i * j Print Tab(j * 10); s; Next j Print