Programación VB Escriba un programa para calcular: ingrese tres números A, B, C y envíelos en orden ascendente
Añade un control command1 tú mismo, el código es el siguiente:
privado
sub
command1_click()
tenue
a%,
b%,
c%,
t%
a
=
inputbox("Ingrese el primer valor: ")
b
=
inputbox( "Ingrese el segundo valor: ")
c
=
inputbox("Ingrese el tercer valor: ")
if
a
>
b
entonces
t
=
a:
a
=
b:
b
=
t
fin
si
si
b
>
c
entonces
t
=
b:
b
=
c:
c
=
t
fin
si
si
a
c
entonces
t< / p>
=
a:
a
=
c:
c< / p>
=
t
fin
si
imprimir
a;
p>"<";
b;
"<";
c
fin
sub