[VB6] combinazioni coefficiente binomiale

[litterone]

Sera a tutti, mi sto scervellando per cercare un algoritmo che mi visualizzi tutte le combinazioni che vengono fuori dal famoso "coefficiente binomiale" (http://it.wikipedia.org/wiki/Coefficiente_binomiale)
calcolare il numero di cobinazioni possibili (o gruppi di k oggetti con k< n) dati n oggetti...è facile.. ma avere in Output tutte le combinazioni...
ho trovato questo link che sembra interessante ma qualcuno ha scritto roba in un linguaggio che non conosco..forse java..

http://www.ioprogrammo.it/cc/algorit...-t13636.0.html

Qualcuno è in grado di riassumermelo anche a grandi linee.. ma in visual basic? o almeno aiutarmi a capire che cosa hanno fatto...?

Grazie a tutti !

[litterone]

ho trovato questo algoritmo
http://www.mat.uniroma3.it/users/liv...disp_oc_02.pdf
pagina 15 del Pdf

io l'ho riscritto solo con k = 6 per semplificarlo solo che mi si impalla, cioè calcola davvero troppe sestine.. che ne pensate?

'comincia il calcolo delle combinazioni

For j = 1 To 6
sestina(j) = j

Next
For t = 1 To 6
lblcombinazioni.Caption = lblcombinazioni.Caption & selezio(t) & " "
Next
lblcombinazioni.Caption = lblcombinazioni.Caption & vbCrLf

j = 6
While j > 0
j = 6
While j > 0 And sestina(j) = n - (6 - j)
j = j - 1
Wend
If j > 0 Then
sestina(j) = sestina(j) + 1
For k = j + 1 To 6
sestina(k) = sestina(k - 1) + 1
Next

'scrivo il vettore combinazione del ciclo
End If
Wend

End Sub