|
Hi zusammen!
Ich sollte für eine Informatikprüfung folgendes Makro interpretieren können:
Sub hallo(n%, k%)
i=1
For j=1 To n
Cells(1,j) = 1
Next
kombinationszahl = k^n
For i=2 To kombinationszahl
For j=1 To n
Cells(i,j) = Cells(i,-1,j)
Next
For j=n To 1 Step -1
If Cells(i,j) < k Then
Cells(i,j) = Cells(i,j) + 1
j=1
Else
Cells(i,j) = 1
End If
Next
Next
End Sub
In eine Tabelle sollte ich nun die Lösung für hallo 2,3 einfüllen können.
Allerdings scheitere ich in Spalte 1.
Mein Problem liegt im Abschnitt
For j=n To 1 Step -1
If Cells(i,j) < k Then
Cells(i,j) = Cells(i,j) + 1
j=1
Else
Cells(i,j) = 1
End If
Next
Ich habe leider kein Schimmer was das j=1 dort zu suchen hat und wie ich damit umzugehen habe.
Die Lösung sieht so aus:
1 1
1 2
1 3
2 1
2 2
2 3
3 1
3 2
3 3
Den Sprung bei Zeile 4 und bei Zeile 7 kann ich mir leider nicht erklären. Ich hoffe es kann mir jemand weiterhelfen.
Gruß Zcore
|