Autor
:Código:
For k = 0 To 8
Randomize
h(k) = Rnd() * 9
Select Case k
Case 1
If h(1) = h(0) Then k = k - 1
Case 2
If h(k) = h(0) Or h(k) = h(1) Then k = k - 1
Case 3
If h(k) = h(0) Or h(k) = h(1) Or h(k) = h(2) Then k = k - 1
Case 4
If h(k) = h(0) Or h(k) = h(1) Or h(k) = h(2) Or h(k) = h(3) Then k = k - 1
Case 5
If h(k) = h(0) Or h(k) = h(1) Or h(k) = h(2) Or h(k) = h(3) Or h(k) = h(4) Then k = k - 1
Case 6
If h(k) = h(0) Or h(k) = h(1) Or h(k) = h(2) Or h(k) = h(3) Or h(k) = h(4) Or h(k) = h(5) Then k = k - 1
Case 7
If h(k) = h(0) Or h(k) = h(1) Or h(k) = h(2) Or h(k) = h(3) Or h(k) = h(4) Or h(k) = h(5) Or h(k) = h(6) Then k = k - 1
Case 8
If h(k) = h(0) Or h(k) = h(1) Or h(k) = h(2) Or h(k) = h(3) Or h(k) = h(4) Or h(k) = h(5) Or h(k) = h(6) Or h(k) = h(7) Then k = k - 1
Case 9
If h(k) = h(0) Or h(k) = h(1) Or h(k) = h(2) Or h(k) = h(3) Or h(k) = h(4) Or h(k) = h(5) Or h(k) = h(6) Or h(k) = h(7) Or h(k) = h(8) Then k = k - 1
End Select
Next k
Yo habia pensado que en caso de que fueran iguales diera un paso hacia atras y repitiera el proceso hasta que le saliera un numero diferente, pero he hecho algo mal, si me podeis ayudar os lo agredeceria, si no pos nada xD. Nos vemos!
En línea
