Red de conocimiento informático - Problemas con los teléfonos móviles - vb sorteo de lotería Escriba un programa sencillo de sorteo de lotería de 30 a 5.

vb sorteo de lotería Escriba un programa sencillo de sorteo de lotería de 30 a 5.

Atenuar a(0 a 4) como entero

Subcomando privado1_Click()

Para i = 1 a 30

Si i = 30 entonces

t = t & i

De lo contrario

t = t & ","

Para i = 30 entonces

t = t & i &","

Finalizar si

Siguiente

Para i = 0 a 4

j = Dividir (t, ","")

Aleatorio

temp = Int(Rnd * (UBound(j) + 1) + 0)

Texto1(i) = j(temp)

Si temp <> UBound(j) Entonces

t = Reemplazar(t, "," & j(temp) & ",", ", ")

Else

t = Reemplazar(t, "," & j(temp) &",", "")

Finalizar si

Siguiente

Fin Sub

Subcomando privado2_Click()

Para i = 1 a 30

Si i = 30 Entonces

t = t & i

De lo contrario

t = t & i &","

Finalizar si

Siguiente

Para i = 0 a 4

j = Split(t, ","")

Aleatorizar

temp = Int(Rnd * (UBound(j) + 1) + 0)

a(i) = j(temp)

Si temp <> UBound(j ) Entonces

t = Reemplazar(t, "," & j(temp) & ",", ","")

Else

t = Reemplazar (t, "," & j(temp) & ",", "")

Finalizar si

Siguiente

Imprimir "El número ganador es: " & a(0) & vbTab & a(1) & amp; vbTab & a(2) & vbTab & a(3) & vbTab &a(4)

Para i = 0 a 4

Para k = 0 a 4

Si a(i) = Texto1(k) Entonces n = n + 1

Siguiente

Siguiente

Si n <> 0 entonces

MsgBox "Felicitaciones, ganaste" & 6 - n & "Premio en espera"

De lo contrario

p>

MsgBox "Desafortunadamente, no ganaste el premio"

End If

End Sub

上篇: paso 7v5.6 Cómo cargar el programa 下篇: Cambiar proporción del código fuente

Artículos populares