SoloCodigo

Vale ai muchas formas de hacer una calculadora bueno aca les dejo n simple ejemplo de una calculadora
1.- Primero creamos un Textbox llamado "visor"
2.- Luego creamos 10 botonoes (ComamdButton) y a cada unos de los botones le ponen de nobre asi n1, n2, n3, n4, n5, n6, n7, n8, n9, n0
3. Luego un boton con el nombre "Limpiar"
4.- y por ultimo 5 botones con los siguientes nombres (suma, resta, division, multiplicacion, igual) y acontinuacion copien este codigo..

Dim opera As Byte
Dim num1, num2, resp As Double

Private Sub divicion_Click()
    num1 = Val(visor.Text)
    opera = 4
    visor.Text = ""
End Sub

Private Sub Form_Load()
    num1 = 0
    num2 = 0
End Sub

Private Sub igual_Click()
    resp = 0
    num2 = Val(visor.Text)
    If opera = 1 Then
        resp = num1 + num2
    End If
        If opera = 2 Then
            resp = Val(num1) - Val(num2)
   
        End If
            If opera = 3 Then
                resp = num1 * num2
            End If
                If opera = 4 Then
                    If num2 = 0 Then
                        MsgBox "No se puede Dividir entre cero"
                Exit Sub
                    End If
                        resp = num1 / num2
                End If
                        visor.Text = resp
End Sub

Private Sub limpiar_Click()
    visor.Text = ""
    num1 = 0
    num2 = 0
    resp = 0
End Sub

Private Sub multiplicacion_Click()
    num1 = Val(visor.Text)
    opera = 3
    visor.Text = ""
End Sub

Private Sub n0_Click()
    visor.Text = visor.Text + Str(0)
End Sub

Private Sub n1_Click()
    visor.Text = visor.Text + Str(1)
End Sub

Private Sub n2_Click()
    visor.Text = visor.Text + Str(2)
End Sub

Private Sub n3_Click()
    visor.Text = visor.Text + Str(3)
End Sub

Private Sub n4_Click()
    visor.Text = visor.Text + Str(4)
End Sub

Private Sub n5_Click()
    visor.Text = visor.Text + Str(5)
End Sub

Private Sub n6_Click()
    visor.Text = visor.Text + Str(6)
End Sub

Private Sub n7_Click()
    visor.Text = visor.Text + Str(7)
End Sub

Private Sub n8_Click()
    visor.Text = visor.Text + Str(8)
End Sub

Private Sub n9_Click()
    visor.Text = visor.Text + Str(9)
End Sub

Private Sub resta_Click()
    num1 = Val(visor.Text)
    opera = 2
    visor.Text = ""
End Sub

Private Sub salir_Click()
    End
End Sub

Private Sub suma_Click()
    num1 = Val(visor.Text)
    opera = 1
    visor.Text = ""
End Sub

Nota: el text aik ponerle en su propiedad Enabled = False
bueno aca tambien les dejo el programa hehco saludos