palabras al azar

[oskar5]

hola

quiero mostrar en un label una palabra pero no siempre la misma algo asi como una ruleta q de repende de una lista grande me saque una palabra y la ponga en el label


tengo este codigo para realizar busquedas al azar de numeros y ponerlos en labels, pero quiero hacerlo con palabras como le hago?? jiji

Private Sub Azar() ' creamos un procedimiento llamado Azar
N1= int(Rnd * 10) + 1 ' elige un número aleatorio de 1 a 10
N2= int(Rnd * 10) +1
N3= int(Rnd * 10) +1
If N1 <> N2 And N2 <> N3 And N1 <> N3 then 'controla que no haya 2 números iguales. Usamos los operadores <> y And.
Label1.caption = N1 ' volcamos los valores de las variables en las labels.
Label2.caption = N2
Label3.caption = N3
Else
Exit Sub ' Si uno de los números se repite sale de la Rutina y vuelve a llamarse al procedimiento Azar desde el Botón 1.
End If
End Sub



gracias espero su ayuda

[blackwind]

hola,
no se vb, pero si te puedo decir la logica para hacer lo que quieres:

1.-declaras un arreglo con las posibles palabras que quieres que se impriman.
2.-obtienes el tamaño de ese arreglo
3.- haces un random del tamaño del arreglo (si el arreglo mide 10, tu random que saque numeros entre 0 y 9)
4.- mandas a imprimr el arreglo en la posicion del valor del random.

saludos,