Postada em 29/07/2011 17:10 hs
Public Sub GERARCHAVEDEACESSO()
Dim sTEMP As String
Dim i As Long
Dim iINDEX As Integer
sTEMP = ""
Randomize
For i = 1 To 8
iINDEX = (i * Rnd())
sTEMP = sTEMP & Trim(LTrim(RTrim(Str(Trim((iINDEX))))))
Next i
End Sub
Tenho esta função, parece funcionar perfeitamente, mas vejam, preciso gerar uma sequencia de 8 números de 0 a 9 , que podem serem repetidos, mas nos testes ele só me retorna um número até 7.
Tem algo errado?
vlu//
|
