PrivateSubCommand1_Click()s=0Dos=(s+1)*(s+2)Number=Number+1LoopUntils>=30P
PrivateSubCommand1_Click()
s=0
Do
s=(s+1)*(s+2)
Number=Number+1
LoopUntils>=30
PrintNumber,s
EndSub
这个程序是怎么执行的?