¿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
