NUMERO RANDOM SEM REPETIR

GREGS 30/04/2011 15:22:07
#372879
Olá,

dei uma pesquisada no forum e encontrei muita coisa que poderia me ajudar, porém não encontrei o que eu realmente queria.
Usando o que eu achei montei o seguinte código:

Dim Max
Dim Min

Private Function ALEAT(Min 1, Max 100)
Randomize
ALEAT = CLng((Min - Max) * Rnd + Max)
MsgBox ALEAT
End Function


está me reotnando um ero no compilador: String 4m Caract 28, [ô])[ô] expected, COD 8000A03EE

não sei como resolver isso, alguem pode me ajudar??
MARCELO.TREZE 30/04/2011 16:25:59
#372882 Resposta escolhida
olha o certo seria isto

Private Function ALEAT(Min As Integer, Max As Integer)
Randomize
ALEAT = CLng((Min - Max) * Rnd + Max)
MsgBox ALEAT
End Function


Private Sub Command1_Click()
ALEAT 1, 100
End Sub
GREGS 30/04/2011 16:43:15
#372884
Citação:

:
olha o certo seria isto

Private Function ALEAT(Min As Integer, Max As Integer)
Randomize
ALEAT = CLng((Min - Max) * Rnd + Max)
MsgBox ALEAT
End Function


Private Sub Command1_Click()
ALEAT 1, 100
End Sub



Tentei isso e não dei certo, então decidi fazer bem diferente e fiz isso:

Dim CNTR
Randomize
CNTR = CInt((10) * Rnd)
MsgBox CNTR


Funcionou!!!

De qualquer forma obrigado, a dica do [Ô]As Integer[Ô] me ajudou a ver as coisas de outra forma..

VLW
MARCELO.TREZE 30/04/2011 16:48:42
#372885
vc está programando em vb6? pois o código que postei funciona perfeitamente
Tópico encerrado , respostas não são mais permitidas
Voltar