for……next循环如下
Sub 循环1()
Dim i%
For i = 1 To [j1].Value
要执行的代码
Next
End Sub
do……loop循环如下
Sub 循环2()
Do
i = i + 1
Loop Until i = [j1].Value
