Red de conocimiento del abogados - Respuesta jurídica de la empresa - Usa VB para crear pequeños programas
Usa VB para crear pequeños programas
Opción?Explícito
Privado?Sub?Form_Load()
Aleatorio
Etiqueta1.Caption?=?Int((Rnd? *?(999999?-?100000? ?1))? ?100000)'Generar un número aleatorio entre 100000-999999
Temporizador1.Intervalo?=?1000?'Una vez por segundo
Timer1.Enabled?=?True
Fin?Sub
Privado?Sub?Timer1_Timer()
Estático?n?As?Integer p >
n?=?n? ?1
Si?n?=?60?¿Entonces?' una vez por segundo, y se acumula hasta 60, que son 60 segundos
n ?=?0
Aleatorizar
Label1.Caption?=?Int((Rnd?*?(999999?-?100000? ?1))? ?100000)
End?If
End?Sub
Si tiene alguna pregunta, pregunte. Si está satisfecho, ¡adelante!