Funcion Random Pero Con palabras

[NsTeam]

hola

bueno tengo una duda sobre la funcion rnd de visual basic

se usarlo para numeros , para q genere numeros aleatorios

pero como hago para que genere palabras

ejemplo:

tengo "gato, perro, gallina, gallo, ballena"

y que en el textbox se muestre cualquiera de los 5 pero en random

alguien tiene idea?

[seba123neo]

Hola, si queres mostrar esas palabras especificas, pues obvio las debes guardar en algun lado, como por ejemplo un array, y mostrar el elemento que quieras usando Random...

saludos.

[k_arlytos]

LE AGREGAS UN BOTON

Código: [Seleccionar]


Dim vAnimales As Variant
Private Sub Command1_Click()
Dim Num As Byte
Randomize
Num = Int((4 * Rnd) + 1)
MsgBox vAnimales(Num)
End Sub

Private Sub Form_Load()
vAnimales = Array("Gato", "Perro", "Gallina", "Gallo", "Ballena")
End Sub



[NsTeam]

gracias!!