Sou aluno do técnico de informática, estamos vendo VB, só que surgiu um exercício que eu não estou conseguindo solucionar, no caso, seria pra descobrir e entregar para nota.
Já estou há um tempo tentando e nada...
bom seria assim:
Tenho 1 form com os componentes comandbutton (Gerar número) comandbutton (Limpar) e Listbox (O número tem que ser exibido dentro dele.
Até aí deu certo, fiz com a programação:
Dim x, i As Integer
Dim p As String
Randomize
For i = 1 To 6
x = Int((60 * Rnd) + 1)
p = p + Str(x) + ""
Next
lbxN.AddItem p
porém o número não pode repetir, pois o professor quer algo relacionado aos números da mega-sena, e os números sorteados tem que ser diferentes um do outro, mas está repetindo os números na mesma linha em alguns...
Pergunta
danilosfc
Olá amigos,
eu estou com um probleminha!
Sou aluno do técnico de informática, estamos vendo VB, só que surgiu um exercício que eu não estou conseguindo solucionar, no caso, seria pra descobrir e entregar para nota.
Já estou há um tempo tentando e nada...
bom seria assim:
Tenho 1 form com os componentes comandbutton (Gerar número) comandbutton (Limpar) e Listbox (O número tem que ser exibido dentro dele.
Até aí deu certo, fiz com a programação:
Dim x, i As Integer
Dim p As String
Randomize
For i = 1 To 6
x = Int((60 * Rnd) + 1)
p = p + Str(x) + ""
Next
lbxN.AddItem p
porém o número não pode repetir, pois o professor quer algo relacionado aos números da mega-sena, e os números sorteados tem que ser diferentes um do outro, mas está repetindo os números na mesma linha em alguns...
Se puderem me ajudar eu agradeço...
Um abraço
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.