Ir para o conteúdo
ballkiller

[VB6] Ajuda Gerar numeros diferentes

Mensagens Recomendadas

ballkiller    0
ballkiller

Este o programa k eu tenho:

Private Sub Command1_Click()

Randomize
For c = 0 To 5
  l(c) = Int(Rnd * 9) + 1
Next
For c = 0 To 4
  For a = 1 To 5
   If Val(l(c)) = Val(l(a)) Then
    l(a) = Int(Rnd * 9) + 1
   End If
  Next
Next
End Sub

Private Sub Command2_Click()
For c = 0 To 4
  For a = c + 1 To 5
   If Val(l(c)) > Val(l(a)) Then
    Var = l(c)
    l(c) = l(a)
    l(a) = Var
   End If
  Next
Next
End Sub

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Asgorath    0
Asgorath

Boas.

Como és novo no fórum não deves ter lido as regras, deve sempre indicar qual a versão de vb estas a usar no titulo, pelo código que postaste é óbvio que é vb6.

Eu já NÃO programo em vb6 portanto vais ter esperar por alguém te ajude.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade