圆月山庄资源网 Design By www.vgjia.com

Exit 语句

退出 Do...Loop、For...Next、Function 或 Sub 代码块。

Exit Do

Exit For

Exit Function

Exit Property

Exit Sub

Exit 语句的语法有以下几种形式:

语句描述Exit Do提供一种退出 Do...Loop 语句的方法。只能在 Do...Loop 语句中使用。Exit Do 将控制权转移到 Loop 语句之后的语句。在嵌套的 Do...Loop 语句中使用时,Exit Do 将控制权转移到循环所在位置的上一层嵌套循环。Exit For提供一种退出 For 循环的方法。只能在 For...NextFor Each...Next 循环中使用。Exit For 将控制权转移到 Next 之后的语句。在嵌套的 For 循环中使用时,Exit For 将控制权转移到循环所在位置的上一层嵌套循环。Exit Function立即从出现的位置退出 Function 过程。继续执行调用 Function 的语句后面的语句。Exit Property立即从所在的 Property 过程中退出。继续执行下面调用 Property 过程的语句。Exit Sub立即从出现的位置退出 Sub 过程,继续执行调用 Sub 的语句后面的语句。

下面例子举例说明如何使用 Exit 语句:

Sub RandomLoop  Dim I, MyNum  Do                           ' 设置死循环。    For I = 1 To 1000          ' 循环 1000 次。      MyNum = Int(Rnd * 100)   '产生随机数。      Select Case MyNum        '求随机数的值。        Case 17: MsgBox "Case 17"          Exit For             ' 如果是 17,退出 For...Next        Case 29: MsgBox "Case 29"          Exit Do              ' 如果是 29,退出 Do...Loop        Case 54: MsgBox "Case 54"          Exit Sub             ' 如果是 54,退出 Sub 过程。        End Select    Next  LoopEnd Sub
标签:
|VB|BS|S教|教程|程V|VB|Bs|sc|cr|ri|ip|pt|t语|语句|句E|Ex|xi|it|t语|语句|句|

圆月山庄资源网 Design By www.vgjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
圆月山庄资源网 Design By www.vgjia.com