循环语句程序设计.ppt

循环结构语句 在许多问题中需要用到循环控制。循环结构是结构化程序 设计的基本结构之一，它和顺序结构、选择结构共同作为各种 复杂程序的基本构造单元。 循环结构的特点是， 在给定条件成立时，反复执行某程序 段，直到条件不成立为止。 给定的条件称为循环条件，反复执 行的程序段称为循环体。 循环结构语句 VB语言提供了三种循环语句，可以组成各种不同形式的循环结构,它们是: For …Next循环语句 Do …Loop循环语句 While …wend循环语句 for…next语句 For…Next循环结构：将一段程序重复执行指定的次数，其中 使用一个计数变量，统计执行的次数。 格式： For 循环变量=初值 To 终值 [Step 步长] [语句组1] Exit For [语句组2] Next [循环变量] ?功能：执行For语句时，“循环变量”设为“初值”；执行到Next语句时，步长加（减）到循环变量上；再执行For语句时，若“循环变量”超过“终值”则循环结束。 ?步长：未指定值时默认为1。 ?若“步长”是正数或0，则“初值”应大于等于“终值”，否则，“初值”应小于等于“终值”。 for…next语句 例1：计算1+2+...+100 Dim sum As Integer, i As Integer For i = 1 To 100 Step 1 sum = sum + i Next i MsgBox sum for…next语句 例2： 计算3!=1*2*3 Dim s As Integer, i As Integer s = 1 For i = 1 To 3 s = s * i Next MsgBox s for…next语句 例3：计算1+2+3…+n 例4：计算1*2*3…*n Do…Loop语句 格式1：先判条件是否成立，再开始循环。 Do [{While | Until}条件] [语句] [Exit Do] [语句] Loop 例1：计算S=1+2+3+4…+X Dim s As Integer, x As Integer, n As Integer x = InputBox(请输入累加的终值) n = 1 Do While n = x s = s + n n = n + 1 修改循环控制变量，改变加数值 Loop MsgBox s Do…Loop语句 Do while…Loop循环结构：先判断后执行，有可能一次也不执行。 While关键字用于指明条件为真时执行循环体内语句；Until 当条件为假时，执行循环体内语句。 例1：计算S=1+2+3+4…+X Dim s As Integer, x As Integer, n As Integer x = InputBox(请输入累加的终值) n = 1 Do Until n x s = s + n n = n + 1 修改循环控制变量，改变加数值 Loop MsgBox s Do…Loop语句 格式2：先循环，再判条件是否成立。 Do [语句] [Exit Do] [语句] Loop [{While|Until}条件] 说明： Do …Loop while循环结构：先执行后判断，循环语句至少执行一次； While关键字用于指明条件为真时执行循环体内语句；Until 当条件为假时，执行循环体内语句。 Do…Loop语句 例1：计算S=1+2+3+4…+X Dim s As Integer, x As Integer, n As Integer x = InputBox(请输入累加的终值) n = 1 Do s = s + n n = n + 1 修改循环控制变量，改变加数值 Loop While n =x MsgBox s Do…Loop语句 例1：计算S=1+2+3+4…+X Dim s As Integer, x As Integer, n As Integer x = InputBox(请输入累加的终值) n = 1 Do s = s + n n = n + 1 修改循环控制变量，改变加数值 Loop Until n x MsgBox s 说明：在循环体中应有使修改循环变量的语句，如n=n+1。 否则，循环条件始终不发生改变，循环将永