Do While i <= 100
sum = sum + i
i = i + 1
Loop
MsgBox “1至100的和为：” & sum
End Sub
示例3：下面的代码使用Do While循环求1至100之间的偶数和并显示结果 。
Sub DoWhile5()
‘声明变量
Dim i As Integer
Dim sum As Integer
‘给变量赋初值
i = 1
sum = 0
‘循环并显示结果
Do While i <= 100
If (i Mod 2 = 0) Then
sum = sum + i
End If
i = i + 1
Loop
MsgBox “1至100的和为：” & sum
End Sub
【excel图表While循环】在编写程序时，我们可以使用多种方法实现想要的结果，您可以根据具体情况选择实现方式，这也是编程的一大美妙之处 。
推荐阅读
- excel图表常见问题
- Excel中怎么用VBA运算符
- Excel中INDEX函数整行
- excel图表循环设置
- excel中怎么做vba循环
- 怎么隐藏Excel功能菜单
- 怎么将Word中的内容插入到Excel
- 怎么填充Excel表格的空白部分
- 怎么对齐excel文本框和单元格
- 怎么垂直查看excel工作表