大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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 只是一个变量,晕,可以改成别的。