Ramdom en VB

[tazzmk]

Segun:

La función Rnd o Random posee la virtud de obtener números aleatorios entre 0 y 1:

El único inconveniente a la hora de usar Rnd, es que hay que inicializarlo, en otro caso,
el resultado de la función Rnd, será siempre el mismo dentro de un determinado ordenador.
Por ejemplo, el código:


Private Sub Form_Load()
Dim Num As Double
Num = Rnd
MsgBox Num
End Sub

Nos daría como resultado siempre el mismo número.

Para solucionar este problema, debemos escribir la sentencia Randomize antes de llamar
a la función Rnd. De esta manera, la función Rnd actuará correctamente.

El código quedaría así:


Private Sub Form_Load()
Dim Num As Double
Randomize
Num = Rnd
MsgBox Num
End Sub



como lo puedo hacer?
que haga al presionar el boton, genere un numero, pero que sea 1 al 99
pero que nunca se repita, saludos

[papanoel_devacaciones]

Código (vb) [Seleccionar] Expandir

Randomize
Tex1.Text = Int(Rnd * 98 + 1)


Saludos

[SKL (orignal)]

aca tenes algo mejorcito y mas completo, asi no se repiten los numeros...


http://www.classicvisualbasic.com/descargas/download.php?file=13


saludos!

[Mad Antrax]

Código (vb) [Seleccionar] Expandir

Randomize
Tex1.Text = Int(Rnd * 98 + 1)


Saludos

Eso es incorrecto, la solución:

Código (vb) [Seleccionar] Expandir

Randomize
Tex1.Text = Int(Rnd * 99 + 1)