Do.Loop While循环
Dim s As Integer,i As Integer
s = 0
i = 1
Do
s = s + i
i = i + 1
Loop While i