Programa de lotería de producción de VB

Público?j?As?Integer

Dim?A()?As?String

Dim?tem?As?String

Private?Sub?CMD1_Click()?' Tenga en cuenta que si no hay exit?sub aquí, parecerá que el título no cambiará. De hecho, ha cambiado

If?CMD1.Caption? =?"Inicio" ?Entonces

CMD1.Caption?=?"Detener"

Temporizador1.Enabled?=?True

Salir?Sub

Fin ?If

If?CMD1.Caption?=?"Stop"?Then

CMD1.Caption?=?"Start"

Temporizador1.Enabled?= ?Falso

Si?tem?<>?""?Entonces

Texto1.Texto?=?tem

Fin?Si

¿Fin?Si

Fin?Sub

Privado?Sub?CMD2_Click()

Marco1.Visible?=?True

Texto2 .Visible?=?True

CMD3.Visible?=?True

CMD4.Visible?=?True

Fin?Sub

Privado?Sub?CMD3_Click()

Texto2.Visible?=?False

CMD3.Visible?=?False

CMD4. ¿Visible?=?Falso

tem?=?Text2.Text

Fin?Sub

Privado?Sub?CMD4_Click()

Text2.Text?= ?""

Texto2.Visible?=?False

CMD3.Visible?=?False

CMD4.Visible?=?False

Fin?Sub

Privado?Sub?form_load()

Marco1.Visible?=?Falso

Texto2.Visible?= ?False

CMD3.Visible?=?False

CMD4.Visible?=?False

Temporizador1.Enabled?=?False

Temporizador1.Intervalo? =?300

¿Abrir?"C:\Documentos?y?Configuración\Administrador\Escritorio\Nuevo?Documento de texto.txt"?Para?Entrada?As?1

¿Hasta?EOF(1) ReDim?Preserve?A(0?To?I) Entrada?#1,?A(I) I?=?I?+?1 Cierre de bucle?#1

Fin ?Sub

Privado?Sub?Timer1_Timer()

Texto1.Text?=?A(j)

j?=?j ?+?1

Si?j?=?UBound(A)?Entonces

j?=?0

¿Fin?If

End?Sub

Se ha ejecutado y aprobado, pero hay que crear un archivo de texto en el escritorio para almacenar datos, jaja