Dim a1, a2, a3 As Integer
Private Sub comadd_Click()
a2 = 1
If a3 = 0 Then
num2 = num1
End If
a1 = 10
labdis.Caption = ""
comadd.Enabled = False
comsub.Enabled = False
commul.Enabled = False
comdiv.Enabled = False
compoi.Enabled = False
num1 = 0
a3 = 0
End Sub
Private Sub comcls_Click()
num1 = 0
num2 = 0
a1 = 10
a2 = 0
a3 = 0
labdis.Caption = ""
comadd.Enabled = False
comsub.Enabled = False
commul.Enabled = False
comdiv.Enabled = False
compoi.Enabled = False
End Sub
Private Sub comdiv_Click()
a2 = 4
If a3 = 0 Then
num2 = num1
End If
a1 = 10
labdis.Caption = ""
comadd.Enabled = False
comsub.Enabled = False
commul.Enabled = False
comdiv.Enabled = False
compoi.Enabled = False
num1 = 0
a3 = 0
End Sub
Private Sub comequ_Click()
Select Case a2
Case 1
num2 = num1 + num2
Case 2
num2 = num2 - num1
Case 3
num2 = num2 * num1
Case 4
num2 = num2 / num1
End Select
labdis.Caption = Str$(num2)
If num2 < 1 And num2 > 0 Then
labdis.Caption = "0" + Mid$(Str$(num2), 2)
End If
If num2 < 0 And num2 > -1 Then
labdis.Caption = "-0" + Mid$(Str$(num2), 2)
End If
comequ.Enabled = False
a2 = 0
comadd.Enabled = True
comsub.Enabled = True
commul.Enabled = True
comdiv.Enabled = True
compoi.Enabled = False
num1 = 0
a3 = 1
a1 = 10
End Sub
Private Sub commul_Click()
a2 = 3
If a3 = 0 Then
num2 = num1
End If
a1 = 10
labdis.Caption = ""
comadd.Enabled = False
comsub.Enabled = False
commul.Enabled = False
comdiv.Enabled = False
compoi.Enabled = False
num1 = 0
a3 = 0
End Sub
Private Sub comnum0_Click()
If a3 = 1 Then
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
End If
labdis.Caption = labdis.Caption + "0"
If a1 <> 10 Then
num1 = num1 + a1 * 0
a1 = a1 / 10
Else
compoi.Enabled = True
num1 = num1 * a1 + 0
End If
If a2 = 0 Then
comadd.Enabled = True
commul.Enabled = True
comsub.Enabled = True
comdiv.Enabled = True
Else
comequ.Enabled = True
End If
If a2 = 4 And num1 = 0 Then
comequ.Enabled = False
End If
End Sub
Private Sub comnum1_Click()
If a3 = 1 Then
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
End If
labdis.Caption = labdis.Caption + "1"
If a1 <> 10 Then
num1 = num1 + a1 * 1
a1 = a1 / 10
Else
compoi.Enabled = True
num1 = num1 * a1 + 1
End If
If a2 = 0 Then
comadd.Enabled = True
commul.Enabled = True
comsub.Enabled = True
comdiv.Enabled = True
Else
comequ.Enabled = True
End If
End Sub
Private Sub comnum2_Click()
If a3 = 1 Then
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
End If
labdis.Caption = labdis.Caption + "2"
If a1 <> 10 Then
num1 = num1 + a1 * 2
a1 = a1 / 10
Else
compoi.Enabled = True
num1 = num1 * a1 + 2
End If
If a2 = 0 Then
comadd.Enabled = True
commul.Enabled = True
comsub.Enabled = True
comdiv.Enabled = True
Else
comequ.Enabled = True
End If
End Sub
Private Sub comnum3_Click()
If a3 = 1 Then
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
End If
labdis.Caption = labdis.Caption + "3"
If a1 <> 10 Then
num1 = num1 + a1 * 3
a1 = a1 / 10
Else
compoi.Enabled = True
num1 = num1 * a1 + 3
End If
If a2 = 0 Then
comadd.Enabled = True
commul.Enabled = True
comsub.Enabled = True
comdiv.Enabled = True
Else
comequ.Enabled = True
End If
End Sub
Private Sub comnum4_Click()
If a3 = 1 Then
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
End If
labdis.Caption = labdis.Caption + "4"
If a1 <> 10 Then
num1 = num1 + a1 * 4
a1 = a1 / 10
Else
compoi.Enabled = True
num1 = num1 * a1 + 4
End If
If a2 = 0 Then
comadd.Enabled = True
commul.Enabled = True
comsub.Enabled = True
comdiv.Enabled = True
Else
comequ.Enabled = True
End If
End Sub
Private Sub comnum5_Click()
If a3 = 1 Then
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
End If
labdis.Caption = labdis.Caption + "5"
If a1 <> 10 Then
num1 = num1 + a1 * 5
a1 = a1 / 10
Else
compoi.Enabled = True
num1 = num1 * a1 + 5
End If
If a2 = 0 Then
comadd.Enabled = True
commul.Enabled = True
comsub.Enabled = True
comdiv.Enabled = True
Else
comequ.Enabled = True
End If
End Sub
Private Sub comnum6_Click()
If a3 = 1 Then
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
End If
labdis.Caption = labdis.Caption + "6"
If a1 <> 10 Then
num1 = num1 + a1 * 6
a1 = a1 / 10
Else
compoi.Enabled = True
num1 = num1 * a1 + 6
End If
If a2 = 0 Then
comadd.Enabled = True
commul.Enabled = True
comsub.Enabled = True
comdiv.Enabled = True
Else
comequ.Enabled = True
End If
End Sub
Private Sub comnum7_Click()
If a3 = 1 Then
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
End If
labdis.Caption = labdis.Caption + "7"
If a1 <> 10 Then
num1 = num1 + a1 * 7
a1 = a1 / 10
Else
compoi.Enabled = True
num1 = num1 * a1 + 7
End If
If a2 = 0 Then
comadd.Enabled = True
commul.Enabled = True
comsub.Enabled = True
comdiv.Enabled = True
Else
comequ.Enabled = True
End If
End Sub
Private Sub comnum8_Click()
If a3 = 1 Then
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
End If
labdis.Caption = labdis.Caption + "8"
If a1 <> 10 Then
num1 = num1 + a1 * 8
a1 = a1 / 10
Else
compoi.Enabled = True
num1 = num1 * a1 + 8
End If
If a2 = 0 Then
comadd.Enabled = True
commul.Enabled = True
comsub.Enabled = True
comdiv.Enabled = True
Else
comequ.Enabled = True
End If
End Sub
Private Sub comnum9_Click()
If a3 = 1 Then
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
End If
labdis.Caption = labdis.Caption + "9"
If a1 <> 10 Then
num1 = num1 + a1 * 9
a1 = a1 / 10
Else
compoi.Enabled = True
num1 = num1 * a1 + 9
End If
If a2 = 0 Then
comadd.Enabled = True
commul.Enabled = True
comsub.Enabled = True
comdiv.Enabled = True
Else
comequ.Enabled = True
End If
End Sub
Private Sub comoff_Click()
Unload Me
End Sub
Private Sub compoi_Click()
a1 = 0.1
compoi.Enabled = False
labdis.Caption = labdis.Caption + "."
comequ.Enabled = False
comadd.Enabled = False
commul.Enabled = False
comsub.Enabled = False
comdiv.Enabled = False
End Sub
Private Sub comsub_Click()
a2 = 2
If a3 = 0 Then
num2 = num1
End If
a1 = 10
labdis.Caption = ""
comadd.Enabled = False
comsub.Enabled = False
commul.Enabled = False
comdiv.Enabled = False
compoi.Enabled = False
num1 = 0
a3 = 0
End Sub
Private Sub Form_Load()
num1 = 0
num2 = 0
a1 = 10
a2 = 0
a3 = 0
labdis.Caption = ""
comadd.Enabled = False
comsub.Enabled = False
commul.Enabled = False
comdiv.Enabled = False
compoi.Enabled = False
End Sub