语文阅读四世同堂节选:VB做的简易计算器

Dim Str1, Str2, Str3 As String
Dim result As Double
Private Sub Command1_Click()
Str1 = Str1 & "1"
Text1.Text = Str1
End Sub

Private Sub Command10_Click()
Str1 = Str1 & "8"
Text1.Text = Str1
End Sub

Private Sub Command11_Click()
Str1 = Str1 & "9"
Text1.Text = Str1
End Sub

Private Sub Command12_Click()
Str2 = Str1
Text1.Text = ""
Str1 = ""
Str3 = "*"
End Sub

Private Sub Command13_Click()
If Str1 = "" Then Exit Sub
Str1 = Str1 & "0"
Text1.Text = Str1
End Sub

Private Sub Command14_Click()
Str1 = Str1 & "."
Text1.Text = Str1
End Sub

Private Sub Command15_Click()
If Str3 = "+" Then result = Val(Str2) + Val(Str1)
If Str3 = "-" Then result = Val(Str2) - Val(Str1)
If Str3 = "*" Then result = Val(Str2) * Val(Str1)
If Str3 = "/" Then result = Val(Str2) / Val(Str1)
Text1.Text = result
Str1 = result
End Sub

Private Sub Command16_Click()
Str2 = Str1
Text1.Text = ""
Str1 = ""
Str3 = "/"
End Sub

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

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

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

Private Sub Command4_Click()
Str2 = Str1
Text1.Text = ""
Str1 = ""
Str3 = "-"
End Sub

Private Sub Command5_Click()
Str1 = Str1 & "4"
Text1.Text = Str1
End Sub

Private Sub Command6_Click()
Str1 = Str1 & "5"
Text1.Text = Str1
End Sub

Private Sub Command7_Click()
Str1 = Str1 & "6"
Text1.Text = Str1
End Sub

Private Sub Command8_Click()
Str2 = Str1
Text1.Text = ""
Str1 = ""
Str3 = "+"
End Sub

Private Sub Command9_Click()
Str1 = Str1 & "7"
Text1.Text = Str1
End Sub