efan2000 发表于 2004-4-17 13:31:00

slbl(i) = Val(Controls("TextBox" & Trim(Str(i))).Text)


问题应该出在这儿，当文本框中为空时，Val("")会出错，当文本框中不是数字时也会出错，如Val("a")，另Val函数不能识别负数，这样也会出错，Val("-1")。

wei186 发表于 2004-4-17 14:56:00

但我的文本框中均为正实数呀，不会空或为负数呀，我传上来了，帮我改改吧，我做毕业论文的结束一点点啦，救急！！！

雪山飞狐_lzh 发表于 2004-4-17 16:57:00

未输入参数时运行


把On Error GoTo err注释掉，发现在运行到





slja1 = Int((slbl(1) / slbl(2) * 1000) + 0.5) / 1000


时溢出


当然该语句没错


做调试时尽量把错误处理语句注释掉，可以发现错误所在

雪山飞狐_lzh 发表于 2004-4-17 17:01:00

测试：Sub test()
MsgBox Val("")
MsgBox Val("-1")
MsgBox Val("a")
End Sub未发现错误分别返回：0，－1，0

雪山飞狐_lzh 发表于 2004-4-17 17:10:00

Dim slbl(1 To 11) As Long


这里错了


slbl（）数组应该是Double型的数组，改为：


Dim slbl(1 To 11) As Double

wei186 发表于 2004-4-18 06:57:00

出来啦


不胜感激各位！！！

wei186 发表于 2004-4-20 09:41:00

我想再请问可能用vba启动vlisp吗？

wei186 发表于 2004-4-20 11:28:00

我想做一个“保存”按钮，但vba里面没得vb里面的commanddialog按钮，不知道能不能用其他方法解决？？？

雪山飞狐_lzh 发表于 2004-4-20 11:30:00

wei186发表于2004-4-20 11:28:00static/image/common/back.gifvba里面没得vb里面的commanddialog按钮

<BR>可以在VBA里调用CommonDialog控件呀

wei186 发表于 2004-4-20 21:18:00

在文本框中不能输出双引号吗，比方输出“(command "line")”？？？
页: 1 [2]
查看完整版本: [求助][VBA] 请各位大虾改错！！！