【新手入门】之四：循环语句Do和死循环

roych

        上一节详细地讲完了For语句，现在开始讲Do语句。Do的常用格式有以下几种：

执行情况	条件不成立
先判断再执行（可能不执行）	Do [Until 条件不成立 或者 While 条件成立]       执行语句       [Exit Do] Loop
先执行在判断（至少执行一次）	Do            执行语句       [Exit Do] Loop [Until 条件不成立 或者 While 条件成立]

       除此以外，还有一个大家可能不太熟悉的While语句。
       While 条件成立
               执行语句
       Wend
       再把上一节的题目“在深圳把Roy找出来”拿出来，用Do来解决：

1. 
   
2. Do While 男生.Name<>"Roych"
   
3.      继续找
   
4. Loop

复制代码

从这一点可以看得出，和For相比，Do是不需要找到深圳有多少人口的，也不需要知道要查多少次，只知道在各个进出关口检查姓名就可以了（这听起来好像通缉令耶{:soso_e127:}）。简单点说，Do只需要知道执行的条件，而无需得知执行次数或者元素个数等。因此在某些时候，Do比For更方便。例如：

1. Sub test()
   
2. Do Until  Val(x) >= 2
   
3. x = InputBox("请输入大于或等于2的正整数", "输入提示", 2)
   
4. Loop
   
5. End Sub

复制代码

这一段代码并不完善（例如输入数字字母混合的字符串后也是可以的），在这里只是作为一个举例来给大家一个思路而已。从这一点来看，Do显得比For更霸道一些，只要条件不符合就一路弹窗。
       因此，写Do语句时，大家必须小心使用判断条件，否则容易陷入死循环或发生溢出错误。如果对于死循环无法理解，可以参考下面这段代码：

1. 
   
2. Sub test()
   
3. '想终止程序时请按下Ctrl+Pause组合键
   
4. Do Until k >= 2
   
5.       MsgBox K
   
6. Loop
   
7. End Sub

复制代码

这是因为k的初始值为0，永远都无法满足条件k>=2，因此只能“弹”死你。事实上，任何循环语句都可能导致这样的死循环，只是Do具有更高的隐秘性，以至于不被重视罢了。以下是一个VB的一个经典例子（判断质数或者合数）：

1. Sub test()
   
2. Dim m As Integer, i As Integer
   
3. m = InputBox("请输入一个数：", "输入提示")
   
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; "是合数"
   
10. Else
    
11.     Debug.Print m; "是质数"
    
12. End If
    
13. End Sub
    

复制代码

事实上大于2以上的数值，可以用平方根来代替里面的i=m-1以便减少运行次数。此外大家也可以用For语句来写写看，应该不算太难。

游客，如果您要查看本帖隐藏内容请回复

      至此，语句部分算是讲完了（如有不懂的请发帖提问）。后面将重点讲讲一些常用算法。
【新手入门】之一：If分支语句
【新手入门】之二：分支语句总结
【新手入门】之三：循环语句For
【新手入门】之四：循环语句Do和死循环
【新手入门】之五：公共变量与传址过程、传值过程
【新手入门】之六：“悲欢离合总无情”——浅谈Split和Join
【新手入门】之七：嵌套与并列——再谈If流程问题
【新手入门】之八：“连就连”——浅谈“&”和“+”连接符的区别
【新手入门】之九：从百钱百鸡谈起——浅谈“规划求解”兼答lingjiang问
【新手入门】之十：书到用时方恨少——自定义菜单（Access 2003）的制作
【新手入门】之十一：浅谈ADO之序言
【新手入门】之十二：浅谈ADO之Connection
【新手入门】之十三：浅谈ADO之Conmmand（上）
【新手入门】之十四：浅谈ADO之Command（下）
【新手入门】之十五：浅谈ADO之Recordset（上）
【新手入门】之十六：浅谈ADO之Recordset（下）
【新手入门】之十七：浅谈列表框的使用
【新手入门】之十八：双击列表框修改数据
【新手入门】之十九：从“书与女友恕不外借”谈起——浅谈“Bookmark”的使用
【新手入门】之二十：“书与书签”——bookmark属性答疑
【新手入门】之二十一：记录集的“凌迟”——逐条导出记录集

【新手进阶】之一：基础算法（一）
【新手进阶】之二：基础算法（二）
【新手进阶】之三：基础算法（三）
【新手进阶】之四：基础算法（四）
【新手进阶】之五：排序搜索（一）
【新手进阶】之六：排序搜索（二）
【新手进阶】之七：递归算法
【新手进阶】之八：冒泡排序
【新手进阶】之九：浅谈不绑定数据源操作记录
【新手进阶】之十：工作日的计算
【新手进阶】之十一：“庖丁解牛”和“纪昌学射”——浅谈表格式文本数据的导入
【新手进阶】之十二：从四脚腾空的奔马谈起——原来界面可以这样设计
【新手进阶】之十三：Outlook风格导航界面
【新手进阶】之十四：仓库管理系统

ysh5858

顶一个！

ysh5858

版主，如何判断子窗体数据为空？例我在窗体上设置一个控件，对子窗体进行控制，当子窗体数据为空时，操作不提示出错？
（我现在遇到的问题是，当子窗体有数据时，点击控件操作时可以运行，如果子窗体无数据时提示出错）请教，谢谢！

roych

ysh5858 发表于 2012-3-4 18:20
版主，如何判断子窗体数据为空？例我在窗体上设置一个控件，对子窗体进行控制，当子窗体数据为空时，操作不 ...

此问题和本帖无关。
如果子窗体绑定数据表时，可以通过RecordCount来判断(记得先MoveLast再MoveFirst，否则RecordCount计算不准确）：
Me.子窗体.Form.Recordset.RecordCount

yanwei82123300

谢谢分享

xie62

谢谢分享

efcndi

看看，学学

风中漫步

我要好好学学,老记不住.谢谢讲解

tmtony

谢谢分享

ycxchen

学习！