多媒体课件-《OFFICE高级应用和VBA》-第8周-循环结构.pptxVIP

西南财经大学天府学院 信息技术教学中心 循环结构 概念 循环结构：在程序中需要反复执行某个功能而设置的一种程序结构. 常见循环控制结构形式： For…Next 循环：按指定次数来重复执行循环体 While…Wend 循环：根据循环条件的值来确定是否执行循环 Do 型循环：Do…Loop形式 GoTo型循环：跳转 概念 一、For…Next循环 功能：当循环变量的值在终值界定的范围之内，继续循环。一旦超出，则退出循环。 循环变量=终值 循环体 真 假 循环变量=初值 循环变量=循环变量+步长 案例学习 Sub For循环() Dim i As Integer With Sheets(Sheet1) For i = 1 To 200 If .Cells(i, 2) = 0 Then .Cells(i, 2).EntireRow.Delete End If Next End With End Sub 在工作表“Sheet1”的前 200 行中，如果第 2 列单元的值为0，则删除所在行 课堂作业 P94页题 （12）、（15） 概念 二、While…Wend循环 功能：在进入循环之前，先判断循环条件， 如果条件为 True，则执行循环体，循环体执行完以后再次判断循环条件，如果条件为 False，则退出 While 循环。 循环变量=终值 循环体 真 假 循环变量=初值 循环变量=循环变量+步长 案例学习 Sub While循环() Dim i As Integer With Sheets(Sheet1) i = 1 while i=20 If .Cells(i, 2) = 0 Then .Cells(i, 2).EntireRow.Delete End If i=i+1 Wend End With End Sub 在工作表“Sheet1”的前 200 行中，如果第 2 列单元的值为 0，则删除所在行 课堂作业 使用For和While循环两种形式实现对于下述分数的等级设定，如果分数大于等于90，则在对应行的等级列，输出“优秀”；如果分数大于等于80，则在对应行的等级列，输出“良好”；如果分数大于等于70，则在对应行的等级列，输出“中等”；其它，则在对应行的等级列，输出“较差” 概念 三、Do型循环 Do 循环是在执行循环体之前先进行判断，条件成立才进入循环体的执行 Do 循环是先执行一次循环体后判断循环条件，当条件正确再进入循环体。 概念 三、Do型循环 While 属于“当型循环”，与循环条件相结合表示当循环条件成立，条件表达式的值为 True，才进行循环体的执行 Until 属于“直到型循环”，与循环条件结合表示直到条件成立时才退出循环，相当于在条件不成立时进行循环，一旦条件成立，则退出循环。 案例学习 Sub Do循环() i=1 sum=0 Do While i=100 sum=sum+i i=i+1 Loop End Sub 利用 Do 型循环语句编写程序，计算 1+2+3+4+5+…+99+100 的值 Do While…Loop 循环语句 案例学习 Sub Do循环() i=1 sum=0 Do sum=sum+i i=i+1 Loop While i=100 End Sub 利用 Do 型循环语句编写程序，计算 1+2+3+4+5+…+99+100 的值 Do …Loop While循环语句 案例学习 Sub Do循环() i=1 sum=0 Do Until i100 sum=sum+i i=i+1 Loop End Sub 利用 Do 型循环语句编写程序，计算 1+2+3+4+5+…+99+100 的值 Do Until…Loop循环语句 案例学习 Sub Do循环() i=1 sum=0 Do sum=sum+i i=i+1 Loop Until i100 End Sub 利用 Do 型循环语句编写程序，计算 1+2+3+4+5+…+99+100 的值 Do …Loop Until循环语句 课堂作业 利用Do型的4种循环格式，计算 1+3+5+7+…+99 概念 四、Goto 型循环 功能： 利用GoTo语句，实现程序跳