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

roych

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

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

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

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

復(fù)制代碼

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

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

復(fù)制代碼

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

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

復(fù)制代碼

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

1. Sub test()
   
2. Dim m As Integer, i As Integer
   
3. m = InputBox("請(qǐng)輸入一個(gè)數(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; "是質(zhì)數(shù)"
    
12. End If
    
13. End Sub
    

復(fù)制代碼

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

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

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

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

ysh5858

頂一個(gè)！

ysh5858

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

roych

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

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

yanwei82123300

謝謝分享

xie62

謝謝分享

efcndi

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

風(fēng)中漫步

我要好好學(xué)學(xué),老記不住.謝謝講解

tmtony

謝謝分享

ycxchen

學(xué)習(xí)！