Programa vb: gane números de móvil.
El número de teléfono móvil y el número sorteado son Texto1 y Texto2 respectivamente, y a la derecha hay un cuadro de lista. AddItem (Texto1.Texto)
a(k) = a(n - 1)
n = n - 1
Texto2.Texto = Val(Texto2 .Text) 1 'Mostrar el número de sorteos realizados
End Sub
Private Sub Command2_Click() 'Continuar
Timer1.Click() 'Continuar p> p>
Timer1.Enabled = True
End Sub
Sub privado Form_load()
Timer1.Interval = 50: n = 100
For i = 0 To n - 1 'Simulación Genera n números de teléfonos móviles
a(i) = "133" amp; p> Siguiente i
Text1.Text = a(0)
End Sub
Private Sub Timer1_ Timer()
Aleatorizar
p>k = Int(n * Rnd)
Texto1.Texto = a(k)
End Sub