Red de conocimiento informático - Material del sitio web - ¿Cómo escribir un selector de números simple usando VB? Simplemente haga clic y el programa seleccionará aleatoriamente un número (1 ~ 70 números).

¿Cómo escribir un selector de números simple usando VB? Simplemente haga clic y el programa seleccionará aleatoriamente un número (1 ~ 70 números).

Seleccione aleatoriamente bolas de dos colores:

Subcomando privado 1_Click()

Establezca a(6) en un número entero

Atenúe b en un número entero

Para i = 1 a 6

a(I)= Int(Rnd()*(1 (33-1)) 1

Para j = 1 a i - 1

Si a(i) = a(j ), entonces

i = i - 1

Terminará si...

Entonces

Entonces

Para i = 1 a 6

Para j = i 1 a 6

Si a(I ) lt; a( j) Entonces

T = a(i): a(i) = a(j): a(j) = T

Terminará si. ..

Entonces

Entonces

b = Int(Rnd()*(1 (16-1)) 1

Texto1 .text = a(6)amp;"ampa(5)andamp"ampa(4)_

amp"ampa(3)andamp"ampa(2)andamp"ampa(1)andamp""amp ;b

Conector final