Red de conocimiento informático - Problemas con los teléfonos móviles - vb sortea el primer premio y el segundo premio

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: