|
上文讲过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,初学者数组会有点难，后面安排。 子曰：用之则行，不用则藏。 意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。 |
|
|
