Question

求VB编一个科学计算器程序代码！！！！

Answer 1

'计算按钮单击事件
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