¿Cómo utilizar la programación vb en las siguientes situaciones?
Subcomando privado 1_Click()
Dim s, I, p es Single
s = Val(Text1. Text)
Si s & lt entonces 250
i = 0
De lo contrario, si s & lt entonces 500
i = 0.02
De lo contrario, si s & lt entonces 1000
p>
i = 0.05
ElseIf s & ltentonces 2000
i = 0.08
ElseIf s & ltentonces 3000
i = 0,08
ElseIf s & ltentonces 3000
p>
i = 0,1
Otro
i = 0,15
Terminará si...
p = s * ( 1 - i)
Texto 2. Texto = Str(p)
Conector final