Código del programa de lotería VB

Recuento difuso

El subformulario privado 1_Load (remitente como objeto, e como EventArgs) maneja MyBase. Cargar

Array = { "Li Huan", "Gong Li", "Tan Xianliang", "Wang Tao", "Xu", "Liu Ye", "Zheng Quanheng", "Liao Wei", "Guo Wei", " Li Jian"}

Contar = matriz. Count

Conector final

Sub Button1_Click privado (remitente como objeto, y como EventArgs) maneja el botón 1. Haga clic en

Atenuar aleatorio = Nuevo aleatorio(). Siguiente(Array.Count)

Hacer

IfArray(random)<>""Entonces

Contar-= 1

I. texto = matriz(aleatorio)&;Contar

Array(aleatorio) = " "

Salir Do

Otro

Aleatorio = NuevoAleatorio (). siguiente (matriz.

Count)

Terminará si...

Bucle Mientras(count>;1)

Finalizar conector