你确信只循环一次吗？我看不像，在最后添加上一句msgbox jishu1，多半显示3。
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名注册、雅安服务器托管、营销软件、网站建设、汤原网站维护、网站推广。
是在第二块代码中有问题，你应该把chaxun4 = xlsheet.Range("l1").Value + 2分别放到两个条件句中初始chaxun4变量。
因为上一个Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循环退出后，下一个循环一开始就符合退出条件了，所以循环没有进行了。
if语句根据判定结果（真或假）执行一组语句，有单行和多行块形式，
1、 if „„ then分支结构
if condition then或者：
if condition then statements end if
if condition then statement 单行形式 或者：
if condition then statements1 else
statements2 end if
do ... loop
do while ... loop
do until ... loop
do ... loop while
do ... loop until
各有不同作用，有的先处理再判断，有的先判断再处理
Do循环由Do和Loop构成,但如果只有Do和Loop的话将不停地执行Do和Loop之间的语句块,所以需要使用可选的关键字While或Until以及Eixt Do来指定循环的条件以及退出循环.\x0d\x0a关键字While是指当条件为True时执行循环,而Until则是在条件变为True之前重复,就你的例子来说,用关键字Until给出了X=-1这个条件,意思就是在X=-1这个条件不成立的时候循环一直重复执行,直到X=-1这个条件成立了,则结束循环.\x0d\x0a下面是详细的例句解析:\x0d\x0aDo循环在使用关键字While或Until的时候有两种写法,一种是放在开头,一种是放在结尾,而Eixt Do则是插在循环体内语句块的任何地方,,用来在需要的时候退出循环.\x0d\x0a关键字While或Until的两种写法见如下格式:\x0d\x0a[第一种]\x0d\x0aDo While(或Until) 条件 '关键字和条件放在开头\x0d\x0a语句块\x0d\x0aLoop\x0d\x0a这种格式是用关键字While指定的条件为True时执行循环,或用Until在指定的条件变为True之前重复执行循环.\x0d\x0a[第二种]\x0d\x0aDo\x0d\x0a语句块\x0d\x0aLoop While(或Until) 条件 '关键字和条件放在结尾\x0d\x0a这种格式是不管条件是否成立,都先执行一次循环,然后再判断条件来决定是否继续循环.\x0d\x0aDo\x0d\x0a If (a * i ^ 2 + b * i + c) * (a * m ^ 2 + b * m + c) 0 Then\x0d\x0a i = m\x0d\x0a End If\x0d\x0aLoop Until Abs(i - s)
回答于 2022-12-11
