Key wizard 9, define an array, the values in the array are specified strings, and randomly output the values in the array with random functions. Please give me your advice.

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

Dim i, respond

Randomize initializes the random number generator.

Do until response = vbNo

I = Int((5 * Rnd))' generates a random number between 0 and 5.

MsgBox a(i)

Response = MsgBox ("Roll again?" ，vbYesNo)

ring