Producción del miniprograma de lotería de Beijing

Subcomando privado 1_Click()

Definir una matriz para almacenar nombres.

Dim RStr (0 a 9) como una cadena

Dim i, j, k

Asigna un valor al número que se va a desplazar.

El uso real debe ser RStr(0)= 1