13518219792
定义一个公有布尔值变量 flag，初始值 False。
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：申请域名、虚拟空间、营销软件、网站建设、韶关网站维护、网站推广。
循环里最开始 If 判断一下 flag，如果为 True 就 Exit Do 跳出循环，否则继续循环。
然后在别的函数控制 flag 的值就可以了。
P.S. 你这段代码是死循环，直到程序占用内存越来越大溢出进而程序崩溃为止……
do ... loop
do while ... loop
do until ... loop
do ... loop while
do ... loop until
各有不同作用，有的先处理再判断，有的先判断再处理
Sub Main()
Dim Ispath As String
Console.Write("请输入目录：")
Ispath = Console.ReadLine()
Do While (Not Directory.Exists(Trim(Ispath)))
Console.WriteLine("你输入的目录不存在，请检查重新输入.")
Console.Write("请输入目录：")
Ispath = Console.ReadLine()
Loop
Console.WriteLine("目录为:{0}", Ispath)
Console.ReadLine()
End Sub
1、语言之间具有互通性（这是一个前提基调）；
2、比如在java或者c/c++中，在循环中进行一个判断，如果判断成功或者不成功，那么就可以设置一个关键字break来跳出这个循环哦；
3、这个break的作用的就是当你判断实现或者未实现这个判断语句时，你像不需要再进行循环或者判断，那么可以用这个break关键字来发挥作用哦。
你确信只循环一次吗？我看不像，在最后添加上一句msgbox jishu1，多半显示3。
是在第二块代码中有问题，你应该把chaxun4 = xlsheet.Range("l1").Value + 2分别放到两个条件句中初始chaxun4变量。
因为上一个Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循环退出后，下一个循环一开始就符合退出条件了，所以循环没有进行了。
break退出循环
for循环对应 exit for
do/do while循环对应 exit do
