officed窗vb程序错误

可能是由于不兼容的Adobe加载项“linkCreationdotm”，把这个文件删掉，并重新启动软件后，应该就不会再出现错误。

详细解决方法：删除不兼容文件，打开finder访达，在菜单栏按住option，点击前往资源库。

然后再在资源库中找到并删掉不兼容的加载项应该就可以了。

你的程序基本是对的，我稍作修改，可以运行了。说明两点，一，注意变量使用时的类型是否匹配。二，连接字符串最好用"&"，尽量不要用+,因为这样很容易和加法弄混。下面是修改后的程序：

Private Sub Command2_Click()

Dim a, b, c, l, s As Single

Dim o As String

a = CSng(InputBox("请输入三角形的a边（单位：厘米)", "输入数据"))

If a <= 0 Then

MsgBox "输入的数据错误，请重新运行程序", , "错误"

End If

b = CSng(InputBox("请输入三角形的b边（单位：厘米)", "输入数据"))

If b <= 0 Then

MsgBox "输入的数据错误，请重新运行程序", , "错误"

End If

c = CSng(InputBox("请输入三角形的c边（单位：厘米)", "输入数据"))

If c <= 0 Then

MsgBox "输入的数据错误，请重新运行程序", , "错误"

End If

l = (a + b + c) / 2

s = Sqr(l (l - a) (l - b) (l - c))

o = "三边分别为" & Str(a) & Str(b) & Str(c) & "的三角形面积为" & Str(s)

MsgBox o, , "“结果”"

End Sub

下面是已经修改后的代码，代码简化，并去掉了错误处理。

Private Sub Command1_Click()

Dim jj, XX, l As String, z, I As Integer, j As Integer

Dim Fs() As String

l = File1Path

z = File1ListCount - 1

ReDim Fs(z)

For I = 0 To z

Fs(I) = File1List(I)'文件列表存入数组，防止改名后出现问题

Next

For I = 0 To z

jj = Fs(I)

XX = (I + 1) & Right(jj, 4)

Label1 = Str(I + 1) + "--" + jj + "--" + XX '追踪显示

If XX <> jj And jj <> "" Then

If Dir(l + "\" + XX) <> "" Then

If MsgBox("目标文件" & XX & "已存在，是否覆盖？", vbYesNo, "提示") = vbYes Then

Kill l + "\" + XX

Name l + "\" + jj As l + "\" + XX '文件改名

For j = 0 To z

If Fs(j) = XX Then '改名后的文件不允许后面再改

Fs(j) = ""

Exit For

End If

Next

End If

Else

Name l + "\" + jj As l + "\" + XX '文件改名

End If

End If

DoEvents '防止程序没有反应现象发生

Next

File1Refresh

End Sub

你的循环语句中要插入一句DoEvents，使查询期间能让其他软件临时获得CPU的控制权，避免程序进入“假死”（或者说挂起）状态。另一方面，你的查询代码也要进行优化，以免占用太多的CPU控制时间。Windows系统是个多任务系统，你要时刻记住，在同一个时刻，并不是只有你的程序在运行，还有许多其他软件也在排队等着分CPU的一杯羹，所以软件也要有“公德心”，不能只顾自己，强行霸占系统资源。就像很多人排队买火车票，如果轮到你的时候你长时间霸着售票窗口不走，那么整个队伍就陷入停滞状态了。

有以下几种情况：

1、死循环。这是最常见的。

2、循环很长，虽然没有死。

检查与查找的方法：

在没有响应时，按下ctrl-break（这两个按钮同时按下，break在小键盘上）。

然后可以看到**的光标条遮罩着一条语句，这条语句应该在一个循环之内。

使用鼠标放到结束循环的变量上，可以看到变量的值（如果结束条件有几个变量，分别检查）

在方便检查的语句上，设置断点（两种方法都可以。1、在语句左边的边框上点击；2、插入stop语句）

按F5键，执行就会听到断点，检查变量；再按F5，再检查。对比变量的变化，可以找出错误。

应用程序错误解决方法：

1检查电脑是否存在病毒，请使用百度卫士进行木马查杀。

2系统文件损坏或丢失，盗版系统或Ghost版本系统，很容易出现该问题。建议：使用完整版或正版系统。

3安装的软件与系统或其它软件发生冲突，找到发生冲突的软件，卸载它。如果更新下载补丁不是该软件的错误补丁，也会引起软件异常，解决办法：卸载该软件，重新下载重新安装试试。顺便检查开机启动项，把没必要启动的启动项禁止开机启动。

4如果检查上面的都没问题，可以试试下面的方法。

打开开始菜单→运行→输入cmd→回车，在命令提示符下输入下面命令 for %1 in (%windir%\system32\dll) do regsvr32exe /s %1回车。

完成后，在输入下面

for %i in (%windir%\system32\ocx) do regsvr32exe /s %i 回车。

如果怕输入错误，可以复制这两条指令，然后在命令提示符后击鼠标右键，打“粘贴”，回车，耐心等待，直到屏幕滚动停止为止（重启电脑）。

以上就是关于officed窗vb程序错误全部的内容，包括:officed窗vb程序错误、vb程序运行结果错误、VB程序出错，如何调试等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！