189 8069 5689
For 是用来循环执行一系列操作的语句。语法如下：
创新互联公司是网站建设技术企业，为成都企业提供专业的成都网站建设、网站制作，网站设计，网站制作，网站改版等技术服务。拥有10多年丰富建站经验和众多成功案例，为您定制适合企业的网站。10多年品质，值得信赖！
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
1、首先，我们输入For关键字。
2、然后我们定义一个循环变量。
3、然后我们写入【1 to 10】。
4、然后我峨眉呢输入【Next i】结束。
5、然后我们就可以在这里输入每次执行的语句。
6、最后运行就可以看到这个结果了。
你先新建一个控制台应用程序，然后全部复制就行了，用 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
多方便
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 只是一个变量，晕，可以改成别的。