菜鸟:计算器加法问题 在线等

Question

原码如下:
Dim fuhao, answer
Private Sub Command1_Click()Select Case fuhaoCase "+"
   answer = Text1.Text + Text2.Text
Case "-"
   answer = Text1.Text - Text2.Text
Case "*"
   answer = Text1.Text * Text2.Text
Case "/"
   answer = Text1.Text / Text2.Text
   End Select
   Text3.Text = answer
End SubPrivate Sub Command2_Click()
Unload Me
End SubPrivate Sub Option1_Click()
fuhao = "+"
End SubPrivate Sub Option2_Click()
fuhao = "-"End SubPrivate Sub Option3_Click()
fuhao = "*"
End SubPrivate Sub Option4_Click()
fuhao = "/"
End Sub
除了+法外,其他正确输入看上去没有问题.
但加法返回错误值:
如输入:
1
2
得到12.
请问是怎么回事情.谢谢解答

Answer 1

Case "+"
   answer = val(Text1.Text) + val(Text2.Text)修改下这个语句+ 符号左右均为字符串时，为连接操作，而非加法操作

Answer 2

谢谢你~~hjker
如果我想在除数为0时报错"除数不能为0",那我该怎么改呢??
恭候解答:

Answer 3

Case "/"
if Text2.Text="0" then msgbox"不能为0":exit sub
answer = Text1.Text / Text2.Text