Visual Basic - generar numeros aleatorios listbox q no se repita

Life is soft - evento anual de software empresarial
   
Vista:

generar numeros aleatorios listbox q no se repita

Publicado por george (1 intervención) el 24/03/2008 18:36:43
hola , mira mi problema es que no se como hacer para que genere numeros aleatorios sin que se repitan esto es lo que yo e echo aver silo puden modificar

el ejercicio consiste en generar 5 numeros aleatorios del 0 al 9 en un listbox sin que ni un nùmero se repita :

dim i, x as integer

for i = 1 to 5 genero solo 5 numeros aleatorios
i= i + 1
randomize
x = int(rnd()*10)+0 genero numeros aleatorios entre 0 y 9

if x <> list1.list then condicion para q no se repitan ?
list 1.additem x
else
exit sub salgo del sub hasta anecontrar numeros que no se repitan ?
endif

next
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:generar numeros aleatorios listbox q no se rep

Publicado por weirdmix (36 intervenciones) el 24/03/2008 23:21:17
q te parece este codigo:

Dim i, x As Integer
Dim arrNumbers(5) As Integer

Dim repetido As Boolean
Randomize
For i = 1 To 5 'genero solo 5 numeros aleatorios
repetido = False


x = Int(Rnd() * 10) + 0 'genero numeros aleatorios entre 0 y 9
'arrNumbers(i - 1) = x
While repetido = False
For j = 0 To i - 1 'checar cada elemento del arreglo para buscar numero repetido
If i > 1 Then
If x = arrNumbers(j) Then
repetido = False
x = Int(Rnd() * 10) + 0 'genero numeros aleatorios entre 0 y 9
j = -1
ElseIf j = i - 1 Then
'arrNumbers(i - 1) = x
repetido = True
End If
Else
repetido = True
End If
Next j
Wend
arrNumbers(i - 1) = x
Next i
For i = 0 To UBound(arrNumbers) - 1
List1.AddItem arrNumbers(i)
Next i

metelo de preferencia en un sub para q solo lo llames...
saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:generar numeros aleatorios listbox q no se rep

Publicado por Sergio (1 intervención) el 08/09/2013 03:21:11
Buen código.

Saludos cordiales.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar