x = 6 For k = 1 To 10 Step -2 x = x + k Next Print k; x 为什么X=6

来源：学生作业帮助网编辑：作业帮时间：2024/04/26 23:34:46

x = 6 For k = 1 To 10 Step -2 x = x + k Next Print k; x 为什么X=6
x = 6 For k = 1 To 10 Step -2 x = x + k Next Print k; x 为什么X=6

x = 6 For k = 1 To 10 Step -2 x = x + k Next Print k; x 为什么X=6
x = 6
For k = 1 To 10 Step -2
x = x + k
Next
Print k; x
这是一段考查For/Next循环的题目,我告诉你我在给学生讲课过程中是如何教学生判断循环的：

判断循环是否执行,也就是判断初值是否“超过”终值,“超过”则循环体不执行,不“超过”,则循环体执行,注意此处的“超过”不是初值要小于终值,判断“超过”的方法如下：

主要看初值到终值的趋势与步长要求的趋势是否一致.
步长为正,则要求初值到终值的趋势为越来越大,应初值＜＝终值,若满足此要求,则为不“超过”,执行循环体,否则为“超过”,循环体不执行；
步长为负,则要求初值到终值的趋势为越来越小,应初值＞＝终值,若满足此要求,则为不“超过”,执行循环体,否则为“超过”,循环体不执行；
步长为0时,将造成“死循环”.

在这里步长为－2,即负数,要求初值到终值的趋势为越来越小,即应初值＞＝终值,可是此题中初值为1,终值为10,初值＜终值,与步长要求的趋势不同,为“超过”,则循环体不执行,也就是将直接执行Next后的语句,所以此处的“x=x+k”语句并不能得到执行,因此,x变量的值仍然为6.

此处还有一个小问题,即变量k的值.在执行到For语句时,计算出初值、终值和步长后（此处不用计算）将这三个值放入内存,并将初值赋给循环控制变量k,然后才去判断是否“超过”,所以尽管循环体未执行,但变量k的值依然为1.

所以最后的结果为：1 6

谁能替我仔细的分析一下这道题?x=6 for k=1 to 10 step -2 x=x+k next k print k;x x = 6 For k = 1 To 10 Step -2 x = x + k Next Print k; x 为什么X=6 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 X=15?为什么 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 Nex为什么只是加到第二步下列程序段的执行后,k,x 结果为 ____.　　　　x = 6 　　　　For k = 1 To 0 　　　　　x = x + k下列程序段的执行后,k,x 结果为 ____.　　　　x = 6 　　　　For k = 1 To 0 　　　　　x = x + k 　　　　Next For K=1 TO 20 For K=1 TO 20 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 NexPrivate Sub Command1_Click() For i = 1 To 4 x = 4For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next kNext jNext iPrint xEnd Sub For i=1 To 4 x=3 For j=1 to 3 For k=1 to 2 x=x+3 Next k Next j Next i text1.Value=Str(x) End Sub for i=1 to 4 x=4 for j=1 to 3 x=3 fork=1 to 2 x=x+6 next k next j next i msgbox x 为什么结果是15 VB循环题目x=6for k=1 to 10 step-2x=x+knext kprint k;x为什么不是-1,不是先从K=1开始吗?先6+1啊 p=1 For k From 1 To 10 Step p=p+2*k-6 End For Print p vb里x=6 for k=1to10 step -2 x=x+k next k print k;x private sub command_click() for i=1 to4 x=3 for j=1to3 for k=1 to 2 x=x+3 next k next j next i 输出输出str（x） VB题 a=5 For k=1 To 0 a=a+k Next k Print k；a 第一题SET TALK OFFSTORE 0 TO X,YDO WHILE．T．X=X+1Y=Y+XIF X>=5EXITENDIFENDDOX,YSET TALK ON第二题SET TALK OFFDIMESSIN A（6）FOR K=1 TO 6A（K）=20– 2*KENDFORK=5DO WHILE K>=2A（K）=A（K）- A（K – 1）K=K – 1ENDDOA（1）,A（3）, Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5 Print m(2 + m(x))VB的一个程序解一道vb函数题,private sub command1 _click(),for i =1to4 ,for j =1to3 ,x=3 ,for k=1to 2,x=x+3,n...解一道vb函数题,private sub command1 _click(),for i =1to4 ,for j =1to3 ,x=3 ,for k=1to 2,x=x+3,next k ,next j ,next i ,text1 .text =str(x