從你的例子來(lái)看你要實(shí)現(xiàn)的功能是
成都創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供蓮池網(wǎng)站建設(shè)、蓮池做網(wǎng)站、蓮池網(wǎng)站設(shè)計(jì)、蓮池網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)與制作、蓮池企業(yè)網(wǎng)站模板建站服務(wù),10年蓮池做網(wǎng)站經(jīng)驗(yàn),不只是建網(wǎng)站,更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。
在
i=0
到
10
中
如果
i=3
就跳過(guò)
msgbox
("ok")
指令,否則執(zhí)行該指令。
你可從另一方面來(lái)考慮。程序可以這樣寫(xiě):
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的奇數(shù)和為:" sSum,"提示"
==========================================
Sum 是關(guān)鍵字,是個(gè)系統(tǒng)函數(shù)
sSum 只是一個(gè)變量,暈,可以改成別的。
你先新建一個(gè)控制臺(tái)應(yīng)用程序,然后全部復(fù)制就行了,用 Ctrl + F5 調(diào)試
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
其實(shí)你這樣不就好了
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 是用來(lái)循環(huán)執(zhí)行一系列操作的語(yǔ)句。語(yǔ)法如下:
for 循環(huán)變量=起始值 to 終止值 [STEP] 步長(zhǎng)
要執(zhí)行的語(yǔ)句序列
next [循環(huán)變量]
循環(huán)變量要事先定義,循環(huán)執(zhí)行的次數(shù)=終止值與起始值的差的絕對(duì)值除以步長(zhǎng)再取整數(shù)部分
比方說(shuō)要連續(xù)輸出10個(gè)*,就這樣寫(xiě)
dim i as integer '這句定義變量
for i=1 to 10
print "*"; '連續(xù)輸出
next i
程序運(yùn)行時(shí)要先看循環(huán)變量當(dāng)前值是否超過(guò)終止值,如果超過(guò)就不執(zhí)行內(nèi)容,如果沒(méi)超過(guò)就執(zhí)行一次,然后讓變量值按步長(zhǎng)值增加或減少。默認(rèn)情況下。步長(zhǎng)與step如果省掉的話步長(zhǎng)值為1,如果你需要變量不按1增加的話就需要加上step與步長(zhǎng)值。
例如:
dim i as integer
for i=1 to 10 step 2
print "*";
next i
這段程序運(yùn)行就只會(huì)輸出5個(gè)*
還可以讓循環(huán)倒著來(lái)
例如:
dim i as integer
for i=10 to 1 step -1
print "*";
next i
一、For循環(huán)的格式
For 循環(huán)變量 = 初值 To
終值 [Step 步長(zhǎng)]
[循環(huán)體]
Next
循環(huán)變量
注意:步長(zhǎng)0 步長(zhǎng)0
當(dāng): 步長(zhǎng) 0 時(shí)
循環(huán)執(zhí)行1次的條件:循環(huán)變量 = 終值 2、流程2( 步長(zhǎng) 0 )
循環(huán)執(zhí)行1次的條件:循環(huán)變量 = 終值
二、強(qiáng)行退出FOR循環(huán)
EXIT FOR
例1、計(jì)算:100以內(nèi)所有奇數(shù)的平方和。 例2、輸入一個(gè)單詞,判斷其中是否存在“a”。
(函數(shù):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關(guān)鍵字。
2、然后我們定義一個(gè)循環(huán)變量。
3、然后我們寫(xiě)入【1 to 10】。
4、然后我峨眉呢輸入【Next i】結(jié)束。
5、然后我們就可以在這里輸入每次執(zhí)行的語(yǔ)句。
6、最后運(yùn)行就可以看到這個(gè)結(jié)果了。