04-2-循环结构程序设计.ppt

For…Next语句 For…Next循环语句按指定次数执行循环体 语法格式： For 循环变量=初值 To 终值 [Step 步长值] 循环体 Next 循环变量 功能：指定循环变量取一系列数值，并且对 于循环变量的每一个值，把循环体执行一次 说明：初值、终值和步长值都是数值表达式， 步长值可以是正数（成为递增循环），也可以 是负数（成为递减循环）。若步长值为1 ，则 Step 1可以省略 循环变量值“超过终值”的含义是：步长为正 时，指大于终值；步长为负时，指小于终值 例 求自然数之和 Do…Loop语句 前测型Do…Loop循环 语句格式： Do While|Until 条件 循环体 Loop 功能： ◇ Do while … Loop（当型循环）： 当条件成立（为真）时，执行循环体； 当条件不成立（为假）时，终止循环 ◇ Do Until … Loop（直到型循环）： 当条件不成立（为假）时，执行循环体；当条件成立（为真）时，终止循环 例 求平方和 后测型Do…Loop循环 后测型语法格式： Do 循环体 Loop While|Until 条件 功能：先执行循环体，然后判断条件，根据条件决定是否继续执行循环 注意：本语句执行的最少次数为1，而前测型Do…Loop语句的最少次数为0（即一次都不执行循环） 例 求最大公约数 用“辗转相除法”求所输入的两个数 m，n 的最大公约数 算法如下：求出 m/n 的余数 p，若 p=0，n 即为最大公约数；若 p≠0，则把原来的分母 n 作为新的分子 m，把余数 p 作为新的分母 n 继续求解 While…Wend循环语句 循环出口语句 多重循环 例 多重循环示例 列表框与组合框 列表框(ListBox) 列表框(ListBox) 例 组合框(ComboBox) Ch4-2 循环结构程序设计 概念 在程序设计中，有规律地反复执行某一程序块的现象。被重复执行的程序块称为“循环体”。 VB提供的循环语句有： Do … Loop While…Wend For…Next For Each…Next 循环变量超过终值 真 假 循环变量=循环变量＋步长值 执行循环体 循环变量=初值 求 S = 1 + 2 + 3 + … + 8，把结果显示在窗体上 教材示例4-5 For … Next 循环语句主要用在已知循环次数的情况下，若事先不知道循环次数，可以使用Do … Loop语句 Do循环语句有两种语法格式：前测型循环结构和后测型循环结构。两者区别在于判断条件的先后次序不同 条件 真 假 执行循环体 条件 真 假 执行循环体 条件 真 假 执行循环体 条件 真 假 执行循环体 利用 Do While … Loop 语句求 S = 12 + 22 + … + 1002 教材示例4-6 Do…Loop语句 示例2：输入一个正整数，利用“当型”循环判断是否是素数。 设计步骤如下 ◇建立用户程序界面并设置对象属性（如图所示） 示例2 Do…Loop语句 ◇编写事件代码 Private Sub Command1_Click() Dim n As Long Select Case Val(Text1.Text) Case Is 3 MsgBox “请输入一个大于2 _ 的正整数！”, 64 + _ 0 , 注意 Case Is 2147483647 MsgBox “此数太大！”, _ vbInformation + _ vbOKOnly, 注意 Case Else n = Val(Text1.Text) s = 0 i = 2 Do While i = Sqr(n) And s = 0 If n Mod i = 0 Then s = 1 Else i = i + 1 End If Loop If s = 0 Then a = 是一个素数