上文讲过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,初学者数组会有点难，后面安排。

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

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。