1、while循环示例，利用while循环求1-n数量累积的和。在VBE中输入以下代码：Sub summation()n = InputBox("请输入n的值:")Dim j As SingleDim i As Integeri = 1While (i <= n)j = j + ii = i + 1WendMsgBox jEnd Sub
2、执行程序后，n值输入200，显示结果如下：
EXCEL VBA中如何使用while循环
时间：2024-10-12 05:11:551、while循环示例，利用while循环求1-n数量累积的和。在VBE中输入以下代码：Sub summation()n = InputBox("请输入n的值:")Dim j As SingleDim i As Integeri = 1While (i <= n)j = j + ii = i + 1WendMsgBox jEnd Sub
2、执行程序后，n值输入200，显示结果如下：