第六讲 循环结构与循环结构语句

重点：

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