System.Windows.Forms.Application.DoEvents()
创新互联建站专注为客户提供全方位的互联网综合服务，包含不限于成都网站设计、做网站、伍家岗网络推广、重庆小程序开发公司、伍家岗网络营销、伍家岗企业策划、伍家岗品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联建站为所有大学生创业者提供伍家岗建站搭建服务，24小时服务热线：028-86922220，官方网址：www.cdcxhl.com
Or
My.Application.DoEvents()
处理目前在讯息伫列中的所有 Windows 讯息。
' Usage My.Application.DoEvents()
' Declaration Public Sub DoEvents()
备注
My.Application.DoEvents 方法可以让您的应用程式在执行程式码的同时，也能够处理可能所引发的其他事件。My.Application.DoEvents 方法与 DoEvents 方法具有相同的行为。
当您执行 Windows Form 应用程式时会建立新表单，表示会等待处理事件。每一次表单处理事件时 (例如，按钮点选)，便会处理与该事件相关联的所有程式码。所有其他事件都会在伫列中等待。当您的程式码在处理事件时，应用程式不会做出回应。例如，如果将其他视窗拖曳至顶端，不会重新绘制视窗。
如果您在程式码中呼叫 My.Application.DoEvents，应用程式就可以处理其他事件。例如，如果程式码将资料加入至回圈 (Loop) 中的 ListBox，且会在回圈的每个步骤之后呼叫 My.Application.DoEvents，则将其他视窗拖曳至该视窗上方时，便会重新绘制表单。如果从程式码中移除 My.Application.DoEvents，则必须等到按钮的点选事件处理常式完成执行之后，才会重新绘制表单。
您通常会在回圈中使用此方法处理讯息。
注意事项：
My.Application.DoEvents 方法处理事件的方式和表单的方式不太一样。使用多执行绪处理，让表单直接处理事件。如需详细资讯，请参阅 Visual Basic 中的多执行绪。
警告：
如果处理使用者介面 (UI) 事件的方法呼叫 My.Application.DoEvents 方法，则在它完成之前可能会重新输入方法。发生这个状况的原因是 My.Application.DoEvents 方法会处理 Windows 讯息，而 Windows 讯息会引发事件。
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
你确信只循环一次吗？我看不像，在最后添加上一句msgbox jishu1，多半显示3。
是在第二块代码中有问题，你应该把chaxun4 = xlsheet.Range("l1").Value + 2分别放到两个条件句中初始chaxun4变量。
因为上一个Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循环退出后，下一个循环一开始就符合退出条件了，所以循环没有进行了。