Visul Basic循环结构程序设计.ppt

计算机软件技术基础;选择结构程序设计： If…Then 语句（单分支结构） If...Then…Else 语句（双分支结构） If…Then …Else If 语句（多分支结构）结构 Select Case 语句（多分支结构）;If…Then …Else If 语句（多分支结构）结构 ;;表达式表有四种形式： 一个表达式。 如：Case 6 一组用逗号隔开的枚举值。 如： Case 1，3，5，7 表达式1 TO 表达式2。 如： Case 1 To 10 Is 关系运算符表达式。 如：Case Is=80 另外，在一个情况语句中，上述四种形式可以混合使用。;; 1. Do...Loop循环;格式：Do While 〈条件表达式〉 〈循环体〉 Loop ;例 打印1到20的整数。;T;Private Sub Form_Click() Dim i As Integer i = 1 Do Print i i = i + 1 Loop While i = 20 End Sub;格式： Do Until〈条件表达式〉 〈循环体〉 Loop ;Private Sub Form_Click() Dim i As Integer i = 1 Do Print i i = i + 1 Loop Until i 20 End Sub;例 Do…Loop循环编程计算下式的值(两种方法当型和直到型)。 ;方法二、用直到型循环实现： ; 2. For …Next循环;For 循环变量 = 初值 To 终值 [Step 步长] 循环体 Next [循环变量];说明： ① 格式中的参数说明： ☆ 循环变量必须为数值型。 ☆ 循环的初值、终值和步长都是数值表达式，其值不一定是整数，可以是实数，VB自动取整。 增量参数可正可负。 如果增量为正，则初值必须小于等于终值 如果增量为负，则初值必须大于等于终值。 如果没有设置step，则增量默认为1。;在For语句和Next语句之间的语句序列称为循环体，可以是一个或多个语句。 Next是循环终端语句，在Next后面的循环变量与For中的循环变量必须相同。 当循环是单层循环时，Next后面的循环变量可以不写。;② For循环语句的执行过程 1)把初值赋给循环变量 2)检查循环变量的值是否超过终值 3)如果超过就不执行循环体，跳出循环，执行Next后面的语句 4)否则执行一次循环体，然后把循环变量增加步长，再赋给循环变量 重复上述过程。;③ 当初值等于终值时，不管步长是正数还是负数，都执行一次循环体。;⑤ For语句和Next语句必须成对出现，不能单独使用。 ⑥在循环体中可以使用循环变量，但一般不再对循环变量赋值。;例 3.18 求N的阶乘 N!=1*2*3*······*(N-1)*N;3、循环的强制退出;3-19 求从100~1000之间所有3的倍数的数之和，当和大于3000时，停止计算并输出和。;4、While…Wend循环;允许将一个循环语句完整地放到另一个循环语句中，形成循环的嵌套或多层嵌套。 被包含的循环称为内循环，包含循环的循环称为外循环。 如果嵌套层数较多，也可以从外到内依次称之为第一层循环，第二层循环，…。 Visual Basic循环嵌套的层数没有限制;(2) 循环语句的开始关键字和终端关键字必须成对出现 For…Next语句，内外层循环有相同终点时，允许共用一个关键字Next，各层中的循环控制变量不能省略，内层在前，外层在后;⑶For…Next循环语句构成的嵌套来说，各层的循环变量名(成员名)不能相同。 For i=1 To 9 For j=1 to 9 … Next j Next i (4)为了便于阅读和维护，编程时每层循环建议采用缩排方式书写。 ;3.21 百元买百鸡问题;循环结构程序设计 VB中提供了两种类型的循环语句： 计数循环语句； 条件循环语句。 要求掌握的循环结构： ☆ Do…Loop ☆ For...Next Do…Loop语句有四种语法格式： ⑴ Do While … Loop 语句 ⑵ Do … Loop While 语句 ⑶ Do Until …Loop 语句 ⑷ Do …Loop Until 语句