一道Vb程序题，各位大侠能不能给个详细的解答过程

来源：百度知道 编辑：UC知道 时间：2024/07/02 11:44:42
Private Sub Cmd1_Click()
Dim p as integer,I as intger,n as integer
p=2:n=20
For I=1 to n step p
p=p+2
n=n-3
I=I+1
If p>=10 Then exit For
Next I
Print I,p,n
End Sub

就是搞不懂I,p,n变化了后是怎么算的。大侠能不能给个详细的过程，感激不尽。

Private Sub Command1_Click()
Dim p As Integer, I As Integer, n As Integer
p = 2: n = 20 'p和n赋初值P=2,N=20
For I = 1 To n Step p '进入循环,I赋初值1,步长为P即2,并判断I的值1不小于终值N即20
p = p + 2 'p的值变为P=P+2=2+2=4
n = n - 3 'N的值变为N=N-3=20-3=17
I = I + 1 'I的值变为I=I+1=1+1=2
If p >= 10 Then Exit For '判断P=4是否大于或等于10,不成立
Next I 'I=I+步长=2+2=4,返回For

'为方便叙述,把重复执行的程序再写一遍:
'For I = 1 To n Step p '重复执行循环,步长仍为2(并不随P的值变化而变化),并判断I=4不小于终值N=17
'p = p + 2 'p的值变为P=P+2=4+2=6
'n = n - 3 'N的值变为N=N-3=17-3=14
'I = I + 1 'I的值变为I=I+1=4+1=5
'If p >= 10 Then Exit For '判断P=6是否大于或等于10,不成立
'Next I 'I=I+步长=5+2=7,返回For

'为方便叙述,把重复执行的程序写第三遍:
'For I = 1 To n Step p '重复执行循环,判断I=7不小于终值N=14
'p = p + 2 'p