Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VBA: ingrese tres números enteros desde el teclado y luego llame al proceso sort(). El proceso sort() ordena los tres números de mayor a menor.

Programación VBA: ingrese tres números enteros desde el teclado y luego llame al proceso sort(). El proceso sort() ordena los tres números de mayor a menor.

¿Privado?Sub?Form6_Load(remitente?As?Objeto,?e?As?EventArgs)?Handles?MyBase.Load

Dim?a,?b,?c?As ?Integer

Me.Visible?=?False

a?=?InputBox("Ingrese el primer número entero")

b?=?InputBox ( "Ingrese el segundo número entero")

c?=?InputBox("Ingrese el tercer número entero")

Sort(a,?b,?c)

Me.Close()

Fin?Sub

Público?Sub?Sort(a?As?Integer,?b?As?Integer,?c? As?Integer )

Dim?m?As?Integer?=?0

Dim?list?As?New?List(Of?Integer)

list.Add (a)

list.Add(b)

list.Add(c)

For?i?=?0?To?list .Count? -?1

For?j?=?i?To?list.Count?-?1

If?list.Item(i)?lt;?list .Item( j)?Entonces

m?=?list.Item(i)

list.Item(i)?=?list.Item(j)

list.Item(j)?=?m

End?If

MsgBox("De El pedido de de grande a pequeño es: "?amp;?vbCrLf?amp;?list.Item(0)?amp;?", "?amp;?list.Item(1)?amp;?", "?amp;? lista .Item(2))

End?Sub

La escritura es tosca...