第一部分:for next循環(huán)語句用法和理解
VBA中for循環(huán)語句是程序流程控制語句。For Next 循環(huán)語句是編程中幾乎不可缺少的語句。
什么是循環(huán)語句呢?循環(huán)語句就是指重復(fù)地執(zhí)行語句塊。
理解for next循環(huán)語句,有一個經(jīng)典的解釋。兩萬米長跑比賽,每圈400米。一圈,兩圈,三圈......直到跑滿50圈才停止。就是在循環(huán)地在跑道上執(zhí)行跑步的動作。
for next循環(huán)語句的句式如下:
For 循環(huán)變量=初值 to 終值 step 步長
循環(huán)體1
[exit for]
循環(huán)體2
next 循環(huán)變量
for next循環(huán)語句句式理解:
從開始到結(jié)束,反復(fù)執(zhí)行For和Next之間的指令塊,除非遇到Exit For語句,將提前跳出循環(huán)。
其中,步長和Exit For語句以及Next后的循環(huán)變量均可省略,步長省略的時候默認為1。
Exit for 語句是強制終止循環(huán)的語句,執(zhí)行它后將退出循環(huán),執(zhí)行next后面的語句。
對for next循環(huán)語句句式進行了初步的認識后,用這個句式來敘述上面跑步的問題,將其編成程序,20000米,要跑50圈,也就是要50次,跑1圈,2圈。。。。直到滿50圈才停止循環(huán)跑步,當然,如果要提前退賽,就不用跑滿50圈了。for next循環(huán)語句程序可以寫成:
Sub 循環(huán)跑步()
dim 圈數(shù) as byte
for 圈數(shù)=1 to 50 step 1
If 學(xué)生.要求=退賽
exit for
End If
Next 圈數(shù)
End Sub
這不是一個完整的程序,只是幫助對For next循環(huán)語句的理解而已。
第二部分:for next循環(huán)語句實例練習(xí)
1.從A1單元格開始,對角線生成1-20的數(shù)字。要求:用一段fox next循環(huán)語句程序生成。
代碼如下:
Sub 循環(huán)()
Dim a As Byte
For a = 1 To 20 Step 1
Cells(a, a) = a
Next a
End Sub
代碼解釋:
sub 和end sub之間是一個過程
Dim a As Byte:申明變量a的類型為byte。如果省略此句,不做申明,變量將被指定為Variant類型,因為VBA中默認的數(shù)據(jù)類型是Variant。
關(guān)于變量類型,參考《excel中vba變量類型小結(jié)》
下面的For next是VBA中for next循環(huán)語句。
for next循環(huán)語句的句式如下:
For 循環(huán)變量=初值 to 終值 step 步長
循環(huán)體1
[exit for]
循環(huán)體2
next 循環(huán)變量
Cells(行,列) 表示單元格地址。
上面的代碼,按F8鍵,逐語句測試,如下圖所示:
For next循環(huán)語句第一次循環(huán)結(jié)束,得到結(jié)果A1為1。就是變量a第一次的值為1,將值套進單元格就是cells(1,1)=1,所以A1為1。
繼續(xù)按F8鍵,第二次到next a時,B2為1。這時變量a第二次循環(huán)的值為2,將值套進單元格就是cells(2,2)=2,所以B2為2。
以此類推,繼續(xù)循環(huán)下去,直到變量a的終止值20,結(jié)束循環(huán)。
下面這段代碼的運行結(jié)果等同于上面的代碼:
Sub 循環(huán)()
For a = 1 To 20
Cells(a, a) = a
Next
End Sub
2.1到100的自然數(shù)和
代碼如下:
Sub 求和()
Dim a As Long, i As Integer
For i = 1 To 100 Step 1
a = a + i
Next i
MsgBox "1到100的自然數(shù)和:" & a
End Sub
解釋:先申明變量類型,然后是一個for next循環(huán)體,i的值為1到100,變量a的值為a+i,然后用消息框輸出循環(huán)之后a的結(jié)果值。
核心關(guān)注:拓步ERP系統(tǒng)平臺是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用,蘊涵了豐富的ERP管理思想,集成了ERP軟件業(yè)務(wù)管理理念,功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理,全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域,是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請注明出處:拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標題:for循環(huán)語句用法實例
本文網(wǎng)址:http://www.ezxoed.cn/html/support/11139215970.html