Question

VB6溢出问题 我哪里错了？

谁能告诉我下面的代码哪里错了
运行时，如果TEXT1和TEXT2为空
就会报错:

[实时错误“6”
溢出]

如果TEXT1和TEXT2都输入数字就没问题

Private Sub Command1_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(a) / Val(b)
Text3.Text = c
End Sub
我想要的是问题的所在，和解决方案！谢谢各位大虾！

Answer 1

Private Sub Command1_Click()
Dim a, b, c As Double
if text1.text="" then exit sub '先加上判断语句
a = Val(Text1.Text)
if text2.text="" then exit sub '先加上判断语句
b = Val(Text2.Text)
if b=0 then exit sub '再加上一句判断语句
'c = Val(a) / Val(b) 此句错误,不应再用val()函数了,改成下句
c = a / b
Text3.Text = c
End Sub

同学记住:
当text1.text的内容为空时,不能使用val()函数,否则写a = Val(Text1.Text)会出错的.
OK?

Answer 2

如果TEXT1或TEXT2为空，Val就会赋零值，分母为零就会出错啊！