189 8069 5689
从你的例子来看你要实现的功能是
成都创新互联专业为企业提供莲池网站建设、莲池做网站、莲池网站设计、莲池网站制作等企业网站建设、网页设计与制作、莲池企业网站模板建站服务，10年莲池做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
在
i=0
到
10
中
如果
i=3
就跳过
msgbox
("ok")
指令，否则执行该指令。
你可从另一方面来考虑。程序可以这样写:
dim
i
as
integer
for
i=0
to
10
if
i3
then
msgbox
("ok")
end
if
next
i
dim sSum as long
for i=1 to 100
if i mod 2 =1 then
sSum=sSum + i
endif
next i
msgbox "1、100的奇数和为：" sSum,"提示"
==========================================
Sum 是关键字，是个系统函数
sSum 只是一个变量，晕，可以改成别的。
你先新建一个控制台应用程序，然后全部复制就行了，用 Ctrl + F5 调试
Module Module1
Sub Main()
Dim temp As String = "*"
Dim i, j As Short
For i = 1 To 5 Step +2
For j = 1 To i
Console.Write("{0} ", temp)
Next j
Console.WriteLine("")
Next i
Console.ReadLine()
End Sub
End Module
其实你这样不就好了
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String = "*" vbCrLf "* * *" vbCrLf "* * * * *"
MessageBox.Show(a)
End Sub
多方便
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
一、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
1、首先，我们输入For关键字。
2、然后我们定义一个循环变量。
3、然后我们写入【1 to 10】。
4、然后我峨眉呢输入【Next i】结束。
5、然后我们就可以在这里输入每次执行的语句。
6、最后运行就可以看到这个结果了。