ciao ragazzi ho una list box i valori di essa sono ottenuti grazie a questo codice:

codice:
Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim z As Integer
       List3.Clear
    z = 0
    For i = 1 To 46 Step 5
        For j = i To j + 4
            For k = j + 1 To i + 4
            sb = adoPrimaryRS(j)
              st = adoPrimaryRS(k)
              amb1 = Abs(sb - st)
                 If amb1 > 45 Then amb1 = 90 - amb1
                 If amb1 = 30 Then
               N1 = sb
               N2 = st
                z = z + 1
       List3.AddItem " ruota " & " " & CStr(N1) & "  " & CStr(N2) '& "  " & CStr(n3) & "  " & CStr(n4)
                End If
            Next k
        Next j
    Next i
ottengo n1,n2

pero' molto spesso ottengo
tre
quattro coppie di n1,n2

dovrei fare i calcoli combinando fra loro le varie coppie
per esempio se otterrei 4 coppie, dovrei incrociare fra loro

su 4 coppie avrei
6 combinazioni

esempio pratico della 1° combinazione
n1, n2
|---|
|---|
n1, n2

dovrei sommare
n1+n1

n2+n2

booo
non riesco

saro incpace del tutto e dovtrei lasciarci stare con VB

o è dvvero dificile