| 语句 | 描述 |
|---|---|
| Exit Do | 提供一种退出 [b]Do...Loop[/b] 语句的方法。只能在 [b]Do...Loop[/b] 语句中使用。[b]Exit Do[/b] 将控制权转移到 [b]Loop[/b] 语句之后的语句。在嵌套的 [b]Do...Loop[/b] 语句中使用时,[b]Exit Do[/b] 将控制权转移到循环所在位置的上一层嵌套循环。 |
| Exit For | 提供一种退出 [b]For[/b] 循环的方法。只能在 [b]For...Next[/b] 或 [b]For Each...Next[/b] 循环中使用。[b]Exit For[/b] 将控制权转移到 [b]Next[/b] 之后的语句。在嵌套的 [b]For[/b] 循环中使用时,[b]Exit For[/b] 将控制权转移到循环所在位置的上一层嵌套循环。 |
| Exit Function | 立即从出现的位置退出 [b]Function[/b] 过程。继续执行调用 [b]Function[/b] 的语句后面的语句。 |
| Exit Property | 立即从所在的 [b]Property[/b] 过程中退出。继续执行下面调用 [b]Property[/b] 过程的语句。 |
| Exit Sub | 立即从出现的位置退出 [b]Sub[/b] 过程,继续执行调用 [b]Sub[/b] 的语句后面的语句。 |
[code]Sub RandomLoop Dim I, MyNum Do ' [/code]设置死循环。[code] For I = 1 To 1000 ' [/code]循环[code] 1000 [/code]次。[code] MyNum = Int(Rnd * 100) '[/code]产生随机数。[code] Select Case MyNum '[/code]求随机数的值。[code] Case 17: MsgBox "Case 17"[/code][code] [b]Exit[/b] For ' [/code]如果是[code] 17[/code],退出[code] For...Next[/code]。[code] Case 29: MsgBox "Case 29"[/code][code] [b]Exit[/b] Do ' [/code]如果是[code] 29[/code],退出[code] Do...Loop[/code]。[code] Case 54: MsgBox "Case 54"[/code][code] [b]Exit[/b] Sub ' [/code]如果是[code] 54[/code],退出[code] Sub [/code]过程。[code] End Select[/code][code] Next[/code][code] Loop[/code][code]End Sub[/code]
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码(独立后台)...苏ICP备2024110244号-2 苏公网安备32050702011978号 增值电信业务经营许可证编号:苏B2-20251499 | Copyright 2018 - 2025 源码网商城 (www.ymwmall.com) 版权所有