Vetor e randomização

[maciel.kuka]

Boa tarde a todos, =)

Estou precisando de uma super ajuda.. preciso criar um vetor onde os números serão tirados de uma tabela em um banco de dados. o nome do campo que irá preencher é "código". depois disso preciso fazer o programa randomizar APENAS os números dentro desse vetor. e fazer o "sorteado" aparecer num label. o problema é que o código que entrará no vetor não tem uma ordem. por exemplo: vetor = "2,5,6,8,13,19".

Pra ser sincera não sei nem se é possível fazer isso, mas é algo assim que eu preciso fazer. Se alguém aí souber e puder me ajudar mostrando o código... =)

Desde já agradeço,

Erika :rolleyes:

[fercosmig]

cara, não testei o código, mas acho que é algo assim que você precisa, faz um teste ae

vetor = "2,5,6,8,13,19"

Randomize()

Dim valor As Integer = CInt(Int((Len(vetor) * Rnd()) + 1))

label.text = vetor(valor)

[maciel.kuka]

deeu errado =S mas obrigada =)

[kuroi]

dei uma corrigida no codigo:

vetor = Array(2, 5, 6, 8, 13, 19)

Randomize

Dim valor As Integer
valor = Int((UBound(vetor) + 1) * Rnd())

Label1.Caption = vetor(valor)[/code]