Dim a, b
Private Sub Command1_Click()
Text1.Text = Text1.Text + "1"
End Sub
Private Sub Command10_Click()
Text1.Text = Text1.Text + "0"
End Sub
Private Sub Command11_Click()
If InStr(Text1.Text, ".") = 0 Then Text1.Text = Text1.Text + "."
End Sub
Private Sub Command12_Click()
a = Val(Text1.Text)
Text1.Text = ""
b = 1
End Sub
Private Sub Command13_Click()
a = Val(Text1.Text)
Text1.Text = ""
b = 2
End Sub
Private Sub Command14_Click()
a = Val(Text1.Text)
Text1.Text = ""
b = 3
End Sub
Private Sub Command15_Click()
a = Val(Text1.Text)
Text1.Text = ""
b = 4
End Sub
Private Sub Command16_Click()
If Text1.Text <> "" Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub
Private Sub Command17_Click()
Text1.Text = ""
End Sub
Private Sub Command18_Click()
Text1.Text = ""
a = 0: b = 1
End Sub
Private Sub Command19_Click()
If b = 1 Then Text1.Text = a + Val(Text1.Text)
If b = 2 Then Text1.Text = a - Val(Text1.Text)
If b = 3 Then Text1.Text = a * Val(Text1.Text)
If b = 4 Then Text1.Text = a / Val(Text1.Text)
End Sub
Private Sub Command2_Click()
Text1.Text = Text1.Text + "2"
End Sub
Private Sub Command20_Click()
Text1.Text = 1 / Val(Text1.Text)
End Sub
Private Sub Command21_Click()
If Timer1.Enabled = False Then
Timer1.Enabled = True
Command21.Caption = "时钟关"
Else
Timer1.Enabled = False
Text1.Text = ""
Command21.Caption = "时钟开"
End If
End Sub
Private Sub Command22_Click()
Text1.Text = Sqr(Text1.Text)
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 Timer1_Timer()
Text1.Text = Time()
End Sub