循环结构程序设计().pptVIP

第4章 循环结构程序设计 本章内容 循环结构 用For-Next语句实现循环结构 用While语句实现循环结构 用Do 语句实现循环结构 嵌套的循环结构 循环结构 以重复执行s=s+2为例，用所有语句描述。区别循环次数确定与不确定的循环；当型与直到型循环 用For-Next语句实现循环结构 语句形式： For 循环变量=初值 to 终值 [Step 步长] [循环体] [Exit For] [循环体] Next 循环变量 用For-Next语句实现循环结构 2．语句说明： 循环变量必须为数值型。 当步长为正时，初值小于终值，反之初值大于终值；步长缺省时为1。 循环体由一条或多条语句组成。 执行到Exit For语句时退出循环，执行For语句的下一语句。 循环次数： 这里int为取整。 用For-Next语句实现循环结构 语句执行过程： 用For-Next语句实现循环结构 【实例4.1】求1+2+3+……+n的和。窗体界面如图4-2 实例4.1 编写代码分析 求1+2+3+……+100和的过程可以描述如下： Sum=Sum+1 Sum=Sum+2 Sum=Sum+3 …… Sum=Sum+100 实例4.1 编写代码 “计算”按钮完整代码: Private Sub cmdcal_Click() Dim i As Integer, sum As Long, n As Long n = Val(txtn.Text) For i = 1 To n sum = sum + i Next i txtsum.Text = sum End Sub 实例4.1 编写代码 “计算结果”框架中的标签（labn）内容随输入值变化的代码： Private Sub txtn_Change() labn.Caption = 1+2+3……+ txtn.Text End Sub 1*2*3……*100 Private Sub cmdCal_Click() Dim Fac As Integer Dim i As Integer Fac=1 For i = 1 To 100 Fac = Fac * i Next i lblSum.Caption = Fac End Sub 1！+2！+3！+……+15! Private Sub cmdCal_Click() Dim Fac As long, sum As long Dim i As Integer Fac=1 For i = 1 To 15 Fac = Fac * i sum=sum+Fac Next i lblSum.Caption = sum End Sub 用While语句实现循环 语句形式： While 条件 [循环体] Wend 语句说明： “条件”一般为条件表达式，结果为布尔变量True或False。“条件”用于控制“循环体”是否执行。多用于循环次数不定的情况。 用While语句实现循环 语句执行过程： 用While语句实现循环 Private Sub cmdCal_Click() Dim sum As Integer：Dim i As Integer i = 1:sum=0 while i = 100 sum = sum + i i = i + 1 wend lblSum.Caption = sum End Sub 用While语句实现循环 【实例4.2】实现1*2*3*……*n的操作，当阶乘值5000时结束操作。 实例4.2 编写代码 Private Sub cmdcal_Click() Dim i As Integer，fac As Long i = 1 fac = 1 While fac = 5000 fac = fac * i i = i + 1 txtcyc.Text = i txtfac.Text = fac Wend End Sub 用do语句实现循环 语句形式1： Do [While 或Until 条件] [‘满足某条件时 Exit Do] [语句体] Loop 用do语句实现循环 语句形式2： Do [语句体] [‘满足某条件时 Exit Do] [语句体] Loop [While 或Until 条件] 用do语句实现循环 用do语句实现循环 Private Sub cmdCal_Click()