seleccionar numeros aleatoriamente sem repetir

[mmalainho 0]

Bom dia,

 

Tenho uma lista de IDS(1,2,3,4,5,6,7,8,9,10) que resulta de um select.

 

Por cada vez que eu abra o site quereo que sejam seleccionados aleatoriamente 5 IDS sem repetir.

 

Alguem me pode dar uma ajudinha?

 

Obrigado

[Martinsrj 0]

Verifica se isso te ajuda:

 

DIM vetBg(5) '*** declaração do vetor para armazenar as cores

DIM x '*** variável usada para o contador

vetBg(0) = "#FFFFFF"

vetBg(1) = "#FFFFCC"

vetBg(2) = "#71B8FF"

vetBg(3) = "#CCCCCC"

vetBg(4) = "#66CCCC"

 

 

Randomize 'Usado para se basear no relógio do sistema e desta maneira não repetir valores.

varBg = vetBg(cint(rnd()*4)) 'Utilizando o rnd para sortear uma cor no vetor

 

 

Bom dia,

 

Tenho uma lista de IDS(1,2,3,4,5,6,7,8,9,10) que resulta de um select.

 

Por cada vez que eu abra o site quereo que sejam seleccionados aleatoriamente 5 IDS sem repetir.

 

Alguem me pode dar uma ajudinha?

 

Obrigado

 

[xanburzum 169]

números aleatórios e sem repetição.

 

Function GerarN(ByVal Qtd, ByVal Min, ByVal Max)
Dim Vetor()
Redim Vetor(Qtd)
Randomize
For i = 0 To Qtd
N = Int(Min+(Rnd*(Max-Min)))
Tem = False
For y = 0 To Qtd
If Vetor(y) = N Then
Tem = True
Exit For
End If
Next
If Not Tem Then
Vetor(i) = N
Else
i = i - 1
End If
Next
GerarN = Vetor
End Function