LOOPING PARA COMBINACOES.

JB207 04/09/2007 14:58:50
#234075
Boa tarde galera....
Como montar um looping para fazer essas combinacoes abaixo.
Combinacoes de 6 numeros 2 a 2.
Ja tentei algumas coisas, mas o tico e o teco estão com preguiça.
Abraços.


01 02
01 03
01 04
01 05
01 06
02 03
02 04
02 05
02 06
03 04
03 05
03 06
04 05
04 06
05 06
USUARIO.EXCLUIDOS 04/09/2007 16:48:39
#234117
Amigo não entendi que tipo de combinação vc qr?

Tipo 01 02 06 ???

Da onde viriam os dados?
USUARIO.EXCLUIDOS 04/09/2007 16:50:18
#234119 Resposta escolhida
Amigo, adicione um MSHFlexGrid em seu formulário e rode a rotina abaixo:


    Dim MaxCol As Integer
    Dim MinCol As Integer
    
    Dim Contador As Integer
    
    MinCol = 2
    MaxCol = 6
    
    For i = 1 To 5
        For j = MinCol To MaxCol
            With MSHFlexGrid1
                .TextMatrix(.Rows - 1, 0) = i
                .TextMatrix(.Rows - 1, 1) = j
                
                .Rows = .Rows + 1
            End With
        Next
        MinCol = MinCol + 1
    Next
Tópico encerrado , respostas não são mais permitidas
Voltar