第5部分小课循环结构程序设计.pptVIP

本章内容 循环结构 用For-Next语句实现循环结构 用Do While-Loop语句实现循环结构 嵌套的循环结构 列表框 组合框 常用算法 循环是指在指定的条件下多次重复执行一组语句 被重复执行的一组语句称为循环体 VB提供的循环语句有 For...Next Do...Loop While...Wend For Each...Next 最常用的是For...Next和Do...Loop语句 循环结构 用For-Next语句实现循环结构 语句形式： For 循环变量=初值 to 终值 [Step 步长] [循环体] [Exit For] [循环体] Next 循环变量 用For-Next语句实现循环结构 2．语句说明： 循环变量必须为数值型。 当步长为正时，初值小于终值，反之初值大于终值；步长缺省时为1。 循环体由一条或多条语句组成。 执行到Exit For语句时退出循环，执行For语句的下一语句。 循环次数： 这里int为取整。 用For-Next语句实现循环结构 语句执行过程： 用For-Next语句实现循环结构 【实例】求1+2+3+……+n的和。窗体界面如图 实例 代码编写分析 求1+2+3+……+100和的过程可以描述如下： Sum=Sum+1 Sum=Sum+2 Sum=Sum+3 …… Sum=Sum+100 实例 代码编写 “计算”按钮完整代码: 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 实例 代码编写 “计算结果”框架中的标签（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 循环结构程序的实现 算法：通常采用重复运算来解决问题 累加、累乘等 如用级数 π/4＝1 - 1/3 + 1/5 - 1/7 + ……来求π 设置循环变量 使每次运算变量值有所不同 控制循环 计数控制或条件控制 采用Print直接在窗体上输出结果，程序代码如下： Private Sub Form_Load() Show Dim pi As Single, c As Integer, s As Integer pi = 0 s = 1 s表示加或减运算 For c = 1 To 10000 Step 2 pi = pi + s / c s = -s 交替改变加、减号 Next c