VB的For…Next循環(huán)語句

1、VB 的 ForNext 循環(huán)語句當(dāng)你知道你需要重復(fù)運(yùn)多少次某段語句時(shí),可以使 ForNext 語句。它的語法如 下:For 計(jì)數(shù)器 = 開始 To 結(jié)束 步 語句 1語句 2語句 NNext 計(jì)數(shù)器 括號(hào)的代碼是可選的。計(jì)數(shù)器是個(gè)儲(chǔ)存反復(fù)次數(shù)的數(shù)字型變量,開始是你期望的 起始計(jì)數(shù)點(diǎn),結(jié)束則表明循環(huán)應(yīng)該執(zhí)多少次。例如,你想要重復(fù)執(zhí)循環(huán)的語句 5次,使下述 For 語句:For counter = 1 To 5你的語句Next當(dāng) VB 遇到關(guān)鍵字 Next 時(shí),它將回到循環(huán)的開始處,并且再次執(zhí)循環(huán)的代碼,直 到計(jì)數(shù)器到達(dá)結(jié)束值。旦計(jì)數(shù)器的值于關(guān)鍵字 To 后的數(shù)值, VB 就會(huì)跳出循 環(huán)。因?yàn)橛?jì)

2、數(shù)器變量在每次執(zhí)循環(huán)后會(huì)動(dòng)地變化,它早晚會(huì)超出結(jié)束的值。每次 VB 執(zhí)循環(huán)的語句后,變量計(jì)數(shù)器的值會(huì)默認(rèn)地增加 1,你可以使 Step 語句來改 變這個(gè)默認(rèn)設(shè)置。例如,要使計(jì)數(shù)器每次增加 3,就可以使以下語句:For counter = 1 To 5 Step 3你的代碼Next counter當(dāng) VB 遇到上的語句,它會(huì)執(zhí)循環(huán)的語句兩次。在第次的循環(huán), counter 等 于 1,第次則等于 4(3+1。在執(zhí)兩次循環(huán)后, counter 就等于 7(4+3,這導(dǎo)致 VB 退出該循環(huán)。注意,步長(Step 是可選的?？蛇x語句總是顯則括號(hào)(參加本段開頭部分 的語法。步長不需要明確,除它不等于 1

3、。你可以在 Step 后放個(gè)負(fù)值作為步長, 那么 VB 每次遇到關(guān)鍵字 Next 后都會(huì)將計(jì)數(shù)器減。關(guān)鍵字 Next 后的變量名稱(counter 也是可選的,然,好的編程習(xí)慣是要強(qiáng)制在 關(guān)鍵字 Next 后加上計(jì)數(shù)器。如何將 ForNext 循環(huán)使在 Excel 呢?假使你只想要在你的銷售報(bào)告包括某 個(gè)特定 份的產(chǎn)品銷售,當(dāng)你從 Access 導(dǎo)數(shù)據(jù)時(shí),你同樣也會(huì)將那些銷售額為 0的數(shù)據(jù) 起導(dǎo)。你如何快速取出數(shù)據(jù)為 0的呢?盡管,有很多種法可以解決這個(gè)問題,但 是,我們來看看如何使 ForNext 循環(huán)來處理這個(gè)問題吧。1. 在 VB 窗,在當(dāng)前程插個(gè)模塊并且命名為 ForNextLoop2

4、. 在 ForNextLoop 模塊輸下列過程:Sub DeleteZeroRows(Dim totalR As IntegerDim r As IntegerRange(A1.CurrentRegion.SelecttotalR = Selection.Rows.CountRange(B2.SelectFor r = 1 To totalR-1If ActiveCell = 0 ThenSelection.EntireRow.DeletetotalR = totalR 1ElseActiveCell.Offset(1, 0.SelectEnd IfNext rEnd Sub3. 切換到 Ex

5、cel 界,并且準(zhǔn)備下述表格:4. 運(yùn)過程 DeleteZeroRows 。我們來接地檢查下過程 DeleteZeroRows 。開始兩語句計(jì)算當(dāng)前區(qū)域的總數(shù),并 且將該值儲(chǔ)存于變量 totalR ,接下來, VB 選擇單元格 B2然后遇到關(guān)鍵字 For 。因?yàn)殡姳砀?的第包含了列標(biāo)題,所以要從總數(shù)減掉 1(totalR-1。VB 將需要執(zhí)循環(huán)的指令 6次。嵌套在循環(huán)的條件語句(IfThenElse 告訴 VB 根據(jù)當(dāng)前活動(dòng)單元格的值作出決定。如果該值為 0, VB 就刪除當(dāng)前,并且將總數(shù)減掉 1。否則,條件為假,因此, VB 將選擇下的單元格。VB 每完成次循環(huán),它就跳到關(guān)鍵字 For 來較 r 的值和 totalR-1的值。當(dāng)過程結(jié)束 后,銷售表就不會(huì)包含沒有銷售的產(chǎn)品了。技巧:成對語句For 和 Next