1、开头判断循环条件
语句格式:
Do Until 循环条件
语句块1
[Exit Do]
语句块2
Loop
2、结尾判断循环条件
语句格式:
Do
语句块1
[Exit Do]
语句块2
Loop Until 循环条件
执行Do 和Loop之间的指令,直到循环条件为真时退出循环。
直到循环条件为真时退出循环,这是Do Until 与 Do While的区别。而它两种语句格式的区别,也是第二种比第一种多执行一次循环部分的语句。
还是求1——1000自然数的问题,这次我们换用Do Untile语句:
- Sub mysum()
- Dim Lsum As Long, i As Long
- i = 1
- Do
- Lsum = Lsum + i
- i = i + 1
- Loop Until i > 1000
- MsgBox "1到1000的自然数和为:" & Lsum
- End Sub
复制代码道勤主机提供365天*24小时全年全天无休、实时在线、零等待的售后技术支持。竭力为您免费处理您在使用道勤主机过程中所遇到的一切问题!
如果您是道勤主机用户,那么您可以通过QQ【792472177】、售后QQ【59133755】、旺旺【诠释意念】、微信:q792472177免费电话、后台提交工单这些方式联系道勤主机客服!
如果您不是我们的客户也没问题,点击页面最右边的企业QQ在线咨询图标联系我们并购买后,我们为您免费进行无缝搬家服务,让您享受网站零访问延迟的迁移到道勤主机的服务! |