简单 vb 循环

easonzgf 发布于 2014-12-04 11:35， 686 次点击

private sub command1_click()
   dim m as integer , n as integer
   m=1
for n = 1 to 15
   m= m*n
   if m >15 then
exit for
else
n=n+1
end if
next n
print m;n
end sub
程序运行后输出结果为15  7，不太明白为什么？求解释一个这个程序！

9 回复

xzlxzlxzl2014-12-04 12:59

输出结果应该是105,7吧。

txxb2014-12-04 13:28

我怎么算的m=24

风吹过b2014-12-04 13:30

你自己运行一下程序，在 next n 前面再加一个行 print m;n
看一下前面四次输出的结果就应该能明白

lianyicq2014-12-04 14:16

按代码顺序执行:
m=1、n=1、m=1、n=2(n=n+1)、n=3(next n)、m=3、n=4(n=n+1)、n=5(next n)、m=15、n=6(n=n+1)、n=7(next n)、m=105

txxb2014-12-04 14:22

(next n)也加一，没想到。知道了，前几天还为这个问题迷惑呢。
for n=1 to 5
n=6
next n
我原来以为执行5次循环

easonzgf2014-12-04 18:14

回复楼主 easonzgf

答案是15,7

easonzgf2014-12-04 18:14

回复 4 楼风吹过 b

好的，谢谢~

easonzgf2014-12-04 18:18

答案有问题！应该是105,7

#10

sccotsong2014-12-05 13:20

回复 5 楼 lianyicq

厉害