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

发布网友发布时间：2022-04-23 23:37

共6个回答

热心网友时间：2023-10-13 20:56

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

热心网友时间：2023-10-13 20:56

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

热心网友时间：2023-10-13 20:57

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

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

热心网友时间：2023-10-13 20:57

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

热心网友时间：2023-10-13 20:58

Dim a As Double
a = Text1.Text

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

热心网友时间：2023-10-13 20:59

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