[vb6] algoritmo

[viviana75]

Salve

Devo creare un programma con le seguenti caratteristiche:

dati tre insiemi di numeri, e date le sorti creare le combinazioni.

Mi spiego meglio:
Immaginiamo di avere:
Primo insieme con i numeri: 1 - 2 - 3
Secondo insieme con i numeri: 4 - 5 - 6
terzo insieme con i numeri: 7 - 8 - 9

ora la combinazione deve essere formata da due numeri del 1° insieme
+ due numeri del 2° insieme + due numeri del 3° insieme.
le coppie che si possono formare con tre numeri sono: 1-2/1-3/2-3.

quindi la prima combinazione che andrò a formare sarà:
1-2-4-5-7-8.
la seconda sarà :
1-2-4-5-7-9.
la terza sarà :
1-2-4-5-8-9.
successivamente cambierà la prima coppia:
1-3-4-5-7-8.
1-3-4-5-7-9.
1-3-4-5-8-9.
ecc....
Non so se chiaro..
Qualcuno sa come fare a costruire una procedura del genere?
grazie

[ax-site&site]

puoi fare semplicemente così
crea un command_button e nell'evento click ci inserisci questo codice:

Private Sub Command1_Click()

For a = 1 To 2
For b = a + 1 To 3
For c = 4 To 6
For d = c + 1 To 6
For e = 7 To 8
For f = e + 1 To 9
Print (CStr(a) + " " + CStr(b) + " " + CStr(c) + " " + CStr(d) + " " + CStr(e) + " " + CStr(f))

Next f, e, d, c, b, a

End Sub

provalo

[viviana75]

Ora provo grazie!

[ax-site&site]

scusa... crea una listbox

e al posto dell'istruzione print metti:

List1.AddItem (CStr(a) + " " + CStr(b) + " " + CStr(c) + " " + CStr(d) + " " + CStr(e) + " " + CStr(f))