private sub command1_click()
dim i as integer,x as integer
for i = 1 to 6
    if i = 1 then x = i
    if i <=4 then
       x =x+1
       else
       x=x+2
    end if
next i

print x
end sub
结果为9，可是初学的我不太懂，哪位高手指点指点！

唉！还是不太明白，逐日大哥可以加一下你的QQ吗？想多点请教一下有关For语句知识！