用do while循环写出s=1+2+3+.100

问题描述:

用do while循环写出s=1+2+3+.100

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