/ 350
添加表情
遵守中华人民共和国的各项道德法规,承担因您的行为而导致的法律责任,
本站有权保留或删除有争议评论。 参与本评论即表明您已经阅读并接受上述条款。
全部评论 (共 60 条)
学习达人
平和就好 展开
请问已经死循坏了,怎么停止。谢谢!
2025年10月04日 15:50
0 回复
学习达人
u1242326301 展开
Sub 基本示例doloop应用()
Dim a%
Do
a = a + 1
If a > 10 Then MsgBox "以达到要求"
Exit Do
Loop
End Sub

上面这段运行的时候本地窗口可以看到只有0和1的结果循环,这是为什么呢?
2025年02月10日 22:54
0 回复
学习达人
andyssh 展开
sub test ()
dim a%
do
a=a+1
if a>=10 then
msgbox a & "达到极限次数,命令即将退出!"
exit do
end if
loop
end sub
2022年12月23日 10:54
0 回复
学习达人
seeuswu 展开
Do Loop 循环时,跳出DO循环要放在IF语句中,在END IF之前,否则按顺序执行语句结构时会第一次就跳出DO 循环,放在IF语句中只有当满足设定条件才会起作用跳出
2020年01月30日 09:36
1 回复
gitigou 展开
回答30楼朋友,if then要在同一行,这样写

Sub 基本示例()
Dim a%
Do
a = a + 1
If a > 10 Then Exit Do
Loop
MsgBox a & "终于大于10"
End Sub
2018年09月02日 17:50
1 回复
wjs3721 展开
Sub 基本示例()
Dim a%
Do
a = a + 1
Select Case a
Case Is > 10
MsgBox a & "终于大于10"
Exit Do
End Select
Loop
End Sub

'对于初学者,也尝试用另一种。
2021年07月24日 23:41
0 回复
我的成功之路 更多
V
特惠充值
联系客服
APP下载
官方微信
返回顶部