Código fuente del programa de lotería Vb
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