calculadora excel

Contenido del Archivo

Private Sub division_Click()
Dim a As Double
Dim b As Double
Dim c As Double

a = CDbl(TextBox1.Text)
b = CDbl(TextBox2.Text)
c = a / b
TextBox3.Text = CStr(c)
End Sub

Private Sub multiplicacion_Click()
Dim a As Double
Dim b As Double
Dim c As Double

a = CDbl(TextBox1.Text)
b = CDbl(TextBox2.Text)
c = a * b
TextBox3.Text = CStr(c)
End Sub

Private Sub raiz_cuadrada_Click()
TextBox3.Text = Sqr(Val(TextBox1.Text))

End Sub

Private Sub resta_Click()
Dim a As Double
Dim b As Double
Dim c As Double

a = CDbl(TextBox1.Text)
b = CDbl(TextBox2.Text)
c = a - b
TextBox3.Text = CStr(c)
End Sub

Private Sub suma_Click()
Dim a As Double
Dim b As Double
Dim c As Double

a = CDbl(TextBox1.Text)
b = CDbl(TextBox2.Text)
c = a + b
TextBox3.Text = CStr(c)

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox3_Change()

End Sub