Universidad Junior VB

El código para implementar estos requisitos es el siguiente:

Subcomando privado 1_Click()

precio = Val(Text1.Text)

Si precio>= 200 y precio <500 entonces precio=precio*0.97

Si precio>=500 y precio<1000 entonces precio=precio*0.95

Si precio>=1000 y precio<2500 entonces precio =precio*0.92

Si precio>=2500 y precio<5000 entonces precio=precio*0.9

Si precio>=5000 entonces precio=precio*0.86

Texto 2. text=precio

Conector final