【新手入門】之四：循環(huán)語句Do和死循環(huán)

roych

        上一節(jié)詳細地講完了For語句，現(xiàn)在開始講Do語句。Do的常用格式有以下幾種：

執(zhí)行情況	條件不成立
先判斷再執(zhí)行（可能不執(zhí)行）	Do [Until 條件不成立 或者 While 條件成立]       執(zhí)行語句       [Exit Do] Loop
先執(zhí)行在判斷（至少執(zhí)行一次）	Do            執(zhí)行語句       [Exit Do] Loop [Until 條件不成立 或者 While 條件成立]

       除此以外，還有一個大家可能不太熟悉的While語句。
       While 條件成立
               執(zhí)行語句
       Wend
       再把上一節(jié)的題目“在深圳把Roy找出來”拿出來，用Do來解決：

1. 
   
2. Do While 男生.Name<>"Roych"
   
3.      繼續(xù)找
   
4. Loop

復制代碼

從這一點可以看得出，和For相比，Do是不需要找到深圳有多少人口的，也不需要知道要查多少次，只知道在各個進出關口檢查姓名就可以了（這聽起來好像通緝令耶{:soso_e127:}）。簡單點說，Do只需要知道執(zhí)行的條件，而無需得知執(zhí)行次數(shù)或者元素個數(shù)等。因此在某些時候，Do比For更方便。例如：

1. Sub test()
   
2. Do Until  Val(x) >= 2
   
3. x = InputBox("請輸入大于或等于2的正整數(shù)", "輸入提示", 2)
   
4. Loop
   
5. End Sub

復制代碼

這一段代碼并不完善（例如輸入數(shù)字字母混合的字符串后也是可以的），在這里只是作為一個舉例來給大家一個思路而已。從這一點來看，Do顯得比For更霸道一些，只要條件不符合就一路彈窗。
       因此，寫Do語句時，大家必須小心使用判斷條件，否則容易陷入死循環(huán)或發(fā)生溢出錯誤。如果對于死循環(huán)無法理解，可以參考下面這段代碼：

1. 
   
2. Sub test()
   
3. '想終止程序時請按下Ctrl+Pause組合鍵
   
4. Do Until k >= 2
   
5.       MsgBox K
   
6. Loop
   
7. End Sub

復制代碼

這是因為k的初始值為0，永遠都無法滿足條件k>=2，因此只能“彈”死你。事實上，任何循環(huán)語句都可能導致這樣的死循環(huán)，只是Do具有更高的隱秘性，以至于不被重視罷了。以下是一個VB的一個經典例子（判斷質數(shù)或者合數(shù)）：

1. Sub test()
   
2. Dim m As Integer, i As Integer
   
3. m = InputBox("請輸入一個數(shù)：", "輸入提示")
   
4. i = 2
   
5. Do Until (m Mod i = 0) Or i = m - 1
   
6.     i = i + 1
   
7. Loop
   
8. If m Mod i = 0 Then
   
9.     Debug.Print m; "是合數(shù)"
   
10. Else
    
11.     Debug.Print m; "是質數(shù)"
    
12. End If
    
13. End Sub
    

復制代碼

事實上大于2以上的數(shù)值，可以用平方根來代替里面的i=m-1以便減少運行次數(shù)。此外大家也可以用For語句來寫寫看，應該不算太難。

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

      至此，語句部分算是講完了（如有不懂的請發(fā)帖提問）。后面將重點講講一些常用算法。
【新手入門】之一：If分支語句
【新手入門】之二：分支語句總結
【新手入門】之三：循環(huán)語句For
【新手入門】之四：循環(huán)語句Do和死循環(huán)
【新手入門】之五：公共變量與傳址過程、傳值過程
【新手入門】之六：“悲歡離合總無情”——淺談Split和Join
【新手入門】之七：嵌套與并列——再談If流程問題
【新手入門】之八：“連就連”——淺談“&”和“+”連接符的區(qū)別
【新手入門】之九：從百錢百雞談起——淺談“規(guī)劃求解”兼答lingjiang問
【新手入門】之十：書到用時方恨少——自定義菜單（Access 2003）的制作
【新手入門】之十一：淺談ADO之序言
【新手入門】之十二：淺談ADO之Connection
【新手入門】之十三：淺談ADO之Conmmand（上）
【新手入門】之十四：淺談ADO之Command（下）
【新手入門】之十五：淺談ADO之Recordset（上）
【新手入門】之十六：淺談ADO之Recordset（下）
【新手入門】之十七：淺談列表框的使用
【新手入門】之十八：雙擊列表框修改數(shù)據(jù)
【新手入門】之十九：從“書與女友恕不外借”談起——淺談“Bookmark”的使用
【新手入門】之二十：“書與書簽”——bookmark屬性答疑
【新手入門】之二十一：記錄集的“凌遲”——逐條導出記錄集

【新手進階】之一：基礎算法（一）
【新手進階】之二：基礎算法（二）
【新手進階】之三：基礎算法（三）
【新手進階】之四：基礎算法（四）
【新手進階】之五：排序搜索（一）
【新手進階】之六：排序搜索（二）
【新手進階】之七：遞歸算法
【新手進階】之八：冒泡排序
【新手進階】之九：淺談不綁定數(shù)據(jù)源操作記錄
【新手進階】之十：工作日的計算
【新手進階】之十一：“庖丁解�！焙汀凹o昌學射”——淺談表格式文本數(shù)據(jù)的導入
【新手進階】之十二：從四腳騰空的奔馬談起——原來界面可以這樣設計
【新手進階】之十三：Outlook風格導航界面
【新手進階】之十四：倉庫管理系統(tǒng)

ysh5858

頂一個！

ysh5858

版主，如何判斷子窗體數(shù)據(jù)為空？例我在窗體上設置一個控件，對子窗體進行控制，當子窗體數(shù)據(jù)為空時，操作不提示出錯？
（我現(xiàn)在遇到的問題是，當子窗體有數(shù)據(jù)時，點擊控件操作時可以運行，如果子窗體無數(shù)據(jù)時提示出錯）請教，謝謝！

roych

ysh5858 發(fā)表于 2012-3-4 18:20
版主，如何判斷子窗體數(shù)據(jù)為空？例我在窗體上設置一個控件，對子窗體進行控制，當子窗體數(shù)據(jù)為空時，操作不 ...

此問題和本帖無關。
如果子窗體綁定數(shù)據(jù)表時，可以通過RecordCount來判斷(記得先MoveLast再MoveFirst，否則RecordCount計算不準確）：
Me.子窗體.Form.Recordset.RecordCount

yanwei82123300

謝謝分享

xie62

謝謝分享

efcndi

看看，學學

風中漫步

我要好好學學,老記不住.謝謝講解

tmtony

謝謝分享

ycxchen

學習！