如何跳出一层的do ...loop循环?

ccbnhzxy 2003-02-21 10:20:02
如何跳出一层的do ...loop循环?
...全文
3567 27 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
27 条回复
切换为时间正序
请发表友善的回复…
发表回复
lwm1977 2003-09-17
  • 打赏
  • 举报
回复
Exit语句
退出 Do...Loop、For...Next、Function、Sub 或 Property 代码块。

语法

Exit Do

Exit For

Exit Function

Exit Property

Exit Sub

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

语句 描述
Exit Do 提供一种退出 Do...Loop 循环的方法,并且只能在 Do...Loop 循环中使用。Exit Do 会将控制权转移到 Loop 语句之后的语句。当 Exit Do 用在嵌套的 Do...Loop 循环中时,Exit Do 会将控制权转移到 Exit Do 所在位置的外层循环。
Exit For 提供一种退出 For 循环的方法,并且只能在 For...Next 或 For Each...Next 循环中使用。Exit For 会将控制权转移到 Next 之后的语句。当 Exit For 用在嵌套的 For 循环中时,Exit For 将控制权转移到 Exit For 所在位置的外层循环。
Exit Function 立即从包含该语句的 Function 过程中退出。程序会从调用 Function 的语句之后的语句继续执行。
Exit Property 立即从包含该语句的 Property 过程中退出。程序会从调用 Property 过程的语句之后的语句继续执行。
Exit Sub 立即从包含该语句的 Sub 过程中退出。程序会从调用 Sub 过程的语句之后的语句继续执行。


说明

不要将 Exit 语句与 End 语句搞混了。Exit 并不说明一个结构的终止。
现在还是人类 2003-09-17
  • 打赏
  • 举报
回复
dim YY
yy=0
Do
if ... then
yy=1
else
do
if ... then
goto One
end if
Two:
loop
goto hehe
One:
if ... then
Goto two
end if
hehe:
end if
loop While yy=0

呵呵,乱七八糟,不过说明了很多用法
flyinskysea 2003-09-17
  • 打赏
  • 举报
回复
goto ...再loop好象不能通过编译
以下程序可以跳过i=10不执行
Do
i = i + 1
If i <> 10 Then
If i > 15 Then Exit Do
End If
Loop
yijiansong 2003-09-17
  • 打赏
  • 举报
回复
就用GOTO

DO
。。。
GOTO NEXTLOOP

。。。
NEXTLOOP:
LOOP
ffb 2003-09-17
  • 打赏
  • 举报
回复
用VB实现这个很痛苦的,C++吧
withpointer 2003-09-17
  • 打赏
  • 举报
回复
类似continue的语句或者类似的语句在VB中是 没有的,不过可以借助GOTO实现。
blasterboy 2003-09-17
  • 打赏
  • 举报
回复
exit do
of123 2003-09-17
  • 打赏
  • 举报
回复
在你的执行代码前后加上If...Then......End If
of123 2003-09-17
  • 打赏
  • 举报
回复
在你的执行代码前后加上 If...Then......End If
宏正 2003-09-17
  • 打赏
  • 举报
回复
就用GOTO

DO
IF I =10 GOTO CMD



GOTO NEXTLOOP
CMD:


NEXTLOOP:
LOOP
NotReady 2003-09-16
  • 打赏
  • 举报
回复
楼上观点都是正确,可惜我来迟了!
vrv0129 2003-09-16
  • 打赏
  • 举报
回复
exit do
or
goto
vrv0129 2003-09-16
  • 打赏
  • 举报
回复
如何跳出一层的do ...loop循环?
flc 2003-09-16
  • 打赏
  • 举报
回复
不要用goto
用exit do
allangoing 2003-09-15
  • 打赏
  • 举报
回复
dim i=0
do
if i<>10 then
i=i+1
else
goto lable
end if
loop
lable:
'continue....
蛋高8 2003-09-15
  • 打赏
  • 举报
回复
goto lableNo 中的lableno是什么意思?麻烦专家告诉俺好么?
蛋高8 2003-09-15
  • 打赏
  • 举报
回复 1
exit do 不可以啊!!!这个都停止整个循环了,我也要跳过循环,麻烦给个好用的吧!!
lv_kevin 2003-02-21
  • 打赏
  • 举报
回复
恩,最好不要用goto labelNo
很容易搞混的。
用exit do吧,价格便宜量又足,我们一直用它!
diudiu2002 2003-02-21
  • 打赏
  • 举报
回复
dim i=0
do
if i<>10 then i=i+1
loop
就只不执行i<>10
kofer999 2003-02-21
  • 打赏
  • 举报
回复
不要用goto
用exit do
加载更多回复(7)

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧