NUMEROS RANDOMICOS

USUARIO.EXCLUIDOS 14/08/2007 12:06:49
#230832
Alguem poderia me ajudar?
quero saber como possofazer para gerar numeros randomicos de 1 a 100 por exemplo.
Tenho que fazer o seguinte, clicar em um botão e o numero deve ficar sendo exibido na tela esses numeros e parar em 1 desses numeros.
Por exemplo

clico no botão e na tela existe
2 89 57 13 20 19 1 77 e para no 5
não precisa seguir esta ordem como eu disse seria uma função random.
Alguem pode me ajudar com isso?
USUARIO.EXCLUIDOS 14/08/2007 12:58:22
#230838
Insira um textbox, e dois timer's

Private Sub Timer1_Timer()
Dim valor As String
Randomize
valor = Rnd * 100
Me.Text1.Text = Left(valor, InStr(1, valor, ",") - 1)
End Sub

Private Sub Timer2_Timer()
    Me.Timer1.Enabled = False
End Sub
USUARIO.EXCLUIDOS 14/08/2007 12:59:17
#230839 Resposta escolhida

Pega ae..

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(X, Y), vbExclamation


essa função permite um nº maximo e minimo (X e Y)

exemplo como vc quer MsgBox "O número gerado foi: " & iRandomInteger(1, 100), vbExclamation

boa srote e sucesso
Tópico encerrado , respostas não são mais permitidas
Voltar