Private sub cmdgeranum_click( )

RANDOMIZE

numGerado = CINT(RND * 10)

msgbox numGerado

end sub

*O número 10 indica o último número do intervalo que será gerado pela função RND.

Caso você deseje gerar números do intervalo entre 0 e 100, basta substituir o número 10 pelo número 100.

*Na linha onde a função RND foi usada, perceba que usamos a função CINT. Com isto o computador irá gerar números do intervalo entre 0 e 10 SEM AS CASAS DECIMAIS, ou seja, SERÃO GERADOS SOMENTE NÚMEROS INTEIROS

kra muito obrigado tava precisando dessa função t amo =*

//Yours Ablankzin

Disponha se precisar de ajuda é só postar aqui e se eu demorar a responder manda MP

Podemos fazer uma bem mais estruturada também

Fiz um exemplo também:

Função RND

Muito bom esse tutorial.

É bem útil, hehe.

Parabéns

Olá Sayfor!

Desenvolvi uma função parecida, porém você pode escolher um valor mínimo para o Random.

Observe:

Private Function Random(Minimo As Long, Maximo As Long) As StringDim Tmp As LongDo While Tmp < Minimo     Tmp = Rnd(9) * MaximoLoopRandom = TmpEnd Function

Espero que tenha ajudado.

Abraços,

//Bol~ (Esperando reativação da conta Boleta)

Olá Sayfor!

Desenvolvi uma função parecida, porém você pode escolher um valor mínimo para o Random.

Observe:

 

Private Function Random(Minimo As Long, Maximo As Long) As StringDim Tmp As LongDo While Tmp < Minimo     Tmp = Rnd(9) * MaximoLoopRandom = TmpEnd Function

 

Espero que tenha ajudado.

Abraços,

//Bol~ (Esperando reativação da conta Boleta)

 

<{POST_SNAPBACK}>

 

 

Boa função =]

Parabens

@Caicheiro

Para gerar números randômicos.