Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Kombinieren und dann Kombinationen Zählen ???
Autor: JBL
Datum: 06.01.11 10:29
habe das mal versucht - ist nur ein Teil - und zwar der Teil der 2erKombis bilden: Aber es läuft nicht richtig! input.txt 0,0,5,7,12,25,34 Private Sub anzzwei(f1()) MousePointer = vbHourglass Dim f(50000, 2) Dim i(2) For a = 1 To 50000 f(a, 0) = 0 f(a, 1) = 0 f(a, 2) = 0 Next Open "input.txt" For Input As #1 ww1: Input #1, i(1), i(2) For a = 1 To 50000 If f(a, 1) = i(1) And f(a, 2) = i(2) Then: Exit For If f(a, 1) = 0 Then f(a, 1) = i(1) f(a, 2) = i(2) Exit For End If Next If EOF(1) = False Then GoTo ww1 Close Rem suche die werte in der quelle und bestimme die anzahl For c = 1 To 50000 If f(c, 1) = 0 Then Exit For For a = 1 To 50000 If f1(a, 1) = 0 Then Exit For z = 0 If f1(a, 1) = f(c, 1) Or f1(a, 1) = f(c, 2) Then z = z + 1 If f1(a, 2) = f(c, 1) Or f1(a, 2) = f(c, 2) Then z = z + 1 If f1(a, 3) = f(c, 1) Or f1(a, 3) = f(c, 2) Then z = z + 1 If f1(a, 4) = f(c, 1) Or f1(a, 4) = f(c, 2) Then z = z + 1 If f1(a, 5) = f(c, 1) Or f1(a, 5) = f(c, 2) Then z = z + 1 If f1(a, 6) = f(c, 1) Or f1(a, 6) = f(c, 2) Then z = z + 1 If f1(a, 7) = f(c, 1) Or f1(a, 7) = f(c, 2) Then z = z + 1 If z = 2 Then f(c, 0) = f(c, 0) + 1 Next Next Open "ausgabe_2er.txt" For Output As #1 For a = 1 To 50000 If f(a, 1) = 0 Then Exit For Print #1, f(a, 1); ","; f(a, 2); " = "; f(a, 0); " x" Next Close End Sub LG Angelina

Kombinieren und dann Kombinationen Zählen ???	1.473	JBL	06.01.11 09:21
Re: Kombinieren und dann Kombinationen Zählen ???	1.027	Dirk	06.01.11 09:47
Re: Kombinieren und dann Kombinationen Zählen ???	1.035	JBL	06.01.11 09:55
Re: Kombinieren und dann Kombinationen Zählen ???	1.146	Dirk	06.01.11 10:01
Re: Kombinieren und dann Kombinationen Zählen ???	980	JBL	06.01.11 10:05
Re: Kombinieren und dann Kombinationen Zählen ???	936	Dirk	06.01.11 10:20
Re: Kombinieren und dann Kombinationen Zählen ???	1.071	JBL	06.01.11 10:29
Re: Kombinieren und dann Kombinationen Zählen ???	971	Dirk	06.01.11 10:44
Re: Kombinieren und dann Kombinationen Zählen ???	1.023	JBL	06.01.11 11:03
Re: Kombinieren und dann Kombinationen Zählen ???	966	Dirk	06.01.11 12:39
Re: Kombinieren und dann Kombinationen Zählen ???	957	JBL	06.01.11 12:59
Re: Kombinieren und dann Kombinationen Zählen ???	953	Dirk	06.01.11 14:04
Re: Kombinieren und dann Kombinationen Zählen ???	888	JBL	06.01.11 19:20

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen