vb编写计算器的计算代码是什么

private sub command1_click()
text3.text=val(text1.text)+val(text2.text)
end sub
private sub command2_click()
text3.text=""
text2.text=""
text1.text=""
end sub
private sub command3_click()
end
end sub

'计算按钮单击事件
Private Sub Command1_Click()
'检查Text1.Text和Text2.Text是不是合法数据，避免发生错误
If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Else
MsgBox "请输入正确数据！"
End If
End Sub
'清除按钮单击事件
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
'退出按钮单击事件
Private Sub Command3_Click()
End
End Sub

http://zhidao.baidu.com/question/518515835156936285.html?oldq=1