第六讲 循环结构与循环结构语句
重点：
1、掌握单分支、双分支以及多分支结构语句的格式以及程序设计方法 2、do-loop型循环语句及循环结构的程序设计 3、For-Next型循环语句及循环结构的程序设计 4、循环的嵌套
1 for-next 循环语句：P69
一般格式： for v=e1 to e2 [step e3]
……
[exit for]
循环体语句组
…… next v
其中：v ：循环控制变量。应为 整型 或 单精度型。 e1：循环控制变量的初值。
e2：循环控制变量的终值 。 e3：循环控制变量的步长值。
功能：（执行过程）：P70 使用说明：◆ 超过终值的情况：当 e3 >0 时，指 v>e2, 当 e3<0 时，指v ◆ 循环次数的计算公式：循环次数=Int((e2-e1)/e3)+1 ◆当step 1 时，此部分可以省略。 ◆循环中执行到 exit for 语句时，结束本循环语句，转本next 的下 一条语句去执行。 1.1程序举例 例：求 1+2+3+4+5 Private Sub Form_click() Dim s As Integer, i As Integer s = 0 For i = 1 To 5 s = s + i Next i Print \End Sub 例： 求1*2*3*4 Private Sub Form_click() Dim s As Integer, i As Integer s = 1 For i = 1 To 4 s = s * i Next I Print \End Sub 例P70 例 P71 先看len、mid函数的使用： 有一个字符串 A=‖abcd‖ （1） 则 len(A)=4 len（x） 可获得x字符串长度。(一个汉字为2个字符) （2） mid(x,n1,n2) :取子串函数 作用一：取子串： mid(A,1,1)=‖a‖ mid(A,1,2)=‖ab‖ mid(A,3,1)=‖c‖ 从一个字符串中一个一个取出字符的方法： for I=1 to len(x) print mid(x,I,1) next I 若逆序取出： for I=len(x) to 1 step -1 print mid(x,I,1) next I 作用二：改变一个字符串中某些字符。 mid(x,2,2)=‖k‖ 1.2 循环嵌套：P73 for I= 1 to 2 fot j=1 to 3 print ―b‖ next j print ―a‖ next I 程序举例：P73 例 rnd(x): 随机函数的使用方法：P73 改变程序中rnd(X)中的X取值，观察结果 Private Sub Form_click() Print Rnd(1); Rnd(0) End Sub 产生[a,b]范围内随机整数的公式：P73 int((b-a+1)*rnd+a) 例：生成5个3位随机整数。 For I=1 to 5 Print int((999-100+1)*rnd+100) Next I 自习 P74 各例 isNumeric(x) : 判断一个字符串是否是一个数字串。 若x是数字串，其值为True ，若不是数字串，其值为False 2 do-loop 循环结构：P68 一般格式：4种 P68 do while e do …… [exit do] …… …… [exit do] …… loop while e loop 格式一： （1）先判断e 的值，为 true ，执行循环体A，为false , 循环结束，转loop 的下面一条语句去执行。 （2）循环体执行完后，执行loop语句，返回（1）。 流程图P67 （a） 2.1例 ：（补充） 求s=1+2+3+4+?? 当结果大小等于55时结束 Private Sub Form_click() Dim s As Integer, n As Integer s = 0 n = 0 Do While s < 55 n = n + 1 s = s + n Loop Print s, n End Sub 格式二： （1）执行循环体语句组。 （2）执行到 loop while 语句时，判断 e 的值，若为 true , 转（1），若为 false , 循环结束，转loop 的下面一条语句去执行。 流程图P67 (b) 格式三： do until e ….. [exit do] 格式四： do …. [exit do] …… loop until e …… loop 格式三功能： (1) 判断e 的值，若为 false ，则执行循环体语句；若为 true ，则循环结束，转loop 的下面一条语句去执行。 （2）执行loop 语句时，返回（1） 流程图P68 图4-13 （b） 格式四功能： （1）执行循环体语句 （2）执行loop 语句时，判断 e 的值，若为 false , 返回（1），若为 true , 则循环结束，转loop 的下面一条语句去执行。 流程图P68 图4-13 （a） 特别说明：无论哪种格式，记住循环体执行的条件： （1） while 后的条件值为 true 时，执行循环体，为 false 时，循环结束。 （２）until 后的条件值为false 时，执行循环体，为true时，循环结束。 程序举例：P68 例4-3