Imprimir Página - Rnd iguales

Hola, soy nuevo, encantado de estar en este foro ^^. Bueno, vamos al grano, mirar, quiero hacer un juego en el el qual se asigna una palabra a una variable aleatoria y me gustaria hacer que si esa palabra ya ha salido pues que no pueda volver a salir a la vez, no se si me explico, os enseño lo que he intentado (sin exito), no os metais mucho conmigo que soy nuevecillo :P:

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!

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: monro en 7 Abril 2010, 20:20 pm