Red de conocimiento informático - Problemas con los teléfonos móviles - Programa vb: gane números de móvil.

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>

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