VB universitario, preguntas de programación de VB, los maestros de VB pueden ayudar a los jóvenes, trabajo muy duro, espero poder escribir los pasos en detalle, preferiblemente en papel, estrictamente
El código para implementar los requisitos es el siguiente:
Private Sub Command1_Click()
precio = Val(Text1.Text)
Si precio gt ;= 200 Y precio lt; Entonces precio = precio * 0,97
Si precio gt;= 500 Y precio lt; Entonces precio = precio * 0,95
Si precio gt;= 1000 Y precio lt; Entonces precio = precio * 0,92
Si precio gt; = 2500 Y precio lt; Entonces precio = precio * 0,9
Si precio gt; ; = 5000 Entonces precio = precio * 0,86
Text2.Text = precio
End Sub