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