¿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