Código fuente del programa de lotería Vb

Descripción: Nuevo proyecto, 2 botones, 1 cuadro de lista y 1 etiqueta.

Los nombres son: cmdsj, Cmdload, listname, labtip.

Luego, en el directorio del programa generado, guardé la lista de personal de 1 línea con el nombre de cada persona como txt y la nombré: lista de personal. TXT.

Todo el código:

Atenuar lista de nombres (1 a 40)

Private Sub Cmdload_Click()

Continuar con el siguiente paso en caso de error

Abre "Lista de personas.txt" como n.° 1 e ingresa el nombre del Dim.

, i

Para i = 1 a 40

línea ingrese #1, Lista de nombres (I)

Nombre de lista. AddItem(NameList(I))

Siguiente I

Cerrar #1

cmdsj. enable=True

Indicaciones de laboratorio. Caption = "¡Lectura completada!"

Conector final

Sub privado cmdsj_Click()

Continúe con el siguiente paso si ocurre un error

Hacer química irregular

Dimensión n

n = Int(Rnd()*(1-40 1) 40)

Consejos de laboratorio. Título = NameList(n)

Conector final

Subform_Load privado()

Cmdload. Caption = "Lista de lectura"

Cmdsj. Caption = "Generado aleatoriamente"

cmdsj. enable=false

Indicaciones de laboratorio. Caption = "¡Primero lea la lista!"

Fin de accesorios