Red de conocimiento informático - Problemas con los teléfonos móviles - Código VB para crear un programa de lotería

Código VB para crear un programa de lotería

Público?j?As?Integer

Dim?A()?As?String

Dim?tem?As?String

Privado?Sub?CMD1_Click()?Tenga en cuenta que si no se sale del Sub aquí, aparecerá un mensaje de culpa "captio". De hecho, ha cambiado

If?CMD1.Caption?= ?" ¿"Iniciar"?Entonces

CMD1.Caption?=?"Detener"

Timer1.Enabled=? "True"

Salir?Sub

¿Fin?Si

Si?CMD1.Caption?=? "Detener"?Detener" Entonces

CMD1.Caption?Iniciar"

Temporizador1. ¿Habilitado?=?Falso

Si?tem?lt;gt;?"" Entonces

Texto1.Texto?=?tem

Fin?Si

¿Fin?Si

Fin?Sub

Privado?Sub?CMD2_Click()

Marco1.Visible?=?True

p>

Texto2.Visible?=?True

CMD3.Visible?=?True

CMD4.Visible?

Texto2.Visible?=? Falso

CMD3.Visible?=?False

CMD4.Visible?=?False

tem?=?Text2.Text

¿Fin?Sub

Privado?Sub?CMD4_Click()

Texto2.Text?=?"

Texto2.Visible?=?Falso

CMD3.Visible?=?False

CMD4.Visible?

Marco1.Visible?=?False

Texto2.Visible?=?False

CMD3.Visible?=?False

CMD4.Visible?=?False

Temporizador1.Interval?=?300

¿Abrir?" C:\Documentos?y?Configuración\Administrador\Escritorio\Nuevo?TextDocument.txt"?

¿Hasta?EOF(1)ReDim?Preserve?A(0?To?I)Entrada?#1,?A(I)I?=?I?1LoopClose?#1 p>

Fin?Sub

Privado?Sub?Timer1_Timer()

Texto1.Text?=?A(j)

j? =? j? ?1

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

j?=?0

Fin?Si

¿Fin?