FUNCAO

AUGUSTTO 10/06/2005 21:15:35
#88368
tenho um vetor carregado de numeros,eu queria que o VB pega-se qualquer numero e retorna-se ele para mim dentro de uma variavel,existe esta função de escolher um numero?
ALEXANDRE.SANTO 10/06/2005 21:55:02
#88375
Resposta escolhida
Ahh uma funcao especifica para isso realmente nao sei se existe agora da pra faze assim:

Dim vTeste(1 To 6) As Integer

Private Sub Command1_Click()
Randomize Timer
vSort = Int((6 * Rnd) + 1)

MsgBox vTeste(vSort)
End Sub

Private Sub Form_Load()
vTeste(1) = 78
vTeste(2) = 45
vTeste(3) = 36
vTeste(4) = 71
vTeste(5) = 87
vTeste(6) = 46
End Sub

Isso ira sortear os numeros do vetor.........soh coloca um botao e faze o teste
AUGUSTTO 10/06/2005 22:01:51
#88376
cara na boa não entendi a linha vSort = Int((6 * Rnd) + 1)
ALEXANDRE.SANTO 10/06/2005 22:05:08
#88377
Essa linha significa que vae sortear um numero de 1 ate 6........no caso seria referente ao tamanho do seu vetor........entaum por exemplo.......essa linha sortea o numero 4......logo ele irá dar a mensagem do numero 71...........entendeu???
AUGUSTTO 10/06/2005 22:09:18
#88378
dentro do parenteses ira sortear de 1 a 6 ,aquele 6 é o tamanho do vetor aquele Rnd pega qualquer um e agora porque tem o + 1 e o que é ^
ALEXANDRE.SANTO 10/06/2005 22:19:54
#88380
Olha na boa nao sei exatamente mais se vc tira o + 1 ele nao gere numero ate 6 ele gere ate 5 ae com ele gera normal....!!!!
AUGUSTTO 10/06/2005 22:26:21
#88381
valeu cara já da para ter uma noção disso ai
abraço
Tópico encerrado , respostas não são mais permitidas