• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

ballkiller

[VB6] Ajuda Gerar numeros diferentes

4 mensagens neste tópico

Boas,

Eu sou novo nisto de VB, e ando a tentar fazer um programa em que gere varios numeros e que nao sejam iguais.

Abraço

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

+1 vez Lê as regras, e nop, também não programo em VB6,  já ouviste falar em VB.NET ?

0

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