Programación General > Visual Basic 6.0 e inferiores

 anagrama

(1/1)

andres69:
¿En donde puedo descargar ejemplos de anagramas?



Dim vector(20) as String
Dim palabra as string
Dim Anagrama as String
Dim i as Integer
Dim aleatorio as Integer
dim temp as String
palabra = inputBox ("Ingrese una palabra")
for i = 1 to len(palabra)
vector(i-1) = right(left(palabra,i),1)
next i
for i = 0 to len(palabra)-1
temp = vector(i)
aleatorio = rnd*(len(unaPalabra))
vector(i) = vector(aleatorio)
vector(aleatorio) = temp
next i
anagrama = ""
for i = 0 to len(unaPalabra)
anagrama = anagrama & vector(i)
next i

Nebire:
el código que tienes tiene algún pequeño error...

--- Código: Visual Basic --- Private Sub Form_Load()    Randomize Timer  ' si no hacemos esto RND siempre producira la misma secuencia de resultados, cada vez que ejecutemos el programaEnd Sub Private Sub Command1_Click()    Dim vector() As String    Dim palabra As String    Dim i As Integer    Dim aleatorio As Integer    Dim temp As String        '  nos aseguramos que la palabra no queda vacía, y que al menos tiene 3 letras... esto es al gusto...    Do        palabra = InputBox("Ingrese una palabra")        If Len(palabra) < 3 Then MsgBox "debe introducir al menos 3 caracteres"    Loop While Len(palabra) < 3     ReDim vector(0 To Len(palabra) - 1)    For i = 1 To Len(palabra)        vector(i - 1) = Right(Left(palabra, i), 1)    Next i        For i = 0 To Len(palabra) - 1        temp = vector(i)        aleatorio = Rnd * (Len(palabra))        vector(i) = vector(aleatorio)        vector(aleatorio) = temp    Next i    ' quitamos el bucle de 'anagrama' hay una función para eso en vb    MsgBox Join(vector, ""), vbInformationEnd Sub  
A qué llamas 'ejemplos de anagramas' ?????????. Un anagrama es trasliterar el orden de las letras de las palabras....

andres69:
gracias mi hermano, me funciono!!! :beer:  :good:  :hola:

Navegación

[0] Índice de Mensajes