难道我编的是病毒???!!!

在VB中，一个sub或function未执行结束时，其它sub和function是分配不到CPU时间的（多线程除外）。解决方法是在函数的执行过程中释放CPU资源，具体可在你的代码中next j前增加一行DoEvents()
PS.不要用自己发贴子的方式增加人气，太无耻。