Question

计算机二级VB考试，求解一道题

Private Sub Form_Click()
Dim a As Integer, j As Integer
i = 10
Do
i = i + j
For j = 10 To step - 3
i = i + j
Next j
Loop While i < 50
Print i; j
End Sub
怎么做，求详解，22号考试了，之前木有认真，现在在挣扎中，求助吖各位大大

Answer 1

Private Sub Form_Click() '窗体单击事件过程，以下过程发生在 窗体单击 事件中
Dim a As Integer, j As Integer '定义两个整型变量，但是判断可能应该是i，而不是a
i = 10 '给变量i赋值
Do 'Do……While循环开始
i = i + j '把i+j赋给i
For j = 10 To step - 3 'For……Next循环开始，说明循环变量j初值为10，按照VB的习惯，Step为保留字，所以你的语句应该是漏掉了J的终值，而j的步长为-3
i = i + j '把i+j赋给i
Next j '改变循环变量，判断j是否满足循环条件，满足的话进行下一轮循环
Loop While i < 50 'Do……While循环控制，当i<50时继续循环，否则就终止循环
Print i; j '在窗体上输出i和j的值
End Sub '结束窗体单击事件过程

在窗体上输出的结果为50 10
也就是i=50，j=10

追问

为什么是50 10

追答

For j = 10 To step - 3 'For……Next循环开始，说明循环变量j初值为10，终值为0-3=-3，而的步长为1，所以不执行。
也就成了do循环自己执行了，每次加10 ，当i=50的时候，退出Do循环
所以i=50，j=10（J的初值是10）

Answer 2

- -是让写i j分别是多少么.....就是do loop里面套了一个for啊......
for j=10 to step -3中取10 7 4 1四个值，循环一次i会增加10+7+4+1=22.
所以循环两次do loop就结束了...i=54 j=1
by the way。这种题 用VB写一个就明白了.....你在循环中加个print i,j 这样每次循环的i j值就都能显示出来了 很好分析的。

追问

答案上写的i=50 j =10，不懂

追答

囧.....这答案略神.....应该不是吧。手头没装VB 还是自己试试吧...

追问

就是看不太懂，然后试了一下，真的是50 10 ····茫然

追答

擦 看完楼上，我发现了。。。你to后面没有终值么.....

Answer 3

i=32，j=1

Answer 4

10 to 什么？