1、循环结构问题引入 你有过等交通信号灯的经历吗？每隔一定的时间，红、黄、绿就变换一次，这就是？列表框 WhileWend语句1 Do whileLoop语句2 ForNext语句3循环结构循环结构概述循环结构概述 当重复进行某件事时，就可用循环结构。在循环结构中将某些语句重复执行若干次，这些语句称为循环体；每重复一次都要判断是继续重复还是停止重复，这个判断所依据的条件称为循环条件；循环体与循环条件一起构成了循环结构。WhileWend语句【格式】While Wend表达式真？循环体语句真(非0)假(0)WhileWend语句 当“表达式”成立（为True）时，反复执行循环体语句，当“表达式”不成
2、立（为False），则执行Wend语句后面的语句。【功能】“表达式”指的是什么？WhileWend语句可以是：任何表达式常用的有：关系表达式、逻辑表达式 While x=65 WendWhile x0 And x6 WendWhileWend语句【应用】利用循环结构：计算1+2+3+.+99+100=?Private Sub Command1_Click()Dim s As Integer,i As Integer s=0 While i=100 s=s+i i=i+1 Wend Print sEnd Sub规划：“i=100”成立时进行循环。i 就是循环控制变量。Do WhileLoop语句
3、【格式】Do While Loop 当“表达式”成立（为True）时，反复执行循环体语句，当“表达式”不成立（为False），则执行Loop语句后面的语句。Do WhileLoop语句【应用】输出1-50之间可以被7整除的数。规划：“i=50”成立时进行循环。被7整除：i mod 7=0Private Sub Command1_Click()Dim i As Integer i=1 Do While i=50 If i Mod 7=0 Then Print i End If i=i+1 LoopEnd SubForNext语句【格式】For =To Step Next Step省略，则表示步长
4、为1。ForNext语句 循环变量是一个数值型的变量，而初值、终值、步长可是数值型的值或表达式。在默认省略状态下，step为1。当“步长=0”，“终值=初值”时，递增循环。当“步长0”，“终值=初值”时，递减循环。【说明】ForNext语句【应用】利用ForNext语句 计算n!Private Sub Command1_Click()n=Val(Text1.Text)k=1 For i=1 To n k=k*i Next i Text2.Text=kEnd SubForNext语句循环部分也可以写成如下形式：For i=n To 1 step-1 k=k*i Next iForNext语句【应用】输出9*9表。Private Sub Command1_Click()For num=1 To 9 For i=1 To num Print i;*;num;=;num*i;Next i Print Next numEnd Sub循环应用 小明有10本书，你来设计一个小程序，找出书价最低的书，想一想，如何实现?总总 结结 当重复进行某件事时，就可用循环结构。常用的循环语句有三种。循环结构是程序设计基本结构之一。
