Visual Basic - alertorios no repetitivos

tengo este codigo quiero pasar todos los numeros alertorios entre 1980 a 2016 de un listbox1 a otro listbox2 sin que se repitan

Private Sub Btnaños_aleatorios_Click(sender As Object, e As EventArgs) Handles Btnaños_aleatorios.Click
For i = 1 To 36
ListBox1.Items.Add(CInt((2016 - 1980) * Rnd() + 1980))
Next
End Sub

Te sugiero que uses la funcion RANDOMIZE antes de utilizar RND
esto hara que los numeros generados sean realmente aleatorios
el no utilizar RANDOMIZE hace que los numeros generados sean los mismos en cada corrida


En cuanto a tu problema, yo lo soluciono guardando en un vector los numeros generados y los guardo solamente despues de revisar que no esten repetidos


Con un simple For-Next lo resuleves

Ya estando seguros que no hay reperidos y teniendo la cantidad de numeros deseados, entonces los pasamos al ListBox

Amigo la solucion es que guardes la informacion en una bd y luego con una simple sentencia sql llame los datos que quieres.

y los colocas en tu listbox.

Sin mas por el Momento se Despide.

LUIS A FRANCO R
INGENIERO DE SISTEMAS
EMAIL: [email protected]
TLF: 0426-5821929
PIN: 79F120E2
INSTAGRAM: FRANCO776
TWITTER: @FRANCO776

Primero llena el list box1 con ese rtandom

luego lo que pases al list box 2 es con un for recorriendo el list 1 son random