EXCEL VBA中如何使用while循环？

1、while循环示例，利用while循环求1-n数量累积的和。

在VBE中输入以下代码：

Sub summation()

n = InputBox("请输入n的值:")

Dim j As Single

Dim i As Integer

i = 1

While (i <= n)

j = j + i

i = i + 1

Wend

MsgBox j

End Sub

2、执行程序后，n值输入200，显示结果如下：