Palabra al azar en textBox de una lista?(vb2008)

[usuario oculto]

   Me gustaria tener una lista:

   -carne
   -fruta
   -huevos
   -lacteos

    Y cuando apriete el button salga una de esas palabras al azar en textBox.
    Tambien me gustaria que cada vez que se apriete el boton y salga una pala-
  bra se borre la anterior.

    Por favor ayudarme no quiero recurrir a yahoo answers xDD

[cassiani]

Hola, tienes muchas formas de hacerlo, prueba esta

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim strArray() As String

Private Sub Command1_Click()
    Randomize
    Text1.Text = strArray(Int(Rnd * (UBound(strArray) + 1)))
End Sub

Private Sub Form_Load()
    ReDim strArray(3)
   
    strArray(0) = "carne"
    strArray(1) = "fruta"
    strArray(2) = "huevos"
    strArray(3) = "lacteos"
End Sub

Crea una rutina para seguir agregando elementos al array (redimensionalo en el intento).

saludos!!

[jdc]

O un número random en un text oculto y dependiendo del número muestras una palabra con select case...

Así agregas las palabras que quieras sólo agrandando el rango random y case(s).

Saludos espero que te sirva

[Skeletron]

Una manera sería dandole un valor numerico del 1 al 4 a cada palabra (conun switch)... y con un random (un sistema que te da un numero aleatorio) que "elija" alguno de lso 4 valores...