Question

我用VB做一个能算除法的小程序,我拖了两个TEXT和一个按钮

然后写好了代码:Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) /Val(Text2.Text)
End Sub
可是当我没有输入数在text里面的时候我点了按钮!然后就实时错误6!溢出错误了!怎么处理呢?
如何处理除数为0和这个溢出错误呢?求高手教我!编译器自动默认为0了!所以上面的两个if还有没有实际意义?况且就是编译器自动默认为0所以才导致这个错误了!那么后面的msgbox怕是要改成除数不能为0或者为空!

Answer 1

那是因为除数不能为空也不能为0等问题
改正成下面的:
Private Sub Command1_Click()
if text1.text="" then
msgbox "被除数不能为空!"
exit sub
endif
if text2.text="" then
msgbox "除数不能为空!"
exit sub
endif
if val(text2.text)=0 then
msgbox "除数不能为0!"
exit sub
endif
Text3.Text = Val(Text1.Text) /Val(Text2.Text)
End Sub

Answer 2

俺是不太懂vb6啦, 不过对你的程序有一点不成熟的看法, 呵呵
你想运算的两个值应该为数值型的吧, 但是文本框出来的应该是String吧, 所以肯定不能计算, 还有赋值回去的时候是不是也得把数值型转换成String赋给Text3呢
除数如果是0, 那怎么计算啊? 只能避免这种情况的发生, 在运算之前做个判断啊, 如果是0就弹出一个MsgBox或者就怎样怎样, 如果不是0就进行下面的计算.