vb for语句

Question

我编写的vb程序是提个简单的例子，希望print 出 1,2,4,5
for i= 1 to 5
if i= 3 then next i ‘这里我的意思是在当i=3 的时候跳过接下的语句，直接返回至for使i=4
print i
next i

可当我运行程序的是时候出现出现“编译错误”，“ if i= 3 then next i ”处的 “next 没有for”。请问这是什么原因，求高手帮我修改。
修改要求，程序要和我的代码差不多，要有for和if语句。
谢谢

Answer 1

一、For循环的格式
For 循环变量 = 初值 To
终值 [Step 步长]
[循环体]
Next
循环变量
注意：步长>0 步长<0
当： 步长 > 0 时
循环执行1次的条件：循环变量 <= 终值 2、流程2（ 步长 < 0 ）
循环执行1次的条件：循环变量 >= 终值
二、强行退出FOR循环
EXIT FOR
例1、计算：100以内所有奇数的平方和。 例2、输入一个单词，判断其中是否存在“a”。
（函数：len mid left right）
Private Sub Form_click() Dim x As Integer
For x = 1 To 3 Print "hello" Next x End Sub

Answer 2

　　一、VB中的For语句格式：

　　For<循环变量>=<初值>To<终值>[Step步长]
　　<循环体>
　　[Exit For]
　　Next<循环变量>
　　二、VB中的For语句功能：

　　当循环变量的值在初值到终值范围内时，执行一次循环体中的语句块，并使初值增加一个步长。当循环变量的值不在初值到终值范围内时，就退出循环，执行Next后面的语句。For循环语句执行的流程图。

Answer 3

这里两个next而只有一个for肯定出错。
你可以换一角度考虑问题，当i=3直接跳过，也就是i<>3时要执行，代码如下：
for i= 1 to 5
if i<>3 then print i
next i

Answer 4

For = To [Step ]
……
……
Next
在默认情况下，Step被设为“1”，可以省略，Step也可以设为负值，例如：
Dim a=0
For I=1 To 10
a=a+I
Next I
这是一个最简单的累加器的例子，把1到10累加在一起，然后赋值给“a”这样的效果和上面是一样的，只不过是倒着加罢了，请看：
Dim a=0
For I=10 To 1 Step –1
a=a+I
Next I
While语句也是一个很常用的循环语句，它的形式很多。

Do While …… Loop语句

While …… Wend 语句

Do …… Loop While
While后面都跟逻辑条件判断，“Do While …… Loop语句”和“While …… Wend 语句”作用相似，都是先判断While后面的条件是否为“真”，如果为“真”则执行里面的语句，如果为“假”，则退出循环，循环直至条件为“假”终止。“Do …… Loop While ”与前两者的区别在于，它不管条件的真假，都会先执行“Do”后面的语句，也就是说，它至少执行语句一次。
与While用法相似的还有Until语句，它是直至条件为真则终止循环，句式把While上述三个语句的While换成Until即可，但是因为容易记混，所以我建议只用While即可。Until 可以相当于While Not 。
For循环和Whlie循环应当根据适当的环境使用，它们有时也可替换。
-------------------------------------------------------------
最好找点资料看看，像VB神童教程，新手还是很容易看懂的。希望对你有帮助。。。

Answer 5

For 是用来循环执行一系列操作的语句。语法如下：

for 循环变量=起始值 to 终止值 [STEP] 步长
<要执行的语句序列>
next [循环变量]

循环变量要事先定义，循环执行的次数=终止值与起始值的差的绝对值除以步长再取整数部分
比方说要连续输出10个*，就这样写
dim i as integer '这句定义变量
for i=1 to 10
print "*"; '连续输出
next i

程序运行时要先看循环变量当前值是否超过终止值，如果超过就不执行内容，如果没超过就执行一次，然后让变量值按步长值增加或减少。默认情况下。步长与step如果省掉的话步长值为1，如果你需要变量不按1增加的话就需要加上step与步长值。

例如：
dim i as integer
for i=1 to 10 step 2
print "*";
next i
这段程序运行就只会输出5个*

还可以让循环倒着来
例如：
dim i as integer
for i=10 to 1 step -1
print "*";
next i