Programación VB en línea, etc.·

Subcomando privado1_Click()

zk = 0

jm = 1

j = 0

Si Check1.Value = 1 Entonces zk = Text1

Si Check2.Value = 1 Entonces jm = Text2: j = Text3

Si Option1.Value = True Entonces

m = Texto4 * (1 - zk)

Texto5 = m - (m \ jm) * j

Fin Si

Si Opción2.Valor = Verdadero Entonces

m = Texto4 - (Text4 \ jm) * j

Texto5 = m * (1 - zk)

Finalizar si

m = 0

End Sub

Sub privado Option1_Click()

Si Option1.Value = True Entonces

Si Check1.Value = 0 Luego MsgBox "Seleccione una tasa de descuento"

Finalizar si

Finalizar sub

Sub privada Option2_Click()

Si Option2 Valor = Verdadero Entonces

Si Check2.Value = 0 Entonces MsgBox "Seleccione el monto total del descuento"

Finalizar si

End Sub