VB中关于FOR.......TO....的用法

来源：百度知道 编辑：UC知道 时间：2024/06/12 14:07:41
Private sub form_click()
dim a as integer,i as integer,j as integer
a=0
for i=1 to 5
for j=-2 to 2
a=a+i+j
next j
print a;
next i
print
print i,j,a
end sub

最后运行结果是：
5 15 30 50 75
6 3 75

我自己理解 next j 前 取i=1 然后j从-2 -1 0 1 2来循环，得出5个数
当取-2时时a=0+1-2=-1 类推 这样 跟运行结果不一样的呢 谁帮解释下
我想知道 next i 后并没有print a;语句了 怎么会有5个数出来5 15 30 50 75
还有后面的 print i,j,a 怎么来的： 6 3 75
谁来赐教下 想没明白...

堕落の露西法 :
a=0
for i=1 to 5
a=5*(a+i)
print a;
next i
运行结果是5 5+10 5+10+15 5+10+15+20 5+10+15+20+25 吗?
我没明白过来 a 是累加 每循环一次 a就变一次,第一个a就等于5 第二个a=5(5+2) 跟答案不符呀
a=5a+5i=5(a+i)

堕落の露西法 朋友 您说的那个等价 是不是应该为a=a+5i呢
i每循环一次 j就循环一轮 变量a=a+i+j 循环时(假如i=2),
a随j循环完一轮为: a=a+i+j+i+j+i+j+i+j+i+j (累加j为0) 则i=2时循环完j后 a=a+5i 如您说i=1时a=5 , 所以i=2时a=a+5i=5+5*2=15 ,类推i=3,a=30.....

For语句是用于确定循环次数的循环语句。例如：
For a = b To c (Step d)
...
Next (a)
其中，a是变量，b是初值，c是终值，d是步长。
第一次循环时，将初值b赋给a，执行完所有语句，返回执行第二次循环，将原来a的值加上步长，并判断a是否超出终值，超出则终止循环，以此类推。
d默认为1，即不写步长时，步长为1。b、c可以是常量，也可以是变量或者表达式，但是，当步长为正值时，b<c，步长为负值时，b>c，否则会出现错误。可以在此循环语句内用Exit For来强行终止循环，控制循环。可以使用循环嵌套，例如：
For a = 1 To 3
...
For b = 1 To 2
...
Next b
...
Next a
第二个...将被执行6次。
但是，严禁出现以下情况，将语句交叉使用：
For a = 1 To 3
...
For b = 1 To 2
...
Next a
...
Next b
我自己做过一个用于计算24点的程序，其中用到了许多For语句和If语句，如果你需要的话，可以给你参考：
For i = 0 To 3
For j = 0 To 3
For k = 0 To 3
For l = 0 To 3
b(0) = a(i) : b(1) = a(j) : b(2) = a(k) : b(3) = a(l)
If i <> j And i <> k And i <> l And j <> k And j <> l And k <> l Then JiSuan '调用JiSuan过程
Next l
Next k
Next j
Next i
===================================
这是其中