不管是在我们学习的哪一门语言中,都少不了控制结构的身影,计算机程序执行的流程也由他们三大结构组成。循环计算是项目中必不可少的业务,今天我借助“1+2+3+...100”的累加来说说如何使用不同的循环结构如何用不同的循环语句来表示!
目录
方式四、do ... loop While/Until(后判断条件形式)
方式一、do while ...loop(先判断条件形式)
语句格式:
Do While <条件>
[循环体]
Loop
说明:Do While ... Loop是“当型循环”形式,即<条件>为真(True)时执行循环体,条件为假(False)时,终止循环
如果条件为假,不满足时,可能一次都不执行,直接退出循环(这也是与后判断条件形式的区别)
Private Sub Form_Click()
Dim s As Integer
Dim n As Integer
s = 0: n = 1
FontSize = 18
Do While n <= 100
s = s + n
n = n + 1
Loop
Print "1+2+3+...+100="; s
End Sub
方式二、do until...loop
语句格式:
Do Until <条件>
[循环体]
Loop
说明:Do Until ... Loop是“直到型循环”形式,即<条件>为假(False)时执行循环体,条件为真(True)时,终止循环
Private Sub Form_Click()
Dim s As Integer
Dim n As Integer
FontSize = 18
s = 0: n = 1
Do Until n > 100
s = s + n
n = n + 1
Loop
Print "1+2+3+...+100="; s
End Sub
方式三、do...loop
语句格式:
Do
[循环体]
If <条件> Then Exit Do
Loop
说明:Do ... Loop循环语句可以省略While/Until,将循环结束条件写在循环体内,用Exit Do语句退出循环。
Private Sub Form_Click()
Dim s As Integer
Dim n As Integer
FontSize = 18
s = 0: n = 1
Do
s = s + n
n = n + 1
If n > 100 Then Exit Do
Loop
Print "1+2+3+...+100="; s
End Sub
方式四、do ... loop While/Until(后判断条件形式)
语句格式:
Do
[循环体]
Loop [While|Until] <条件>]
说明:Do ... Loop循环语句首先执行循环体,然后判断条件的真假,决定是否继续循环。
语句至少执行一次循环体(这也是与先判断条件形式的区别)
Private Sub Form_Click()
Dim s As Integer
Dim n As Integer
FontSize = 18
s = 0: n = 1
Do
s = s + n
n = n + 1
Loop While n <= 100
Print "1+2+3+...+100="; s
End Sub
方式五、for...next
语句格式:
For <循环变量>=<初值> To <终值> [Step<步长>]
[<循环体>]
Next [<循环变量>]
说明:Do ... Loop循环语句首先执行循环体,然后判断条件的真假,决定是否继续循环。
Private Sub Form_Click()
Dim s As Integer
Dim n As Integer
FontSize = 18
n = n + 1
For n = 1 To 100 Step 1
s = s + n
Next n
Print "1+2+3+...+100="; s
End Sub
在循环体内部,可以执行任意的代码块,例如对变量进行操作、调用方法等。循环变量的递增或递减步长可以根据需要进行调整,以满足具体的循环需求。
需要注意的是,在使用For...Next循环时,要确保循环变量的初始值、终止值和步长设置正确,以避免无限循环或者不满足循环条件的情况。同时,也可以使用控制语句如Exit For
来提前退出循环。
循环语句中包含这么多语句,那我们使用时如何选择呢?
for...next语句
1.你要执行循环的次数是已知的。如何计算循环次数=Int((终值-初值)/步长+1
2.明确初值、终值、步长,适合用于已知循环次数的情况
do..loop语句
1.循环的次数未知,选择使用
2.条件为“当。。。时”
如果大家还有不同的方法,欢迎补充!