VB程式設計：DoWhile...Loop當循環計算0~100累加和

技巧總結

   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