dim i as integer
dim sum as integer
i = 1
方法1
do while i 100
sum = sum + i
i = i + 1
loop
方法3
do
sum = sum + i
i = i + 1
loop while i < 100