不管是在我们学习的哪一门语言中，都少不了控制结构的身影，计算机程序执行的流程也由他们三大结构组成。我今天就来说说“1+2+3+...100”的累加如何用不同的循环语句来表示！
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语句
1.你要执行循环的次数是已知的。如何计算循环次数=Int（（终值-初值）/步长+1
2.明确初值、终值、步长
do..loop语句
1.循环的次数未知，选择使用
2.条件为“当。。。时”
如果大家还有不同的方法，欢迎补充！
