Vb implementa la selección aleatoria de 4 números entre 0 y 9, que no se pueden repetir. Cómo implementarlo con vb, cuanto más simple sea el código, mejor.

Dim i es un número entero, a(4) es un número entero

Hacer

Para i = 1 a 4

a(i) = Int(Rnd * (10))

Siguiente i

bucle hasta a(1)<& gta(2) y a (1)< ;& gta(3) y a(1)<& gta(4) y a(2)<& gta(3) y a(2)<& gta(4) y a(3)<& gt respuesta(4)

Para i = 1 a 4

imprime un(uno);

Siguiente I

Conector final

Aunque no es muy sencillo, el efecto es completamente efectivo.