上文講過1加到100,詳細解釋了計算的過程，如果理解了以前的文章，就容易理解今天的內容了。
1加到100使用VBA我能使用十來種方法，以下也是一種方法。
While ……wend循環
Private Sub CommandButton1_Click()
s = 0
i = 1
While i <= 100
s = s + i
i = i + 1
Wend
MsgBox "結果為:" & s
End Sub
這種方法使用較少，原因未知，這裡就不詳細介紹。
今天用四種方法做循環，實現1加到100。
對比他們之間的不同。
Do While 當型循環
Private Sub CommandButton1_Click()
s = 0
i = 1
Do While i <= 100
s = s + i
i = i + 1
Loop
MsgBox "結果為:" & s
End Sub
當型循環的特點是先判斷是否滿足條件，滿足則執行以下操作，否則退出。
Do While 直到型循環
Private Sub CommandButton2_Click()
s = 0
i = 1
Do
s = s + i
i = i + 1
Loop While i <=100
End Sub
直到型循環是先做一次，然後再看是否滿足條件，滿足再執行操作，不滿足退出。
打個比方，你去飯店吃飯，先看有沒有帶錢包再吃飯，還是先吃一口，再檢查是否帶錢包。
以上兩段代碼，初始值為1時沒有區別，將初始值i改為101就有明顯區別。
再介紹另外兩種循環，都差不多。
Private Sub CommandButton3_Click()
s = 0
i = 1
Do Until i > 100
s = s + i
i = i + 1
Loop
MsgBox "結果為:" & s
End Sub
以下也可以實現。
Private Sub CommandButton4_Click()
s = 0
i = 1
Do
s = s + i
i = i + 1
Loop Until i > 100
MsgBox "結果為:" & s
End Sub
建議分別繪製四個按鈕，使用以上代碼實現1加到100求和。
還可以使用數組進行1加到100,初學者數組會有點難，後面安排。
子曰：用之則行，不用則藏。
意思是說，如果你用我的這些建議，就馬上行動，知行合一，如果你不用，就趕緊收藏，以絕後患。