VB编写简易计算器

1、首先设置好页面：

3个文本框分别为：

Text1

Text2

Text3

加法，减法，乘法，除法，退出分别为：

Command1

Command2

Command3

Command4

Command5

2、接下来是代码:

Option Explicit

Dim parameter1 As Single

Dim parameter2 As Single

Dim parameter3 As Long

Private Sub Command1_Click()

parameter1 = Text1.Text

parameter2 = Text2.Text

parameter3 = parameter1 + parameter2

Text3.Text = parameter3

End Sub

Private Sub Command2_Click()

parameter1 = Text1.Text

parameter2 = Text2.Text

parameter3 = parameter1 - parameter2

Text3.Text = parameter3

End Sub

Private Sub Command3_Click()

parameter1 = Text1.Text

parameter2 = Text2.Text

parameter3 = parameter1 * parameter2

Text3.Text = parameter3

End Sub

Private Sub Command4_Click()

parameter1 = Text1.Text

parameter2 = Text2.Text

If parameter2 = 0 Then

MsgBox "除数不能是零！", vbCritical, "警告"

Else

parameter3 = parameter1 / parameter2

Text3.Text = parameter3

End If

End Sub

Private Sub Command5_Click()

End

End Sub