jose
05 de Agosto del 2003

Deseo saber como en visual puedo distribuir aleatoriamente ciertos objetos, por ejemplo, tengo 10 jueces y 10 expedientes y deseo distribuir los expedientes en formar aleat. entre los jueces.

Juan
05 de Agosto del 2003

Bueno te escribo una función aquí sobre la marcha haber si resulta
o si te da una idea.

private sub repartir(jueces() as juez,expedientes() as expediente)
dim i as integer, j as integer,k as integer
dim aux as expediente
k=ubound(expedientes)
for i=0 to ubound(expedientes)
j=fix(rnd*(k+1))
jueces(i).expediente=expedientes(j)
aux=expedientes(j)
expedientes(j)=expedientes(k)
expedientes(k)=aux
k=k-1
next i
end sub

NOTA: después de ejecutar esta función el array expedientes
queda totalmente desordenado.