VB编程求助

huangdan811

VB程序一段中：
Private Sub Command1_Click()
Dim abc As Variant
abc = 400 * 100
Text1.Text = abc
End Sub
在VB里面运行，总是提示数据溢出，把数据类型换位single，double，integer，long都试过了，还是如此，但是将400换成40或40000，却可以正常。

guihua7923

楼主在编程时没注意数据的问题当VB中不使用变量，直接使用数字参加运算时，VB 会将整数认为是 Integer 类型而楼主所用的数据已经超过 Integer 类型的范围，所以会出现溢出的错误，可将程序变为：
Private Sub Command1_Click()
abc = 400* 100&
Text1.Text = abc
End Sub
即可

huangdan811

guihua7923 发表于 2014-4-8 15:11
楼主在编程时没注意数据的问题当VB中不使用变量，直接使用数字参加运算时，VB 会将整数认为是 Integer 类型 ...

在请问一下，为什么我将400改为40或4000就可以了，谢谢！

guihua7923

你可以这样理解，当比32767小的时候VB也是将它列为Integer 类型，而大于32767就变为long类型。你在40和40000中变换，用40毋庸置疑是满足Integer 类型的条件的，而用40000已经变为long类型了。从而会出现以上的问题。貌似4000也会溢出的吧。你可以试试。你也可以将40000变为32768和32767来试试看看是否有溢出情况。

huangdan811

guihua7923 发表于 2014-4-8 15:21
你可以这样理解，当比32767小的时候VB也是将它列为Integer 类型，而大于32767就变为long类型。你在40和4000 ...

的确，400和4000就会出现，非常感谢！