Thema Datum  Von Nutzer Rating
Antwort
08.06.2008 18:04:54 Ricket
NotSolved
Blau Aw:VBA Programmierung
 09.06.2008 16:27:36 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
09.06.2008 16:27:36		 Views:
841		 Rating:
     
Antwort:
  Ja
Thema:
Aw:VBA Programmierung
Hallo Rickert,
z.B.

Sub sortierung()
dim anzf, f(), n(),k,i,a
anzf = 10
ReDim f(anzf), n(anzf)
For i = 1 To anzf
f(i) = InputBox("Geben Sie die" + Str(i) + ". Zahl von 10 Zahlen ein!")
n(i) = f(i)
Next i
For k = 1 To anzf
For i = k + 1 To anzf
If f(i) < f(k) Then
c = f(i)
f(i) = f(k)
f(k) = c
End If
Next i
Next k
a = "Start" + vbTab + "neu" + vbCrLf
For i = 1 To anzf
a = a + CStr(n(i)) + vbTab + CStr(f(i)) + vbCrLf
Next i
MsgBox a
End Sub

Mache dir wenigstens die Logik klar!
Gruß
Holger



Ricket schrieb am 08.06.2008 18:04:54:

Hallo

Ich bin voll die Niete in der VBA Programmierung und mein Lehrer hat uns eine Aufgabe gegeben mit der ich absolut nicht klar komme.

Vielleicht sind ja paar unter euch die das können und mir weiterhelfen können so was zu machen.

Aufgabenstellung:

Lesen Sie nacheinander zehn Zahlen in ein Feld ein (Abfrage an den Benutzer). Der Bubble - Sort - Algorithmus sortiert ein Feld, indem er zunächst die ersten beiden Zahlen vergleicht. Falls die zweite größer ist, tauschen die beiden die Plätze, sodass die größere an erster Stelle steht. Dann vergleicht er die dritte mit der zweiten und vertauscht sie gegebenenfalls. Wenn die dritte größer war als die zweite, muss sie natürlich auch mit der ersten verglichen werden. Dann kommt die vierte Zahl an die Reihe und so fort. Schreiben Sie eine Prozedur, die diesen Algorithmus für ein Feld mit zehn Werten ausführt. Benutzen Sie, soweit sinnvoll, Rekursion. Geben Sie das Ergebnis auf einem Arbeitsblatt aus

Danke für eure Hilfe

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:



  • 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
08.06.2008 18:04:54 Ricket
NotSolved
Blau Aw:VBA Programmierung
 09.06.2008 16:27:36 Holger
NotSolved