level 1
Private Sub Commandl_Click()
A=0
B=1
Do While A<=10
A=A+B
B=B+1
loop
MsgBox(Astr(A)+""Cstr(B)
2012年07月26日 12点07分
1
level 1
答案是：15 6.你说得有些迷糊，不过还是感谢你了啊
我不懂程序是怎样的原理
2012年07月26日 13点07分
3
level 3
这个程序的A是和，程序运行后A第一次加B（就是1），之后B+1变成2，之后A再加B即加二，如此下去，当A=1+2+3+4时，while判断A<=10还满足，此时b是6，因此继续加下去，这个循环过后A=1+2+3+4+5=15>10，b=6,因此就不再循环下去，输出，所以A=1+2+3+4+5，b=6，也就是循环的次数+1或者说最后一个加的数+1
2012年07月30日 06点07分
5
