Postada em 14/10/2012 21:16 hs
Galera to tentando gerar uma cartela de bingo, e preciso comparar se não exist numeros iguais.
Código:
For I = 1 To txtQuantidade.Text
Randomize
numero(0) = Int((20 - 1) * Rnd + 1) 'gera números de 1 a 20 aleatorios
numero(1) = Int((40 - 20) * Rnd + 20) 'gera números de 21 a 40 aleatorios
numero(2) = Int((60 - 40) * Rnd + 40) 'gera números de 41 a 60 aleatorios
numero(3) = Int((80 - 60) * Rnd + 60) 'gera números de 61 a 80 aleatorios
numero(4) = Int((100 - 80) * Rnd + 80) 'gera números de 81 a 100 aleatorios
numero(5) = Int((20 - 1) * Rnd + 1) 'gera números de 1 a 20 aleatorios
numero(6) = Int((40 - 20) * Rnd + 20) 'gera números de 21 a 40 aleatorios
numero(7) = Int((60 - 40) * Rnd + 40) 'gera números de 41 a 60 aleatorios
numero(8) = Int((80 - 60) * Rnd + 60) 'gera números de 61 a 80 aleatorios
numero(9) = Int((100 - 80) * Rnd + 80) 'gera números de 81 a 100 aleatorios
numero(10) = Int((20 - 1) * Rnd + 1) 'gera números de 1 a 20 aleatorios
numero(11) = Int((40 - 20) * Rnd + 20) 'gera números de 21 a 40 aleatorios
numero(12) = Int((60 - 40) * Rnd + 40) 'gera números de 41 a 60 aleatorios
numero(13) = Int((80 - 60) * Rnd + 60) 'gera números de 61 a 80 aleatorios
numero(14) = Int((100 - 80) * Rnd + 80) 'gera números de 81 a 100 aleatorios
numero(15) = Int((20 - 1) * Rnd + 1) 'gera números de 1 a 20 aleatorios
numero(16) = Int((40 - 20) * Rnd + 20) 'gera números de 21 a 40 aleatorios
numero(17) = Int((60 - 40) * Rnd + 40) 'gera números de 41 a 60 aleatorios
numero(18) = Int((80 - 60) * Rnd + 60) 'gera números de 61 a 80 aleatorios
numero(19) = Int((100 - 80) * Rnd + 80) 'gera números de 81 a 100 aleatorios
Next I
Ex: Os número numero(0), numero(5), numero(10), numero(15), São números de 1 a 20 que estarão na mesma coluna na CARTELA DE BINGO, e não podem ser iguais.
Os numeros numero(1), numero(6), numero(11), numero(16) São números de 21 a 40 que estarão na mesma coluna na CARTELA DE BINGO, e não podem ser iguais.
e assim por diante.
Preciso comparar os numeros das colunas para que não gere numeros iguais.
alguem sabe como faço isso???
|
