Private Sub Form_Click() a = 1: b = a Do Until a >= 5 x = a * b Print b; x a = a + b b = b + a Loop
问题描述：
Private Sub Form_Click() a = 1: b = a Do Until a >= 5 x = a * b Print b; x a = a + b b = b + a Loop
答
Private Sub Form_Click() 点击窗体触发click事件
a = 1 初始a=1
b = a
Do Until a >= 5 执行do循环 直到a大于等于5时退出循环
x = a * b
Print b; x
a = a + b
b = b + a
Loop
end sub
最后窗体上打印的是：
1 1
3 6最后打印出来的结果 和计算过程第一次循环： b=1，x=a*b也是1，所以打印的是1 1 之后a=a+b就是2了 b=b+a就是3了 所以第二次循环： 打印的就是3，6 打印之后a=a+b就是2+3=5了 当a>=5时就退出了循环 所以就执行两次循环 打印了两次结果