Red de conocimiento informático - Material del sitio web - Cómo crear un programa de canje de lotería en vb ¡Urgente! ! ! ! ! ! ! ! !

Cómo crear un programa de canje de lotería en vb ¡Urgente! ! ! ! ! ! ! ! !

Private?Sub?Command1_Click()

If?IsNumeric(Text1)?And?Len(Text1)?=?7?Then?' Determinar si la entrada es un número de 7 dígitos

Aleatoriamente

A?=?Format(Int(Rnd?*?9999999? ?1),?" 0000000")? Generar números de lotería

Label1.Caption?=? "Actual Los números de la lotería son: "?&?a

Para?i?=?1?A?7?' Determina si son iguales dígito por dígito, b es el mismo número

Si ?Mid(Text1,?i,?1)?=?Mid(a,?i,?1)?Entonces

b?=?b?1

Fin? Si

Siguiente paso

Si?b?=?7?Entonces

Label2.Caption?=?"Felicitaciones por ganar el primer premio "

ElseIf?b?=?6?Then

Label2.Caption?=?"Felicitaciones por ganar el segundo premio"

ElseIf?b?= ?5?Entonces

Label2.Caption?=?"Felicitaciones por ganar el tercer premio"

"Por analogía, determine si ganó el premio

Else

Label2.Caption?=??"Desafortunadamente, casi gana el premio"

Fin?If

Else

MsgBox ?" Por favor, introduzca un número de siete dígitos"

¿Salir?Sub

Fin?Si

Fin?Sub