vb@rchiv · Diskussionsforen · Bubble Sort · VB.NET

VB Classic
VB.NET
ADO.NET
VBA
C#

vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4

HOME WORKSHOPS TIPPS & TRICKS BEFEHLSREFERENZ API-REFERENZ FAQ

··· FORUM

Forenübersicht Suchen Forumsregeln

Allgemeine Foren

Allgemeine Fragen Fragen zur vb@rchiv CD Tipps & Workshops Suche VB Code

VB.NET, C#

Ein-/Umsteiger Fortgeschrittene ADO.NET/Datenbanken ASP.NET/WebServices C# Ecke

VB Classic 5/6, VBA

Einsteiger Fortgeschrittene ActiveX Datenbanken Windows API VB Skript (VBS)

Sonderforen

sev-Komponenten Jobs Suche/Gesuche Projekte & Betatester

DOWNLOAD TOOLBESPRECHUNG BÜCHERECKE MARKETPLACE GRAFIK & DESIGN VB-SEITEN

[344 User online]
[295 im Forum]

Partnerseiten
Top 5 Partnerlinks

Weitere...

Entwickler / Welt

··· Diskussionsforen · VB.NET - Fortgeschrittene

Sie sind aktuell nicht angemeldet. Funktionen: Einloggen | Neu registrieren | Suchen

VB.NET - Fortgeschrittene

Bubble Sort

Autor: Houly
Datum: 09.12.03 18:20

Hallo, ich habe ein Problem^^.. Ich wollte eine Zufällige datenmenge sortieren lassen. Und zwar nach bubble sort. <- Muss so sein. Nun hab ich hier auf der Page das hier gefunden: Private Sub BubbleSort(ByRef sArr() As String, _ lMin&, lMax&) On Error GoTo Err_BubbleSort Dim i&, sTemp$, lMaxItem&, lSwapItem& lSwapItem = lMax Do While CBool(lSwapItem > 0) lMaxItem = lSwapItem - 1: lSwapItem = 0 For i = lMin To lMaxItem sTemp = sArr(i) If StrComp(sTemp, sArr(i + 1), vbTextCompare) _ Xor miSortOrder Then sArr(i) = sArr(i + 1) sArr(i + 1) = sTemp lSwapItem = i End If Next Loop Err_BubbleSort: On Error GoTo 0 End Sub Nur zeigt mein Prog mit bei miSortOrde nen fehler Woe ht der weg?

alle Nachrichten anzeigen

Gesamtübersicht | Zum Thema | Suchen

Thema

Views

Autor

Datum

Bubble Sort	806	Houly	09.12.03 18:20
Re: Bubble Sort	504	WaldiMaywood	09.12.03 19:19
Re: Bubble Sort	454	Houly	09.12.03 19:57
Re: Bubble Sort	530	Houly	09.12.03 20:06
Re: Bubble Sort	511	WaldiMaywood	09.12.03 20:21
Re: Bubble Sort	453	Houly	09.12.03 20:32
Re: Bubble Sort	489	Houly	10.12.03 21:08

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

vb@rchiv CD Vol.6

vb@rchiv Vol.6 Ein absolutes Muss!

Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!

Online-Update-Funktion
Entwickler-Vollversionen
u.v.m.
Jetzt zugreifen

Tipp des Monats

Oktober 2025
Matthias Kozlowski

Umlaute konvertieren

Ersetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.)

Details

sevGraph (VB/VBA)

Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig!

Weitere Infos

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel