Question

VB里提示实时错误"6"

Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer

Private Sub Command1_Click()
Select Case Combo1.Text
Case "铜"
a = 390
Case "钢铁"
a = 450
Case "花岗岩"
a = 800
Case "铝"
a = 900
Case "石蜡"
a = 2500
Case "干燥泥土"
a = 840
Case "水银"
a = 140
Case "煤油"
a = 2100
Case "甘油"
a = 2200
Case "酒精"
a = 2400
Case "水"
a = 4200
Case "冰"
a = 2100
End Select
b = Val(Text1.Text)
c = Val(Text2.Text)
d = a * b * c '这里提示错误
Text3.Text = Str(d)
End Sub

Private Sub Form_Load()
Combo1.AddItem "铜"
Combo1.AddItem "钢铁"
Combo1.AddItem "花岗岩"
Combo1.AddItem "铝"
Combo1.AddItem "石蜡"
Combo1.AddItem "干燥泥土"
Combo1.AddItem "水银"
Combo1.AddItem "煤油"
Combo1.AddItem "甘油"
Combo1.AddItem "酒精"
Combo1.AddItem "水"
Combo1.AddItem "冰"
End Sub
怎么解决？

Answer 1

6.0常见问题,当a * b * c过大时出现.
只改Dim d As Long一般还是不行的, 还有a * b * c本身溢出的问题(即等式右边溢出),有一种变通的写法可以用一下
d = CLng(1) * a * b * c
就是再乘上一下长整型的1,使其默认为长整型的相乘.

Answer 2

变量溢出 把D改为Long

Answer 3

你把Dim d As Integer改为Dim d As long
如果还有的话只能用高精度了……

Answer 4

把dim d as integer
改为:
Dim d as double