VB计算器的加减乘除如何编写的

Private Sub Command1_Click()

n = Val(Text1.Text)

m = Val(Text2.Text)

Label1.Caption = Command1.Caption

s = n + m

Text3.Text = CStr(s)

End Sub

Private Sub Command2_Click()

n = Val(Text1.Text)

m = Val(Text2.Text)

Label1.Caption = Command2.Caption

s = n - m

Text3.Text = CStr(s)

End Sub

Private Sub Command3_Click()

n = Val(Text1.Text)

m = Val(Text2.Text)

Label1.Caption = Command3.Caption

s = n * m

Text3.Text = CStr(s)

End Sub

Private Sub Command4_Click()

n = Val(Text1.Text)

m = Val(Text2.Text)

Label1.Caption = Command4.Caption

s = n / m

Text3.Text = CStr(s)

End Sub

不是这种,就是像WINDOWS自带的那个计算器一样只有一个文本框的

Dim n As Integer
Dim ysf As String
Dim m As Integer
Dim k As Integer
Private Sub Command1_Click(Index As Integer)
For i = 0 To 3
If Command1(i).Value = True Then
ysf = Command1(i).Caption
Text1.Text = ""
k = k + 1
End If
Next i
End Sub

Private Sub Command2_Click()
If ysf = "+" Then
s = n + m
ElseIf ysf = "-" Then
s = n - m
ElseIf ysf = "*" Then
s = n * m
ElseIf ysf = "/" Then
s = n / m
End If
Text1.Text = CStr(s)
End Sub

Private Sub Command3_Click(Index As Integer)
For i = 0 To 9
If Command3(i).Value = True Then
Text1.Text = Text1.Text & Command3(i).Caption
End If
Next i
If k = 0 Then
n = Val(Text1.Text)
Else
m = Val(Text1.Text)
End If
End Sub

Private Sub Command4_Click()
Text1.Text = ""
k = 0
End Sub
我是将数字键0-9编写在command3控件数组中，+、-、*、/编写在command1控件数组中，=号编写在command2中，“清除”写在command4中