1、Do循环的两种格式。
（一）格式一：
Do
语句体
[Exit Do]
语句体
Loop[while或until条件]
2、示例：计算1-100之间正整数和。
在EXCEL VBE中输入如下代码：
Sub summation()
n = 100
Dim j As Integer
Dim i As Integer
i = 1
Do
j = j + i
i = i + 1
Loop Until i > 100
MsgBox j
End Sub
运行程序，显示结果如下。
3、（二）格式二：
Do [while或until条件]
语句体
[Exit Do]
语句体
Loop
4、示例：计算1-100之间正整数和。
在EXCEL VBE中输入如下代码：
Sub summation()
n = 100
Dim j As Integer
Dim i As Integer
i = 1
Do Until i > 100
j = j + i
i = i + 1
Loop
MsgBox j
End Sub
运行程序，显示结果如下。
