GERAR NUMEROS ALEATORIOS

PEGUDO 18/03/2010 06:39:25
#337260

Cara, para este exemplo eu utilizei uma Caixa de textos, um ListBox e um Botão:

[txt-color=#0000f0]Private Sub[/txt-color] Command1_Click()
[txt-color=#0000f0]Dim[/txt-color] Numero [txt-color=#0000f0]As Integer[/txt-color]

Numero = Val(Text1.Text)
List1.Clear

[txt-color=#0000f0]For[/txt-color] i = 1 [txt-color=#0000f0]To[/txt-color] Numero
Retorno: [txt-color=#007100][ô]Ponto onde gostaríamos de retornar[/txt-color]
Numero1 = [txt-color=#0000f0]CInt[/txt-color](100 * Rnd + 1) [txt-color=#007100][ô]Gerando nº aleatório[/txt-color]
Numero2 = [txt-color=#0000f0]CInt[/txt-color](100 * Rnd + 1) [txt-color=#007100][ô]Gerando nº aleatório[/txt-color]
Numero3 = [txt-color=#0000f0]CInt[/txt-color](Numero1 + Numero2) [txt-color=#007100][ô]Fazendo a soma dos nsº aleatórios[/txt-color]
[txt-color=#0000f0] For [/txt-color]j = 0 [txt-color=#0000f0]To[/txt-color] List1.ListCount - 1 [txt-color=#007100][ô]Loop para verificar se foi gerado um nº duplicado[/txt-color]
[txt-color=#0000f0] If [/txt-color]List1.List(j) = Numero3 [txt-color=#0000f0]Then[/txt-color] [txt-color=#007100][ô]Se gerou um nº que já existe na lista, então...[/txt-color]
[txt-color=#0000f0] GoTo [/txt-color]Retorno [txt-color=#007100][ô]Volte para o ponto de retorno e gere outro nº[/txt-color]
[txt-color=#0000f0]End If
Next[/txt-color]
List1.AddItem Numero3 [txt-color=#007100][ô]Adicione o nº aleatório[/txt-color]
[txt-color=#0000f0] Next
End Sub[/txt-color]

Espero ter ajudado
abraços

MKING 18/03/2010 08:29:55
#337265 Resposta escolhida

Tente essa função

Public Function geraNumero()
Randomize

X = Int(9999999999 * Rnd + 1)

numeroGerado = Format(X, [Ô]0000000000[Ô]) [ô]numeroGerado é variavel global no caso

End Function

e para chamar:

geraNumero

MsgBox [Ô]O número gerado é [Ô] & numeroGerado