|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Gerar Números Aleatórios
|
 |
|
|
|
Postada em 14/4/2001 por VBManiaco
activexnanet@bol.com.br
Public Function iRandomInteger(viLowerBound As Integer, viUpperBound As Integer)
iRandomInteger = Int(Rnd * (viUpperBound - viLowerBound + 1)) + viLowerBound
End Function
'Para chamar
MsgBox "O número gerado foi: " & iRandomInteger(1, 9999), vbExclamation
T+
Rodrigo Ragazzi Yamamoto
ICQ UIN: 89511702
|
|
|
|
|
