注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

精品资源 仓库

不是精品,我不收藏——好资源 大家共享!

 
 
 

日志

 
 

1-18B、DO...LOOP 语法小结  

2014-05-16 11:40:16|  分类: 【Excel VBA】 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

1-18BDO...LOOP 语法小结

1-18B、DO...LOOP 语法小结 - zibo139 - 学习笔记——备忘录

 

'Do [{While | Until} 表达式]

'[执行的一条或多条语句]

'[Exit Do]

'[执行的一条或多条语句]

'Loop

'---------------------------------------------------------------------------------

'while:当这个条件为True时就   循环

'until:直到这个条件为True时就 跳出循环

'---------------------------------------------------------------------------------

'或者可以使用下面这种语法:

'Do

'[执行的一条或多条语句]

'[Exit Do]

'[执行的一条或多条语句]

'Loop [{While | Until}表达式]

'---------------------------------------------------------------------------------

'DoLoop循环要注意的几点:

'1.  WhileUntil是放在Do后面还是Loop后面,取决于是先判断再循环,还是先循环再判断。前者则在Do后面,后者则在Loop后面。

'2.  可以在Do...Loop中的任何位置放置任意个数的 Exit Do 语句,随时跳出 Do...Loop 循环。

'3.  Do...Loop + If...Then + Exit Do 通常结合使用.

'4.  如果 Exit Do 使用在嵌套的 Do...Loop 语句中,则 Exit Do 会将控制权转移到 Exit Do 所在位置的外层循环。

'---------------------------------------------------------------------------------

Sub Test()

Dim a%

Do

a = a + 1

    If a > 5 Then

        MsgBox a & "终于大于5"

        Exit Do

    End If

Loop

End Sub

 

Sub Test2() '注意这是一个死循环,按F8运行(中止死循环:ctrl+暂停键)

Do

b = b + 1

    Do

        a = a + 1

        If a > 3 Then MsgBox "即将跳出内层循环": Exit Do

    Loop

MsgBox "即将进行外层循环"

Loop

End Sub

  

本文视频教程学习网址 http://www.51zxw.net/study.asp?vip=8662538

 

 

 

  评论这张
 
阅读(69)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017