2.3.3循环结构
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
的
用For-Next语句实现循环结构
语句形式： For 循环变量=初值 to 终值 [循环体] [Exit For] [循环体] Next 循环变量
[Step 步长]
用While语句实现循环
1. 语句形式：
While 条件
[循环体]
Wend
2. 语句说明：
• “条件”一般为条件表达式，结果为布尔变 量True或False。
Private Sub Cmdcalh_Click()
If j = 0 Then fact = 1 If fact <= 5000 Then
j=j+1 fact = fact * j txtcyc.Text = j txtfac.Text = fact
Else
Cmdcalh.Enabled = False
n = Val(txtn.Text)
For i = 1 To n
i=1
sum = sum + i
Do
Next i txtsum.Text = sum End Sub
sum = sum + i i=i+1
Loop While i <= 100
End If
End Sub
该语句的作用？
用DO语句实现循环
• Do While – Loop语句 Do While 条件 循环体语句 Loop
• Do – Loop While语句 Do 循环体语句 Loop While 条件
用DO语句实现循环
用Do While – Loop 语句改写
“计算”按钮完整代码:
• “条件”用于控制“循环体”是否执行。
• 多用于
的情况。
用While语句实现循环
3. 语句执行过程：
条件
False
True 循环体
用While语句实现循环
实现1*2*3*……*n的操作，当阶乘值>5000时结束操作。
txtcyc
来自百度文库
txtfac
代码编写
Private Sub cmdcal_Click()
Dim i As Integer，fac As Long i = 1:fac = 1 While fac <= 5000
fac = fac * i i=i+1 txtcyc.Text = i txtfac.Text = fac
Wend
End Sub
初始化语 句是否可 以去掉？
代码编写
“手动计算”按钮：单步演示累乘结果，需要窗体级变量 保留成绩，及点击次数
Private Sub cmdcal_Click()
Dim i As Integer
Dim sum As Long, n As Long
n = Val(txtn.Text)
For i = 1 To n sum = sum + i
Next i txtsum.Text = sum End Sub
i=1 Do While i <= ｎ
sum = sum + i i=i+1 Loop
执行过程
No
i <= 100
Yes
sum = sum + i
i=i+1
用Do – Loop While语句改写
“计算”按钮完整代码:
Private Sub cmdcal_Click()
Dim i As Integer
Dim sum As Long, n As Long
用For-Next语句实现循环结构
语句形式： For 循环变量=初值 to 终值 [循环体] [Exit For] [循环体] Next 循环变量
[Step 步长]
用While语句实现循环
1. 语句形式：
While 条件
[循环体]
Wend
2. 语句说明：
• “条件”一般为条件表达式，结果为布尔变 量True或False。
Private Sub Cmdcalh_Click()
If j = 0 Then fact = 1 If fact <= 5000 Then
j=j+1 fact = fact * j txtcyc.Text = j txtfac.Text = fact
Else
Cmdcalh.Enabled = False
n = Val(txtn.Text)
For i = 1 To n
i=1
sum = sum + i
Do
Next i txtsum.Text = sum End Sub
sum = sum + i i=i+1
Loop While i <= 100
End If
End Sub
该语句的作用？
用DO语句实现循环
• Do While – Loop语句 Do While 条件 循环体语句 Loop
• Do – Loop While语句 Do 循环体语句 Loop While 条件
用DO语句实现循环
用Do While – Loop 语句改写
“计算”按钮完整代码:
• “条件”用于控制“循环体”是否执行。
• 多用于
的情况。
用While语句实现循环
3. 语句执行过程：
条件
False
True 循环体
用While语句实现循环
实现1*2*3*……*n的操作，当阶乘值>5000时结束操作。
txtcyc
来自百度文库
txtfac
代码编写
Private Sub cmdcal_Click()
Dim i As Integer，fac As Long i = 1:fac = 1 While fac <= 5000
fac = fac * i i=i+1 txtcyc.Text = i txtfac.Text = fac
Wend
End Sub
初始化语 句是否可 以去掉？
代码编写
“手动计算”按钮：单步演示累乘结果，需要窗体级变量 保留成绩，及点击次数
Private Sub cmdcal_Click()
Dim i As Integer
Dim sum As Long, n As Long
n = Val(txtn.Text)
For i = 1 To n sum = sum + i
Next i txtsum.Text = sum End Sub
i=1 Do While i <= ｎ
sum = sum + i i=i+1 Loop
执行过程
No
i <= 100
Yes
sum = sum + i
i=i+1
用Do – Loop While语句改写
“计算”按钮完整代码:
Private Sub cmdcal_Click()
Dim i As Integer
Dim sum As Long, n As Long