技巧总结

   1、常用的循环有三种：

   （1）for循环（For...Next）；

   （2）当循环（Do...While...Loop）或者（While...Wend）；

   （3）直到循环（Do...Until...Loop）；

三、测试代码

Private Sub Command1_Click()

   Dim a As Long, b As Long

   a = 0

   b = 0

   Do While a < 100

       a = a + 1

       b = b + a

   Loop

   Label1.Caption = "0~100的累加结果为：" & b

End Sub