循环结构.ppt

.
循环结构
.
Do Loop之“当”循环
形式1: 形式2:
Do While <条件表达式> Do
语句块(循环体) 语句块(循环体)
Loop Loop While <条件表达式>
当条件为真（true）时循环！
.
Do Loop循环示例1
Private sub Form_click()
Dim num%
num=1
Do while num<=10
Print num
Num=num+1
Loop
End sub
Private sub Form_click()
Dim num%
num=1
Do
Print num
Num=num+1
Loop while num<=10
End sub
.
S=1+2+3+……+100
Private Sub Form_Click()
Dim i As Integer ‘i为累加数
Dim sum As Integer ‘sum为累加和
i =1
sum = 0
Do While i <= 100
sum = sum + i
i = i + 1
Loop
Print sum
End Sub
.
S=1+2+3+……+100
Private Sub Form_Click()
Dim i As Integer
Dim sum As Integer
i = 1
sum = 0
Do
sum = sum + i
i = i + 1
Loop While i <= 100
Print sum
End Sub
.
Do Loop之“直到”循环
形式1: 形式2:
Do Until <条件表达式> Do
语句块(循环体) 语句块(循环体)
Loop Loop Until <条件表达式>
直到条件为真（true）时退出循环！
.
S=1+2+3+……+n
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim sum As Integer
n = Val()
sum = 0
i = 0
Do Until i > n
sum = sum + i
i = i + 1
Loop
= sum
End Sub
.
S=1+2+3+……+n
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim sum As long
n = Val()
sum = 0
i = 0
Do
sum = sum + i
i = i + 1
Loop Until i > n
= sum
End Sub
.
For 循环语句
For循环语句是计数型循环语句，用于控制循环次数已知的循环结构。语句形式如下：
For 循环变量 = 初值 To 终值 [Step 步长]
[循环体]
Next [循环变量]
.
For 循环变量 = 初值 To 终值 [Step 步长]
[循环体]
Next [循环变量]
（1）“循环变量”：必须为数值型，取值范围在初值和终值之间。
（2）“初值”、“终值”：都是数值型，可以是数值表达式。
（3）“步长”：是数值型，可以是数值表达式。 步长不能为0。如果步长是1，则Step 1可以省略不写。
（4）“循环体”：在For和Next之间一条或多条语句，他们将被执行指定的次数
。
（5）Next后面的循环变量与For语句中的循环变量必须相同。