Option Explicit
 
Private Sub Form_Load()
 
'49 Gewichte einlesen
Dim z(1 To 49) As Integer, ii%
Dim ik%: ik = FreeFile
Open "C:\daten\gewichte.txt" For Input As #ik
For ii = 1 To 49
    Input #ik, z(ii)
Next ii
Close #ik
 
'Grenzen der gültigen Quersumme hier angeben
Const qs_min% = 50
Const qs_max% = 51
 
Dim ak%: ak = FreeFile
Open "C:\daten\SechserFolgen.txt" For Output As #ak
 
 
Dim i%, j%, k%, l%, m%, n%
Dim qs%, zz As Long, sum As Long
Dim freq(1 To 49) As Long
For i = 1 To 44
   For j = i + 1 To 45
      For k = j + 1 To 46
         For l = k + 1 To 47
             For m = l + 1 To 48
                For n = m + 1 To 49
                   'Summe der Gewichte
                   qs = z(i) + z(j) + z(k) + z(l)
                   qs = qs + z(m) + z(n)
                   zz = zz + 1
 
                   'Gewichte-Summe im gültigen Bereich ?
                   If qs >= qs_min And qs <= qs_max Then
 
                      'Reihe ausgeben 
                      Print #ak, i, j, k, l, m, n
 
                      'Häufigkeit der Zahlen
                      freq(i) = freq(i) + 1
                      freq(j) = freq(j) + 1
                      freq(k) = freq(k) + 1
                      freq(l) = freq(l) + 1
                      freq(m) = freq(m) + 1
                      freq(n) = freq(n) + 1
 
                      'Ausgegebene Reihen
                      sum = sum + 1
                   End If
Next n, m, l, k, j, i
 
Close #ak
 
End Sub