No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
HOLA!!!
Aqui mi solucion[VBS] por que no tengo ningun compilador aca:Código: vb Dim ABC (25)
Cadena = LCase(InputBox("Inserte cadena a analizar","RETO"))
For X = 1 To Len (Cadena)
Letra = mid(Cadena,x,1)
NumLetra = asc(Letra)-97
ABC(NumLetra) = ABC(NumLetra) & Letra
Next
For x = 24 To 0 Step -1
For y = 0 to x
If Len(ABC(y)) > Len(ABC(y + 1)) Then
temp = ABC(y+1)
ABC(y + 1) = ABC(y)
ABC(y) = temp
End If
Next
Next
Do
Flag = True
For x = 0 to 24
If Len(ABC(x))=Len(abc(x+1)) Then
If Asc(Right(ABC(x),1)) < Asc(Right(ABC(x + 1),1)) Then
temp = ABC(x)
ABC(x) = ABC(x + 1)
ABC(x + 1) = temp
Flag = Flase
End If
End If
Next
Loop Until Flag
For X = 0 to 25
Out = Out & RIGHT(ABC(x),1)
Next
Inputbox "Resultado", "RETO", strreverse(Out)
Para la cadena que colocas aqui sera:
lpjbvwmtadefhnoqrsxcukyzgi
@No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
Perdon, no lo vi, debi haberlo salteado sin darme cuenta, pero esas no son formas de contestar, intenta mantener el respeto que es fundamental para el foro.
GRACIAS POR LEER!!!
Es correcto felicitaciones!!
