Key Wizard 9, define una matriz, los valores de la matriz son cadenas especificadas y utiliza una función aleatoria para generar aleatoriamente los valores de la matriz. Por favor dame tu consejo.

dim

a = array("aba", "cba", "nba", "eba", "fba", "rba")

Dim i, respuesta

"Aleatorio" inicializa el generador de números aleatorios.

Hacer hasta respuesta = vbNo

I = Int((5 * Rnd))' Genera un número aleatorio entre 0 y 5.

MsgBox a(i)

Respuesta = MsgBox("¿Volver a rodar?", vbYesNo)

Timbre