‘给变量赋初值
i = 1
sum = 0
‘循环并显示结果
Do While i <= 100
sum = sum + i
i = i + 1
Loop
MsgBox “1至100的和为：” & sum
End Sub
示例3：下面的代码使用Do While循环求1至100之间的偶数和并显示结果 。
Sub DoWhile5()
‘声明变量
【1 excel图表有条件的循环—Do While循环】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数据透视表之VBA运算符
- excel图表有条件的循环设置
- excel图表常见问题回答！
- 使用INDEX函数返回整行或整列
- pandigitals Excel公式技巧之1/17和其他全数字
- excel图表怎么将十进制数转换成指定进制的数
- excel从字符串中提取数字——数字位于字符串开头
- excel从字符串中提取数字——数字位于字符串末尾
- excel图表将所有数字分别提取到不同的单元格
- excel将所有数字提取到单个单元格