Question

vb在文本框里输入负数，然后赋给变量

这样做运行，在文本框里输入负数总是出现溢出错误，请问为什么，怎样能解决？
是 double 型的变量 用val函数的话我觉得不够准确 还有其它办法吗

Answer 1

你最好把你的相关代码贴出来，不过根据你所说的，在文本框赋值时加VAL转换函数应该可以解决,如：
n=val(text1.text)
这样的话，如果文框输入的是字母，也不会出错，只是赋完值后n为0
另外给你一个检查的方法：就是用字符串，你把结果转为字符串并输出，看看结果到底是什么，会不会是因为运算结果是否超出了定义类型的范围。

Answer 2

变量类型不正确
你声明的变量可能不支持负数

Answer 3

可能是定义的变量类型不符合,变量数据长度过小,或者你在文本框事件中加入数据输入检查,而对输入的字符范围未考虑周全

======================================
那就用CDbl(strInput)

Answer 4

这是个接收例子！ 把接收负数的那个变量先定义为字符型，然后用val转换为数字型！
Private Sub Command1_Click()
Dim s As String
s = InputBox("输入")
MsgBox Val(s + 5)
End Sub

Answer 5

Dim a As Double
a = Text1.Text

在文本框输入 -400000 没有出现溢出错误

Answer 6

其实用val是把字符型数值转换为数值型数值，准确度不用怀疑，关健是接收它的变量数值定义问题。如果定义小了，则就会出现溢出错误。
所以，在不知道你在文本框里输入负数有多大的情况下，不妨作如下处理：
dim a
a=val(text1.text)