Função Rnd (ramdonmize)

[brunohjoia]

Aew galera!

To querendo fazer uma rotina onde, quando eu clicar num comandbutton, na label apareça um valor aleatório, mas que esse valor seja 1, 2 ou 3 apenas! Sei q existe uma função rnd q faz isso, mas não sei como utilizá-la... Alguém aí poderia me dar uma dica de como fazer o q estou tentando? Se houver alguma outra função também serve!

Vlw Galera!

Bruno

[igorSM]

Eu testei e esse código funcionou(mude para o q você precisar):

    Dim a As Integer
    a = Round(3 * Rnd(1), 0)
    While a = 0
        a = Round(3 * Rnd(1), 0)
    Wend
    MsgBox a

É só colocar isso no seu commandButton e ele vai exibir uma mensagem com o número aleatório(nesse caso só 1,2 e 3)

É isso?

Igor

[brunohjoia]

Sim, era isso! Obrigado!

[Guest Gardenni]

Olá Igor, vi o seu código abaixo e estou precisando algo parecido. Só que no meu caso preciso que a rotina gere um numero randomico de 7 dígitos, você poderia me ajudar?

Eu testei e esse código funcionou(mude para o q você precisar):

   Dim a As Integer
    a = Round(3 * Rnd(1), 0)
    While a = 0
        a = Round(3 * Rnd(1), 0)
    Wend
    MsgBox a

É só colocar isso no seu commandButton e ele vai exibir uma mensagem com o número aleatório(nesse caso só 1,2 e 3)

É isso?

Igor

[kuroi]

seria simplesmente isso:

Randomize
num = Int(Rnd * (10 ^ 7))[/code]