从你的例子来看你要实现的功能是
成都创新互联专业为企业提供莲池网站建设、莲池做网站、莲池网站设计、莲池网站制作等企业网站建设、网页设计与制作、莲池企业网站模板建站服务,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、最后运行就可以看到这个结果了。