SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: andres69 en Martes 21 de Julio de 2009, 06:38

Título: anagrama
Publicado por: andres69 en Martes 21 de Julio de 2009, 06:38
¿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
Título: Re: anagrama
Publicado por: Nebire en Martes 21 de Julio de 2009, 10:49
el código que tienes tiene algún pequeño error...
Código: Visual Basic
  1.  
  2. Private Sub Form_Load()
  3.     Randomize Timer  ' si no hacemos esto RND siempre producira la misma secuencia de resultados, cada vez que ejecutemos el programa
  4. End Sub
  5.  
  6. Private Sub Command1_Click()
  7.     Dim vector() As String
  8.     Dim palabra As String
  9.     Dim i As Integer
  10.     Dim aleatorio As Integer
  11.     Dim temp As String
  12.    
  13.     '  nos aseguramos que la palabra no queda vacía, y que al menos tiene 3 letras... esto es al gusto...
  14.     Do
  15.         palabra = InputBox("Ingrese una palabra")
  16.         If Len(palabra) < 3 Then MsgBox "debe introducir al menos 3 caracteres"
  17.     Loop While Len(palabra) < 3
  18.  
  19.     ReDim vector(0 To Len(palabra) - 1)
  20.     For i = 1 To Len(palabra)
  21.         vector(i - 1) = Right(Left(palabra, i), 1)
  22.     Next i
  23.    
  24.     For i = 0 To Len(palabra) - 1
  25.         temp = vector(i)
  26.         aleatorio = Rnd * (Len(palabra))
  27.         vector(i) = vector(aleatorio)
  28.         vector(aleatorio) = temp
  29.     Next i
  30.     ' quitamos el bucle de 'anagrama' hay una función para eso en vb
  31.     MsgBox Join(vector, ""), vbInformation
  32. End Sub
  33.  
  34.  

A qué llamas 'ejemplos de anagramas' ?????????. Un anagrama es trasliterar el orden de las letras de las palabras....
Título: Re: anagrama
Publicado por: andres69 en Martes 21 de Julio de 2009, 19:33
gracias mi hermano, me funciono!!! :beer:  :good:  :hola: