excel practical
Dim a As DoubleDim b As Double
Dim c As Double
Dim op As Double
Private Sub CommandButton1_Click()
TextBox1.Text = TextBox1.Text + "1"
End Sub
Private Sub CommandButton10_Click()
TextBox1.Text = TextBox1.Text + "00"
End Sub
Private Sub CommandButton11_Click()
TextBox1.Text = TextBox1.Text + "0"
End Sub
Private Sub CommandButton12_Click()
b = TextBox1.Text
Call operaciones
End Sub
Private Sub CommandButton13_Click()
op = 1
a = TextBox1.Text
TextBox1.Text = ""
End Sub
Private Sub CommandButton14_Click()
op = 2
a = TextBox1.Text
TextBox1.Text = ""
End Sub
Private Sub CommandButton15_Click()
op = 3
a = TextBox1.Text
TextBox1.Text = ""
End Sub
Private Sub CommandButton16_Click()
op = 4
a = TextBox1.Text
TextBox1.Text = ""
End Sub
Private Sub CommandButton17_Click()
TextBox1.Text = ""
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = TextBox1.Text + "2"
End Sub
Private Sub CommandButton3_Click()
TextBox1.Text = TextBox1.Text + "3"
End Sub
Private Sub CommandButton4_Click()
TextBox1.Text = TextBox1.Text + "4"
End Sub
Private Sub CommandButton5_Click()
TextBox1.Text = TextBox1.Text + "5"
End Sub
Private Sub CommandButton6_Click()
TextBox1.Text = TextBox1.Text + "6"
End Sub
Private Sub CommandButton7_Click()
TextBox1.Text = TextBox1.Text + "7"
End Sub
Private Sub CommandButton8_Click()
TextBox1.Text = TextBox1.Text + "8"
End Sub
Private Sub CommandButton9_Click()
TextBox1.Text = TextBox1.Text + "9"
End Sub
Private Sub operaciones ()
If op = 1 Then
c = a + b
TextBox1.Text = c
End If
If op = 2 Then
c = a - b
TextBox1.Text = c
End If
If op = 3 Then
c = a * b
TextBox1.Text = c
End If
If op = 4 Then
c = a / b
TextBox1.Text = c
End If
