Randômico

[feizepe]

Pessoal,

estou começando a programa em vb e estou com uma dúvida: Alguém sabe como eu faço para gerar uma lista de forma que cada vez que eu abra apareça em ordem diferente.

Por exemplo: como eu faço para apresentar os números de 1 à 10 embaralhados, cada vez em uma ordem diferente?

Tks,

Fernanda

[Graymalkin]

Utilize a função Rnd() para obter um número randômico. Vá colocando os números em uma coleção (ou vetor) e a cada número gerado, procure se o mesmo já não se encontra na lista (ao gerar números aleatórios é possível que os mesmos se repitam). Caso não o ache, coloque-o na lista (coleção). Abaixo segue um exemplo disso:

    Dim lista As New Collection
    
    Randomize
    Do While lista.Count < 10
        n = CInt((Rnd() * 9) + 1)
        achou = False
        For Each número In lista
            If número = n Then
                achou = True
            End If
        Next número
        If Not achou Then
            lista.Add n
        End If
    Loop
    
    For i = 1 To 10
        s = s & ", " & lista(i)
    Next i
    MsgBox Right(s, Len(s) - 2)

Certo?

Graymalkin

[feizepe]

Muito Obrigada!!! Obrigada Mesmo!!!