VB四则运算计算器1/2

1.运行程序，输入参数，结果如下。

1.1 加法

分别点击按钮：2、+、5、=，程序输出7。

1.2 减法

分别点击按钮：7、-、4、=，程序输出3。

1.3 乘法

分别点击按钮：3、*、6、=，程序输出3。

1.4 除法

分别点击按钮：18、/、2、=，程序输出9。

1.5 清除（CE）

点击按钮：清除（CE），结果如下：

2.部分源代码

Option Explicit
Dim Operator As Integer
Dim data1 As Single
Dim data2 As Single
Dim result As Single

Private Sub Command10_Click()
Text1.Text = Text1.Text + "0"
End Sub

Private Sub Command1_Click()
Text1.Text = Text1.Text + "1"
End Sub

******

Private Sub Command13_Click()
data1 = Val(Text1.Text)
Operator = 1
Text1.Text = ""
End Sub
Private Sub Command14_Click()
data1 = Val(Text1.Text)
Operator = 2
Text1.Text = ""
End Sub

Private Sub Command15_Click()
data1 = Val(Text1.Text)
Operator = 3
Text1.Text = ""
End Sub

Private Sub Command16_Click()
data1 = Val(Text1.Text)
Operator = 4
Text1.Text = ""
End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text + "2"
End Sub

Private Sub Command3_Click()
Text1.Text = Text1.Text + "3"
End Sub

Private Sub Command4_Click()
Text1.Text = Text1.Text + "4"
End Sub

Private Sub Command5_Click()
Text1.Text = Text1.Text + "5"
End Sub

Private Sub Command6_Click()
Text1.Text = Text1.Text + "6"
End Sub

Private Sub Command7_Click()
Text1.Text = Text1.Text + "7"
End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text + "8"
End Sub

Private Sub Command9_Click()
Text1.Text = Text1.Text + "9"
End Sub

Private Sub Command11_Click()
Text1.Text = Text1.Text + "."
End Sub

Private Sub Command17_Click()
Text1.Text = ""
End Sub