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

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

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

復制代碼

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

游客，如果您要查看本帖隱藏內容請回復

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

游客，如果您要查看本帖隱藏內容請回復

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

游客，如果您要查看本帖隱藏內容請回復

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

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

復制代碼

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

坐下學習

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

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

頂，通俗易懂，學習！

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

謝謝分享

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

看看，學學

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

{:soso_e163:}

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

學習。。。。。

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

學習

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

{:soso_e179:}

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

不錯不錯

帳號		自動登錄	找回密碼
密碼			注冊

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

主題相關群

地區(qū)相關群[您還沒設置居住地]

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

本帖被以下淘專輯推薦:

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