Question

Dado un monto calcular el descuento considerado que por encima de 10.000 el descuento es del 25% y por debajo de 10.000 el descuento es del 12,5%

Answer 1

hay esta el codigo y las imagenes del diseño


Private Sub Command1_Click()
'boton calcular
Dim r, r2 As Integer

If Me.Text1 < 10000 Then
Me.Text2 = "12,5%"
r = Me.Text1 * 12.5r2 = r / 100
Me.Text3 = r2
ElseIf Me.Text1 > 10000 Then
Me.Text2 = "25%"
r = Me.Text1 * 25r2 = r / 100
Me.Text3 = r2
End IfEnd IfEnd Sub
Private Sub Command2_Click()
'boton limpiar
Me.Text1 = ""
Me.Text2 = ""
Me.Text3 = ""
End Sub