Diese Seite ist unverschlüsselt! Um sicherzustellen, das Ihr Passwort nicht ausgelesen werden kann, sollten Sie auf die verschlüsselte Seite wechseln!

    Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Visual Basic 6.0 / VBA » Quicksort - Zufallszahlen
Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: > 1 <
000
27.09.2005, 15:42 Uhr
~stylo
Gast


Hallo. Ich habe ein problem:

Ich soll in Excel - Vba ein makro erstellen, dass:

-Zufallszahlen erstellt (ca. 10 zeile, 2 spalten)
-diese zufallszahlen mithilfe von quicksort sortiert und dann in excel ausgibt.


Dann soll ich noch quicksort anhand dieses markos erklären.
aber irgendwie versteh ich nicht genau wie quicksort funktioniert.


Ich habe schon ein bissl angefangen, aber komm nicht weiter. oder vl ist auch schon was falsch...

So hab ich angefangen :



Dim feld(10) As Single

Sub sortieren()

x = 0
For spalte = 1 To 10
x = x + 1
feld(x) = Sheets("Tabelle1").Cells(2, spalte)

Next spalte

x = 0
y = 11


x = x + 1
y = y - 1



pivot = feld(5)

'anfangsindex = feld(x)
'endindex = feld(y)

For test = 1 To 10

If anfangsindex < pivot Then
anfangsindex = feld(x + 1)

ElseIf endindex < pivot Then

hilfe = endindex
endindex = anfangsindex
anfangsindex = hilfe


anfangsindex = feld(x + 1)
endindex = feld(y - 1)

Else
endindex = feld(y - 1)

End If

Next test

For x = 1 To 10

Sheets("tabelle1").Cells(4, x) = feld(x)

Next x

End Sub
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
001
27.09.2005, 21:12 Uhr
Uwe
C/C++ Master
(Administrator)


Hallo,
über Quicksort gibt es genügend gute Erläuterung im Netz, z.B. auf
virtual's HP.
OK. Wenn das klar ist, erzeugst Du zunächst in einer Schleife ein Array mit Zufallszahlen, etwa so:

Visual Basic:
Randomize
For i = 0 To 9
zZahl = Rnd * 100 + 1
ar(i) = zZahl
Next

Dann setzt Du das gelesene über Quicksort in eine Funktion um welcher Du das Array übergibst und sortierst die Inhalte.

Danach wieder Schleifchen und Ausgabe in der Tabelle.
--
"Es ist schwierig, ein Programm wirklich idiotensicher zu machen, weil Idioten so genial sind."

Bis dann...
Uwe
Dieser Post wurde am 27.09.2005 um 21:15 Uhr von Uwe editiert.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: > 1 <     [ Visual Basic 6.0 / VBA ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: