vb sortea el primer premio y el segundo premio
No seas demasiado simple. . . . sudor. . .
Crear un nuevo proyecto
Pon una Lista1 en Form1 para mostrar 100 números de teléfonos móviles generados aleatoriamente
Pon una Lista2 en Form1 para mostrar la lotería El móvil extraído número de teléfono
Poner cuatro comandos en Form1
Comando1 genera aleatoriamente un número de teléfono móvil
¿Comando2? Generar el primer premio
¿Comando3? Generar el segundo premio
Comando4? Generar el tercer premio como se muestra en la figura:
El siguiente es el código:
Privado?Sub?Command1_Click()
List1.Clear
Para?i?=?0?To?99
Aleatorizar
List1.AddItem?"13" ?&? CLng(Rnd?*?899999999?+?100000000)
Siguiente
Fin?Sub
Privado?Sub?Command2_Click()
List2.AddItem?"**Primer premio**"
inicio:
Aleatorio
r?=?Int(Rnd?*? 99)
For?i?=?0?To?List2.ListCount?-?1
Si?List2.List(i)?=?List1.List(r) ?Entonces
Ir a?inicio
Fin?Si
Siguiente
List2.AddItem?List1.List(r)
Fin?Sub
Privado?Sub?Command3_Click()
List2.AddItem?"**Segundo premio**"
Para?k ? =?1?A?3
iniciar:
Aleatorio
r?=?Int(Rnd?*?99)
¿Para?i?=?0?A?List2.ListCount?-?1
Si?List2.List(i)?=?List1.List(r)?Entonces
Ir a?inicio
Fin?Si
Siguiente
List2.AddItem?List1.List(r)
Siguiente
End?Sub
Privado?Sub?Command4_Click()
List2.AddItem?"**Tercer premio**"
Para?k ?=?1?A?7
iniciar:
Aleatorio
r?=?Int(Rnd?*?99)
Para?i?=?0?A?List2.ListCount?-?1
Si?List2.List(i)?=?List1.List(r)?Entonces
Ir a?inicio
Fin?Si
Siguiente
List2.AddItem?List1.List(r)
Siguiente
Fin?Sub
Privado?Sub?Form_Load()
Comando1.Caption?=?"Generar número de teléfono móvil"
Comando2.Caption ? =?"Generar el primer premio"
Command3.Caption?=?"Generar el segundo premio"
Command4.Caption?=?"Generar el tercer premio"
End?Sub
El efecto es como se muestra en la figura: