Programación VB: ingrese tres números desde el teclado y use el método de comparación e intercambio para generar los tres números en el formulario en orden de mayor a menor.

Subcomando privado1_Click()a = InputBox("Ingrese el primer número:", "Preguntar")

b = InputBox("Ingrese el segundo número:", " Prompt")

c = InputBox("Ingrese el tercer número:", "prompt")

Si a < b Entonces t = a: a = b: b = t

Si a < c Entonces t = c: a = c: c = t

Si b < c Entonces t = b: b = c: c = t

Form1.AutoRedraw = True

Imprimir "Tres números de mayor a menor:"

Imprimir a, b, c

End Sub