¿Necesito ayuda creando este programa en Visual Basic?

El usuario introduce un precio de costo de un articulo dado. Calcular y mostrar el precio neto del artículo. La fórmula para calcularlo es:

precio_neto = precio_costo * (100+porcentaje_ganancia) / 100 - decuento

El descuento es del 15% del precio de costo si éste supera las 2000 pts. y de 200 pts. en otro caso.

Por favor ayudenmeee!!!!

1 respuesta

Calificación
  • hace 1 década
    Respuesta preferida

    Hola, hasta donde te he entendido he logrado este codigo espero te ayude en algo.

    para ello he usado 2 textbox 2 labels 2 commandbutton

    Private Sub Command1_Click()

    Dim pc As Double

    Dim pn As Double

    Dim dscto As Double

    pc = Val(Text1.Text)

    If pc > 2000 Then dscto = (pc * 0.15) Else dscto = 200

    'supongamos que el porcentaje de ganancias es del 0.20%

    pn = (pc * (100 + 0.2)) / (dscto - 100)

    Text2.Text = Str(pn)

    End Sub

    Private Sub Command2_Click()

    Text1.Text = ""

    Text2.Text = ""

    Text1.SetFocus

    End Sub

¿Aún tienes preguntas? Pregunta ahora para obtener respuestas.