[理学]6 第三章循环结构.ppt

循环结构 For Next 语句 Do While….Loop 语句 Do…Loop While语句 Do…Loop Until语句 循环嵌套 For…Next 语句 语法格式： For 循环控制变量=初值 To 终值 [step 步长] 语句块 [Exit For] 语句块 Next [循环变量] 说明 （1）循环控制变量是数值型变量，为循环计数。 （2）“初值”、“终值”、“步长”均为数值型表达式。初值决定循环变量的初始状态；终值决定循环何时结束；步长决定循环变量的变化方式。 （3）Step子句省略时约定步长为1。 （4）Next后的循环控制变量可以省略。 （5）中间的语句块为循环体，循环体的执行次数可由下列公式计算： 执行过程： 例：s=1+2+3+…+100 S=0,i=1 Re : if i =100 then s=s+i i=i+1 goto Re end if 例：输出图案 例：输出图案 ? Private Sub Form_Click() Dim i As Integer : Picture1.Cls? For i = 1 To 7 Step 2??? Picture1.Print Tab(8 - i); String(i, ☆)? Next i? For i = 5 To 1 Step -2??? Picture1.Print Tab(8 - i); String(i, ☆)? Next iEnd SubPrivate Sub Form_Resize()? Picture1.Left = (Form1.Width - Picture1.Width) / 2? Picture1.Top = (Form1.Height - Picture1.Height) / 2 - 200 End Sub 例：输出图案 Form1.Cls Dim i As Integer For i = 1 To 4 Step 1 Print Tab(4 - i + 1); String(2 * i - 1, *) Next i For i = 3 To 1 Step -1 Print Tab(4 - i + 1); String(2 * i - 1, *) Next i Do While…Loop 语句 语法格式： Do While 条件表达式 语句块 [Exit Do] 语句块 Loop 说明 条件表达式可以是关系表达式或逻辑表达式，其值是一个逻辑值；也可以是一个数值表达式，此时0为false 非0为true Exit语句用于强制退出循环 Exit语句可出现在循环体的任何位置 在循环体中应有对循环条件进行修正的语句，以免进入死循环 当型循环 ---执行过程： 当型循环 例：小球从100米高度落下，每次弹起的高度为原来的一半，问小球弹起多少次后停止？ Private Sub Form_Click() Dim h As Integer Dim i As Long h = 100 Do While h 0 h = h / 2 i = i + 1 Loop Print i Print h End Sub 例：计算前N个数的和，使所求的和为小于1000的最大值，要求显示出前几个数的和为多少 Private Sub Form_Click() Dim n As Integer, s As Integer s = 0: n = 0 Do While s 1000 n = n + 1 s = s + n Loop s = s - n n = n - 1 Print 前“ ; n ; 个自然数的结果为“ ; s End Sub Do …Loop While 语句 语法格式： Do 语句块 [Exit Do] 语句块 Loop While 条件表达式 当型循环2--执行过程： 例：计算前N个数的和，使所求的和为小于1000的最大值，要求显示出前几个数的和