Caracteres de programación Vb

El código es el siguiente:

Dim j es un número entero

Dim s (1 a 7), el valor máximo es un entero

Subcomando privado 1_Click()

Si Len(Text1.Text) lt gtentonces 7

MsgBox "¡Ingrese una cadena de siete dígitos!"

i. Cls

Otro

Para i = 1 a 7

s(i) = Asc(Mid(Text1.Text,i,1))

Siguiente i

Para i = 2 a 5

max = s(i)

Para j = i 1 a 6

Si s(j)>entonces Max

max = s(j)

s(j) = s(i)

s(i ) = max

Terminará si...

Siguiente j

Siguiente i

Para i = 1 a 7

Etiqueta1. Título = Etiqueta1. Títulos y títulos. Comisionado de Derechos Humanos (Estructura (1))

Siguiente yo

Terminará si...

Terminar conjunto