一道VB题目，求详细的解题过程！谢谢

来源：百度知道 编辑：UC知道 时间：2024/05/25 13:53:53
Private Sub Command1_Click()
Dim x As Integer, j As Integer
i = 1: j = 1: x = 0
Do
Do
x = x + j
j = j + 2
Loop Until j > 4
i = i + 1
Print i
Loop While i < 4
Print x
End Sub
结果为什么是2 3 4 16

第一次到“Loop Until j > 4”
x=1,j=3,i=1 循环
第二次到“Loop Until j > 4”
x=4,j=5,i=1
因为5>4
不循环了，运行下面的
i=2(i = i + 1 ,Print i )
输出了2
因为“Loop While i < 4 ”
2<4,循环
这里要从第一个Do开始，
x=9,j=7,i=2(x = x + j ,j = j + 2 )
因为7>4,“Loop Until j > 4 ”不循环
i=3(i = i + 1 ,Print i )
输出3
因为“Loop While i < 4 ”
2<4,循环
这里又从第一个Do开始，
x=16,j=9,i=3(x = x + j ,j = j + 2 )
因为9>4,“Loop Until j > 4 ”不循环
i=4(i = i + 1 ,Print i )
输出4
因为“Loop While i < 4 ”
4=4,不循环
输出16（Print x ）
这时x=16,j=9,i=4