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本书,你来设计一个小程序,找出书价最低的书,想一想,如何实现?总总 结结 当重复进行某件事时,就可用循环结构。常用的循环语句有三种。循环结构是程序设计基本结构之一。