上文講過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,初學者數組會有點難，后面安排。

子曰：用之則行，不用則藏。

意思是說，如果你用我的這些建議，就馬上行動，知行合一，如果你不用，就趕緊收藏，以絕后患。

總結

以上是生活随笔為你收集整理的递归算法1加到100_五种循环方法计算1加到100的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。