【新手入門】之三：循環(huán)語句For

roych · 發(fā)表于 2012-3-4 14:56:37

   按計(jì)劃應(yīng)該是上周完成的，由于臨時(shí)有事，只好推到現(xiàn)在才開始講循環(huán)語句了。
For語句語法：
   For 變量=初始值 To 終止值 [Step 步長值]
         執(zhí)行語句
         [Exit For]
Next [變量]
   步長值默認(rèn)為1，怎么理解步長值呢？先舉個(gè)例子：求1-100的奇數(shù)和。
怎么求奇數(shù)呢？根據(jù)奇數(shù)的定義，如果一個(gè)數(shù)除以2余1的都是奇數(shù)，而在VB中有個(gè)簡單的數(shù)學(xué)運(yùn)算符，就是Mod取模。綜上，得到第一段代碼：

Sub test1()
Dim i As Long
For i = 1 To 100
If i Mod 2 = 1 Then
j = j + i
End If
Next
Debug.Print j
End Sub

復(fù)制代碼

有沒有更簡單點(diǎn)的？當(dāng)然有了。由上面知道，我們只需要讓變量i每次向前跳過一個(gè)數(shù)就好了，怎么跳呢？答案很簡單：i=i+1

游客，如果您要查看本帖隱藏內(nèi)容請回復(fù)

第一次運(yùn)行時(shí)，初始值i=1，j=1，接著i賦值為i+1（即2），然后開始執(zhí)行i=2的語句（實(shí)際上這時(shí)候i=2+1=3了），因此得到第二個(gè)j=1（i=1時(shí)）+3(i=2+1時(shí)）=4，如此類推……當(dāng)然，更直接的辦法是，在j=j+1前面加上Debug.Print i，你將清楚地了解i的來龍去脈。
這個(gè)i=i+1不好理解，能不能更直接點(diǎn)？能！那就是現(xiàn)在要講的Step了：

游客，如果您要查看本帖隱藏內(nèi)容請回復(fù)

這Step可是個(gè)“跨欄”高手，跨過這50個(gè)“障礙物”可比劉翔還要快的噢。也許這時(shí)候有人不以為然了，它能倒著“跨欄”嗎？事實(shí)上，倒著并不難，只需要把“障礙物”倒著放就好了：

游客，如果您要查看本帖隱藏內(nèi)容請回復(fù)

   如果你足夠細(xì)心的話，這時(shí)候你會發(fā)現(xiàn)，咦，怎么不再是100開頭的呢？答案是：99才是第一個(gè)“障礙物”。以代碼test3為例，再問一個(gè)問題，如果Step為0或者大于等于100會怎么樣？——如果為0將不執(zhí)行代碼（這可不是“原地踏步”嘛），如果大于等于100則只執(zhí)行1次（因?yàn)橄乱徊揭呀?jīng)跳到100或100以上了，所以不再執(zhí)行）。Step就講到這里。
下面再簡單講講For的另一個(gè)形式：
For Each 元素 In 集合
      執(zhí)行語句
      [Exit For]
Next [元素]
例如，如果你想把在深圳的Roy找出來，但你又不知道Roy住在哪街哪巷，也不知道深圳有多少人口的話，那么你只需要執(zhí)行一下這段代碼，Roy馬上就出來了：

For Each 男生 In 深圳
If 男生.Name="Roych" Then
Msgbox "Roy，你媽喊你回家吃飯"
End If
Next 男生

復(fù)制代碼

風(fēng)中漫步 · 發(fā)表于 2012-3-4 15:08:35

坐下學(xué)習(xí)

ycxchen · 發(fā)表于 2012-3-4 15:12:50

本帖最后由 ycxchen 于 2012-3-4 15:13 編輯

頂，通俗易懂，學(xué)習(xí)！

xie62 · 發(fā)表于 2012-3-5 08:38:57

謝謝分享

efcndi · 發(fā)表于 2012-3-5 08:56:12

看看，學(xué)學(xué)

ljp518 · 發(fā)表于 2012-3-5 12:46:31

{:soso_e163:}

tmtming · 發(fā)表于 2012-3-5 16:59:02

學(xué)習(xí)。。。。。

renyucai1963 · 發(fā)表于 2012-3-5 17:12:24

學(xué)習(xí)

yori2007 · 發(fā)表于 2012-4-1 22:51:44

{:soso_e179:}

大懶貓68 · 發(fā)表于 2012-4-2 00:06:34

不錯(cuò)不錯(cuò)

帳號		自動(dòng)登錄	找回密碼
密碼			注冊

群介紹
Access培訓(xùn)群 (792054000)
Access免費(fèi)培訓(xùn)群2 (792054000)
Access經(jīng)典源碼培訓(xùn)群 (77130759)
Access源碼技巧群 (138920637)
access vba (307776555)

主題相關(guān)群

地區(qū)相關(guān)群[您還沒設(shè)置居住地]

[模塊/函數(shù)] 【新手入門】之三：循環(huán)語句For

本帖被以下淘專輯推薦:

群介紹
主題無相 (隨機(jī)顯示版	同地區(qū)群塊其他地區(qū))