Rnd iguales

[monro]

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 :

Código [Seleccionar] Expandir

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!

[ssccaann43 ©]

Mira este ejemplo: http://www.lawebdelprogramador.com/codigo/enlace.php?idp=1166&id=93&texto=Visual+Basic

[aaronduran2]

Aquí tienes otros ejemplos:

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/167-numeros-aleatorios-no-repetidos.htm

[monro]

gracias a los dos, voy a provar y os cuento ^^

EDITO: gracias, ya lo consegui, gracias a ambos ^^