Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Estou fazendo um gerador de códigos aleatórios que deve gerar nada mais e nada menos do que 8 caracteres. Mas toda vez que ele é iniciado ele retorna sempre o mesmo código 75523707.
O que estou fazendo de errado?
Alguém pode me ajudar? Obrigado.
Private Sub Command1_Click()
Dim valor As String
For i = 0 To 7
valor = Int(Rnd * 10)
Text1.Text = Text1.Text & valor
Next i
End Sub
Obrigado deu certo.
:)
Coloca a instrução Randomize antes do RND.
Private Sub Command1_Click()
Dim valor As String
Randomize
For i = 0 To 7
valor = Int(Rnd * 10)
Text1.Text = Text1.Text & valor
Next i
End Sub