Thema Datum  Von Nutzer Rating
Antwort
Rot Makro interpretieren
 28.01.2012 00:20:21 Zcore
NotSolved
29.01.2012 18:32:02 Till
*****
Solved
29.01.2012 21:00:35 Zcore
NotSolved

Ansicht des Beitrags:
Von:
Zcore		 Datum:
28.01.2012 00:20:21		 Views:
1998		 Rating:
     
Antwort:
  Ja
Thema:
Makro interpretieren

Hi zusammen!

Ich sollte für eine Informatikprüfung folgendes Makro interpretieren können:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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

?
1
2
3
4
5
6
7
8
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
2
3
4
5
6
7
8
9
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro interpretieren
 28.01.2012 00:20:21 Zcore
NotSolved
29.01.2012 18:32:02 Till
*****
Solved
29.01.2012 21:00:35 Zcore
NotSolved