VB~~For循环的问题

1.Private Sub command1_Click()
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序运行后,单击命令按钮,输出结果是???怎么解题呢????

2.
执行下面程序后,a的值为???
For i= 1 To 3
For j=1 To i
For k=j To 3
a=a+2
Next k
Next j
Next i
Print a
怎么解题呢????

特别想问,解这些For循环结构的时候,思路是什么,我本人对简单还懂点,但是遇到多重循环,内循环那么多,什么Next,那么多的NEXT,我看着都眼花了,请高手指点我一下,怎么做这些题目呢~~~~~~~~
谢谢~~~~~~~~~~~~~~~~

虽然程序中有3重循环,但仔细观察发现,x=3把前面的内容代替了,只剩下最内的结果,即3+6+6=15

第二题同样是三重循环
当I=1时 J= 1 K= 1 TO 3 循环3次
当I=2时 J=1 TO 2
1).当J=1时 K=1 TO 3 循环3次
2).当J=2时 K=2TO 3 循环2次
当I=3时 J=1 TO 3
1).当J=1时 K=1 TO 3 循环3次
2).当J=2时 K=2TO 3 循环2次
3).当J=3时 K=3TO 3循环1次
总共循环了3+3+2+3+2+1=14次
所以a=28
温馨提示:内容为网友见解,仅供参考
第1个回答  2007-08-05
第一题:输出15 ;每次循环 i,j ,k的结果是一样的 。x 的值 永远都是 k 循环时 得到的。
第二题:…………
写好程序 设置好断点 一步步调试吧。

vb循环问题
For K = 1 To 2 Step -1 Print“你好!”Next K 系统首先执行For语句,把1赋予变量K ==> 因为步长为负数,判断 K >=2吗?不 ==> 循环结束。同样可见,循环体内的语句“Print “你好!””一次也没有被执行,其实没有发生循环。所以,你的问题是步长为负数,一开始循环控制变量为1,而循...

关于VB中for循环的问题
代码中有三层FOR循环,其次数并非简单的累乘。我们逐层分析,以i为循环变量时,每次循环的次数如下:当i为1时,j从1循环至1,k从1循环至3,此层循环3次。当i为2时,j从1循环至2,k从1循环至3,以及k从2循环至3,此层循环5次。当i为3时,j从1循环至3,k从1循环至3,k从2循环至3,以...

vb中一个简单for循环的问题
For 循环变量=初值 To 终值 [Step 步长][语句]Next[循环变量]当步长缺省时,缺省值为1。在Visual Basic中For循环属于“先检查后执行”语句,这种语句的执行过程:当步长为正,“循环变量”首先取得“初值”,检查是否超过“终值”,如果超过就一次也不执行而跳出循环。如果没有超过就执行循环体内的语句...

VB FOR循环菜鸟问题
在第一层循环,你的x始终是等于4,所以相当于没循环一样,就等价于给x赋值4 所以原程序等价于:x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j 同理,第二层循环x也是定植,所以也相当于给x赋值,所以源程序等价于:x = 4 x = 3 For k = 1 To ...

VB FOR 循环问题~
进入循环。当开始执行 For...Next 循环时,Visual Basic 将计算start、end 和 step(仅此一次)。然后将 start 赋予 counter。运行语句块之前,它先将 counter 与 end 进行比较。如果 counter 已经超过了结束值,则 For 循环终止,并且控制将传递给 Next 语句后面的语句。否则,将运行语句块。循环的...

vb中的for循环问题,求解释
回答:For i = 1 To 4 x = 4 For j = 1 To 2 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i 执行顺序 i=1 x=4 j=1 x=3 k=1 x=x+6 得x=9 k=2 x=x+6 得x=15 i=1 x=4 j=2 x=3 k=1 x=x+6 得x=9 k=2 x=x+6 得x=15 虽然有...

一道VB填空题 关于FOR循环的
因为前二个for循环将x=3,应该不用过多的介绍,很好看。关键是最后一个for循环,从1到2循环2次。第一次循环:x=3+5=8 第二次循环:x=8+5=12 故最后结果为13 希望楼主可以明白,对楼主有所帮助。

vb for循环 一个小小的问题
方法一:每个结果用逗号隔开,最好把txt拉宽一些 txtFond.text = txtFond.text & 结果 & ","方法二:每个结果完了换一行。但是要把txt拉高一些,再把txt的换行属性打开,txtFond.MultiLine = True就可以了 txtFond.text = txtFond.text & 结果 & vbCrlf ...

VB For 循环问题
List1的序号要从0开始,没法从10开始的 你第一个改成for i=0 to 20,也没问题 第二个循环开始时,i默认为0

VB中的For循环的问题
Step-1 表示每一步减1,也就是循环第一次是i=4,然后是i=3,i=2 这是称为“冒泡法”的排序方法,可以这样理解:外循环表示需进行几轮比较,对4个元素进行比较排序,需要进行3轮比较,所以For i = 4 To 2 Step -1。而内循环则可以这样说:第一次是i=4,a(1)与a(2)、a(2)与a(3)、...

相似回答