2024年3月31日发(作者：)

12. 学习VB循环语句之我见

VB 的循环语句有 4 大类，共 8 个小类，要全部掌握这些语句，可不是简

单的事。

实际上，只需要掌握其中两个小类，就足够对付任何循环的情况了。

下面用计算 1+2+3+...+100 来看看这 8 个循环小类的特点：

Private Sub Command1_Click()

Dim I As Long, S As Long

'一、例子 ①：Next 循环

For I = 1 To 100

S = S + I

Next

MsgBox "Next：1+2+3+...+100 = " & S

'二、 Do...Loop 循环

'例子②： 在 Do 和 Loop 后面不使用任何关键字，在循环体内加入判断语句

退出循环

I = 0: S = 0

Do

I = I + 1

If I > 100 Then Exit Do

S = S + I

Loop

MsgBox "Do...Loop：1+2+3+...+100 = " & S

'例子③：在 Do 后面使用 While 关键字

'I 小于 100 就进入循环

I = 0: S = 0

Do While I < 100

I = I + 1

S = S + I

Loop

MsgBox "Do While：1+2+3+...+100 = " & S

'例子④：在 Loop 后面使用 While 关键字

'I 不是小于 100 就退出循环（不论 I 的值是多少，循环体至少会执行一次）

I = 0: S = 0

Do

I = I + 1

S = S + I

Loop While I < 100

MsgBox "Loop While：1+2+3+...+100 = " & S

'例子⑤：在 Do 后面使用 Until 关键字

'I 大于 100 就退出循环，注意 S=S+I 和 I=I+1 的位置与使用 While 关键字

时不同不同

I = 0: S = 0

Do Until I > 100

S = S + I

I = I + 1

Loop

MsgBox "Do Until：1+2+3+...+100 = " & S

'例子⑥：在 Loop 后面使用 Until 关键字

'I 大于 100 就退出循环（不论 I 的值是多少，循环体至少会执行一次）

I = 0: S = 0

Do

S = S + I

I = I + 1

Loop Until I > 100

MsgBox "Loop Until：1+2+3+...+100 = " & S

'三、Wend 循环

'例子⑦：I 小于 100 就执行循环，与例子③ Do While I < 100 完全相同

I = 0: S = 0

While I < 100

I = I + 1

S = S + I

Wend

MsgBox "Wend：1+2+3+...+100 = " & S