Office中国论坛/Access中国论坛

标题: 【新手入门】之四：循环语句Do和死循环 [打印本页]

作者: roych 时间: 2012-3-4 17:18
标题: 【新手入门】之四：循环语句Do和死循环
上一节详细地讲完了For语句，现在开始讲Do语句。Do的常用格式有以下几种：

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

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

Do While 男生.Name<>"Roych"
继续找
Loop

复制代码

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

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

复制代码

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

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

复制代码

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

Sub test()
Dim m As Integer, i As Integer
m = InputBox("请输入一个数：", "输入提示")
i = 2
Do Until (m Mod i = 0) Or i = m - 1
i = i + 1
Loop
If m Mod i = 0 Then
Debug.Print m; "是合数"
Else
Debug.Print m; "是质数"
End If
End Sub

复制代码

作者: ysh5858 时间: 2012-3-4 18:09
顶一个！

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

作者: roych 时间: 2012-3-5 00:03

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

此问题和本帖无关。

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

作者: yanwei82123300 时间: 2012-3-5 08:28
谢谢分享

作者: xie62 时间: 2012-3-5 08:35
谢谢分享

作者: efcndi 时间: 2012-3-5 08:56
看看，学学

作者: 风中漫步 时间: 2012-3-5 12:34
我要好好学学,老记不住.谢谢讲解

作者: tmtony 时间: 2012-3-5 13:27
谢谢分享

作者: ycxchen 时间: 2012-3-5 14:55
学习！

作者: 阳城 时间: 2012-3-5 16:36
坚持学习！！！

作者: renyucai1963 时间: 2012-3-5 17:24
学习

作者: ycxchen 时间: 2012-3-6 09:27
版主，能否结合ACCESS例子讲解循环语句Do和死循环等语句的运用？

作者: roych 时间: 2012-3-6 16:47

ycxchen 发表于 2012-3-6 09:27
版主，能否结合ACCESS例子讲解循环语句Do和死循环等语句的运用？

死循环是禁用的，因为这跟病毒类似。
讲到算法时将会对这些语句进行进一步的使用。

作者: weizhuzhu 时间: 2012-3-6 18:47
学习的

作者: zhylee 时间: 2012-3-7 13:33
抓紧学习呀

作者: yori2007 时间: 2012-4-1 22:52

作者: jinzhanxi 时间: 2012-7-30 09:09
谢谢分享

作者: smilingkiss 时间: 2013-1-31 22:49
学习中

作者: smilingkiss 时间: 2013-1-31 23:02
版主：
Sub test()
Dim m As Integer, i As Integer
m = InputBox("请输入一个数：", "输入提示")
i = 2
Do Until (m Mod i = 0) Or i = m - 1
i = i + 1
Loop
If m Mod i = 0 Then
Debug.Print m; "是素数"
Else
Debug.Print m; "是合数"
End If
End Sub

这里的素数和合数是不是反过来了？例如输入6，6 mod 2 ＝ 0吧？6是素数哦，不知我是不是哪里理解错了

作者: roych 时间: 2013-2-1 00:33

smilingkiss 发表于 2013-1-31 23:02
版主：
Sub test()
Dim m As Integer, i As Integer

笔误，不好意思~~已检查并更正过来了。谢谢提醒~~

作者: wang1950317 时间: 2013-2-1 13:09
好好学习！谢谢！

作者: sukunli 时间: 2013-3-7 22:35
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

作者: 微微森林 时间: 2013-3-28 20:28
听得似懂非懂，慢慢来了。

作者: XWQ2000 时间: 2013-7-26 22:41
顶一个！

作者: 34acc 时间: 2013-8-6 15:35
谢谢分享

作者: msyangyi 时间: 2014-5-26 13:10
好好学习！

作者: sanjian 时间: 2014-11-12 12:36
感谢楼主

作者: gxstudent 时间: 2014-12-22 22:08
学习

作者: 天涯沦落20131 时间: 2014-12-23 10:10
渐进学习！

作者: 桑松木 时间: 2015-1-10 19:30
谢谢版主

作者: xyangjie 时间: 2015-4-15 17:42

作者: yanhantan 时间: 2015-4-28 01:02
学习学习

作者: songgpljh 时间: 2015-10-10 15:57
这个有点看的不是很懂，自己再看两遍

作者: WFH6898 时间: 2015-11-11 18:10
好东西，一步步来吧

作者: 0520john 时间: 2016-1-4 16:27
学习

作者: cshiq 时间: 2016-1-17 05:44
循环语句Do和死循环

作者: chemi_lai 时间: 2016-3-30 22:19
高人哟，学习

作者: 叫你不听话~~ 时间: 2016-3-31 14:12
学习

作者: 神经挺住 时间: 2016-4-15 14:34
学习

作者: Superleistung 时间: 2016-4-19 15:43
多多学学基础知识

作者: 522650696 时间: 2016-4-27 10:36
d=====(￣▽￣*)b

作者: 鄱湖人2012 时间: 2016-5-6 20:03
学习

作者: 山之冬 时间: 2016-7-1 12:14
学习

作者: 逍遥骑士wei 时间: 2016-7-26 17:05
6666666666666666666666

作者: uncletse 时间: 2016-7-31 10:05
感謝分享..辛苦了

作者: huangmin_best 时间: 2016-8-4 15:41
好难理解，谢谢分享

作者: baiqiansheng 时间: 2016-8-12 16:26
支持！！！！！！！！！！！

作者: wind7412 时间: 2016-9-7 10:31
学习一下

作者: p51219 时间: 2016-9-21 23:07
11111

作者: p51218 时间: 2016-11-14 23:34
h

作者: 寒月TEA 时间: 2017-1-23 11:24
看看看看·~

作者: wenbin_zheng 时间: 2017-2-10 16:47

看看

作者: 72310 时间: 2017-2-23 13:57
新手回复

作者: guan818355 时间: 2017-3-12 21:20
856465

作者: 農民工 时间: 2017-4-24 08:29
学习

作者: hongyepiaofei 时间: 2017-5-19 16:21
学习一下

作者: 双木无神 时间: 2017-6-26 09:47
新手多多关照

作者: ej1213 时间: 2018-6-8 16:33
谢谢分享

作者: 六月雪 时间: 2019-3-4 10:13
哦哦哦噢噢噢噢噢噢噢噢哦哦哦

作者: luang4089 时间: 2019-9-11 21:09
学习学习

作者: 1271650489 时间: 2020-4-17 09:19
学习一下

作者: gaom8 时间: 2020-8-20 11:37
慢慢学习。。。。

作者: 付谦 时间: 2021-5-31 08:16
学习

作者: wuwu200222 时间: 2023-11-21 09:38
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)