a=8 s=1 do s=s+a a=a-1 loop while a

问题描述:

a=8 s=1 do s=s+a a=a-1 loop while a

Private Sub Command1_Click()
a = 8
s = 1
Do
s = s + a
a = a - 1
Loop While a