¿Código de solicitud de clasificación de reorganización de conversión de números aritméticos de VB?

Subcomando privado1_Click() s1 = Texto1 s2 = "" For i = 1 To (Len(s1) + 1) / 4

c = Mid(s1, 4 * i - 3, 3)

s2 = s2 + c + " " + Izquierda(c, 1) + Derecha(c, 1) + Medio(c, 2, 1) + " " "

s2 = s2 + Medio(c, 2, 1) + Izquierda(c, 1) + Derecha(c, 1) + " " "

s2 = s2 + Derecha(c, 2 ) + Izquierda(c, 1) + " "

s2 = s2 + Derecha(c, 1) + Medio(c, 2, 1) + Izquierda(c, 1) + " "

s2 = s2 + Derecha(c, 1) + Izquierda(c, 2) + " " Siguiente i Texto2 = s2

Fin Sub

Subcomando privado2_Click() Dim a() As String a() = Split(Text2, " ") Para i = 0 Para UBound(a) - 2

Para j = 0 Para UBound(a) - 1 - i

?Si a(j) < a(j + 1) Entonces

t = a(j)

a(j) = a(j + 1)

a(j + 1) = t

?End If

Siguiente j

Texto3 = Texto3 & a(j - 1 ) & "" Siguiente i Texto3 = Texto3 & a(0)

End Sub

Sub privado Form_Load() Texto1 = "" Texto2 = "" Texto3 = ""

Fin Sub.