Clculadora

Calculadora vb

Dim limpar As String

Dim calculo As Currency

Dim tabela As Currency

Dim memoria As Currency

Private Sub cmd0_Click()

Visor.Text = Visor.Text + "0"

End Sub

Private Sub Cmd1_Click()

Visor.Text = Visor.Text + "1"

End Sub

Private Sub Cmd2_Click()

Visor.Text = Visor.Text + "2"

End Sub

Private Sub Cmd3_Click()

Visor.Text = Visor.Text + "3"

End Sub

Private Sub Cmd4_Click()

Visor.Text = Visor.Text + "4"

End Sub

Private Sub Cmd5_Click()

Visor.Text = Visor.Text + "5"

End Sub

Private Sub Cmd6_Click()

Visor.Text = Visor.Text + "6"

End Sub

Private Sub Cmd7_Click()

Visor.Text = Visor.Text + "7"

End Sub

Private Sub Cmd8_Click()

Visor.Text = Visor.Text + "8"

End Sub

Private Sub Cmd9_Click()

Visor.Text = Visor.Text + "9"

End Sub

Private Sub CmdC_Click()

limpar = ""

memoria = 0

Visor.Text = limpar

calculo = 0

End Sub

Private Sub CmdDividir_Click()

memoria = Visor.Text

Visor.Text = ""

calculo = 2

End Sub

Private Sub CmdMultiplicar_Click()

memoria = Visor.Text

Visor.Text = ""

calculo = 1

End Sub

Private Sub CmdOff_Click()

End

End Sub

Private Sub Cmdseparador_Click()

Visor.Text = Visor.Text + ","