Mega Sena

[Guest - Jean -]

olá pessoal, tenho que fazer um programa, um bingo para ser mais especifico, no que a cada vez que eu clicar em "sorteio", ele sorteasse uma sequencia de 6 numeros, e quando eu novamente clica-se em "sorteio", ele me desse uma nova sequencia de 6 numeros, porem enviando a sequencia anterior para a linha de baixo, mais uma coisa a cada sequencia que for sorteada não pode haver numeros repetidos, desde já obrigado

[PedroBarreto]

olá pessoal, tenho que fazer um programa, um bingo para ser mais especifico, no que a cada vez que eu clicar em "sorteio", ele sorteasse uma sequencia de 6 numeros, e quando eu novamente clica-se em "sorteio", ele me desse uma nova sequencia de 6 numeros, porem enviando a sequencia anterior para a linha de baixo, mais uma coisa a cada sequencia que for sorteada não pode haver numeros repetidos, desde já obrigado

Private Sub Command1_Click()

numeros = Int((10 * Rnd) + 1) ' O sortei sera entra 1 a 10

Text1.Text = numero 'no text1 ira aparecer os numero sorteados

End Sub

Abraços

Pedro Barreto

www.codigosvb.com.br Ta Em Construçao Ainda