PrivateSubCommand1Click()s=0Dos=(s+1)*(s+2)Number=Number+1LoopUntils>=30PPrivateSubCommand1Click()s=0Dos=(s+1)*(s+2)Number=Number+1LoopUntils>=30PrintNumber,sEndSub这个程序是怎么执行的?

Question

Private Sub Command1_Click() s = 0 Do s = (s + 1) * (s + 2) Number = Number + 1 Loop Until s >= 30 P
Private Sub Command1_Click()
s = 0
Do
s = (s + 1) * (s + 2)
Number = Number + 1
Loop Until s >= 30
Print Number,s
End Sub
这个程序是怎么执行的?

Answer 1

从S=0时开始,
当S=0时,执行s = (s + 1) * (s + 2),则S=1*2=2
当S=2时,执行s = (s + 1) * (s + 2),则S=3*4=12
当S=12时,执行s = (s + 1) * (s + 2),则S=13*14=182
Number = Number + 1
执行三次
Number =3
也就是结果为3 182