Question

VB题目求解答

Private Sub Command1_Click()
Dim a As Integer, b As Integer, i As Integer
a = 2: b = 5
For i = a To a * b Step a
Call sub1(i, a, b)
Print a, b
next i
Print a, b, i
End Sub
Private Sub sub1(i As Integer, a As Integer, b As Integer)
i = i + 1
a = a + 1
b = b + 1
End Sub
每一步怎么做，怎么循环

Answer 1

For循环语句要了解循环结构和循环运行方式：
循环结构包括：循环变量，循环范围，步长，循环部分，Next。
1、循环变量的值，决定循环什么时候终止。
2、循环范围决定循环变量决定是否循环的判断依据。
循环范围一旦确定，不再发生改变。
3、步长表示循环执行到Next处，循环变量如何改变。

看你的代码：
a = 2 : b = 5
For i = a To a * b Step a

就是For i = 2 to 2 * 5 Step 2
循环变量是 i
循环范围是： 2 to 10
步长是： 2
第一次循环开始的时候，i = 2,a=2,b=5，
Call Sub1后，是i = 3，a = 3,b =6
Print a, b '显示结果 ： 3,6

然后到Next：执行 i = i + 步长 = 3 + 2 = 5
i = 5 在2 to 10范围内，所以进入第二次循环：
此时： i =5,a = 3,b=6
Call Sub1后，是i = 6，a = 4,b =7
Print a, b '显示结果 ： 4,7

然后到Next：执行 i = i + 步长 = 6 + 2 = 8
i = 8 在2 to 10范围内，所以进入第三次循环：
此时： i =8,a = 4,b=7
Call Sub1后，是i = 9，a = 5,b =8
Print a, b '显示结果 ： 5,8

然后到Next：执行 i = i + 步长 = 9 + 2 = 11
i = 11 超出2 to 10范围，所以循环结束。

Pring i,a,b 11,5,8
程序结束！