编写简易计算器时，没弹出除数不能为0的提示框，什么问题？代码附上

小凤0423 发布于 2014-04-08 08:00， 2750 次点击

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Label1 = "-"
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Label1 = "*"
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command4_Click()
Label1 = "/"
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
If Val(Text2.Text) = "0" Then
MsgBox "除数不能为0"
End If
End Sub

5 回复

owenlu19812014-04-08 08:23

Val(Text2.Text) = "0"
=> 加了Val后值为数字，后面的值不需要加界定符 Val(Text2.Text) = 0

风吹过b2014-04-08 08:23

1、你都已经除了，还判断什么，那直接出错了。
2、你判断命令：
If Val(Text2.Text) = "0" Then
左边使用 VAL 函数，把值转化为数值，右边，写的是字符串 “0” 。这二个无论什么时候都不会相等的，所以不会有提示除数为0

--------
If Val(Text2.Text) = 0 Then
MsgBox "除数不能为0"
else
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End If

小凤04232014-04-08 10:22

回复 3楼风吹过b

我说呢，之前编写都没出错的，谢了，亲

小凤04232014-04-08 10:23

回复楼主小凤0423

这个不是主要问题，因为一开始我就数值等于数值，但是后来不行才加的“”号的，谢了！

凡人20142014-04-10 21:10

学习经验