VB程序运行时很卡出现无响应，怎么办？

这里不需要sleep，在循环中加入doevents就好了。若没有添加doevents，运行时就会出现无响应的状态，如果要此时要退出运行，按ctrl+break

补充：
不知道你的语句是怎样的，一般来说，如果是嵌套的循环，则只需要在内部的循环中添加DoEvents就可以了，但是如果嵌套的内循环是选择性的循环，则在外循环里也添加一个比较好。
例如：
for i=1 to 100000
for j=1 to 1000000
....
DoEvents
next
next
这里因为内循环不是选择性的，所以添加一个DoEvents即可；
又例如：
for i=1 to 100000
do while i>50000
....
DoEvents
loop
DoEvents
next
因为这里内循环是根据条件是否满足而执行的，因此为了避免出现资源占用率较高的情况，则在两个循环中都添加为宜。
这里怎么用DoEvents要看你的语句而定。

个人见解，抛砖引玉，仅供参考~~~

我以前也碰到过类似问题，我用一个笨方法：在耗时较大的循环中加入
For i = 1 To 1000 '适当调整to后的值，即是交出足够的时间给系统做出反应。不过会影响到程序运行的速度。
DoEvents
Next

多些 DoEvents
少些 Sleep

就好了！

下载最新vb

顶~~~big_bubby