vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Visual-Basic Einsteiger
Bubblesort?? 
Autor: Wayne141
Datum: 06.05.08 20:29
hi,
ich habe ein großes Problem ich muss in zwei Tagen ein Referat über das Bubblesortverfahren halten und ich möchte 5 Zahlen eingeben die dann sortiert werdn und dann in einer Textfeld angezeit werden. Ich habe 2 Probleme . Mein Code funktieniert nicht und ich weiß nicht wie ich die Zahlen in einer Textbox ausgeben soll. Hier der Code:


Dim mZahlen(20) As Long

Private Sub Command1_Click()
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
Dim e As Long

a = CLng(Text1.Text)
b = CLng(Text2.Text)
c = CLng(Text3.Text)
d = CLng(Text4.Text)
e = CLng(Text5.Text)

mZahlen(I) = a
mZahlen(I) = b
mZahlen(I) = c
mZahlen(I) = d
mZahlen(I) = e


bubblesort mZahlen(), 1, 5
End Sub


Private Sub bubblesort(ByRef mZahlen_sortiert() As Long, ByVal l As Long, n As Long)
Dim k As Long
Dim I As Long
Dim j As Long
Dim t As Long

n = 5

For j = 1 To n
mZahlen_sortiert(I) = mZahlen(I)
Next j

For I = (n - 1) To 0 Step -1
For k = 0 To I
If mZahlen_sortiert(k) > mZahlen_sortiert(k + 1) Then
t = mZahlen_sortiert(k)
mZahlen_sortiert(k) = mZahlen_sortiert(k + 1)
mZahlen_sortiert(k + 1) = t
End If
Next k
Next I


For I = 1 To n
List1.AddItem (mZahlen_sortiert(I))
Next I

End Sub

Ich wäre für Hilfe sehr sehr dankbar

MFG

Sami
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Bubblesort??1.386Wayne14106.05.08 20:29
Re: Bubblesort??920Zardoz06.05.08 20:44
Re: Bubblesort??1.202BAStler06.05.08 20:45
Re: Bubblesort??877Wayne14106.05.08 21:01
Re: Bubblesort??936BAStler06.05.08 21:24
Re: Bubblesort??951Wayne14106.05.08 21:58
Re: Bubblesort??959Wayne14107.05.08 12:04
Re: Bubblesort??936Zardoz07.05.08 13:52
Re: Bubblesort??828Wayne14107.05.08 19:19
Re: Bubblesort??765Brauner19.06.08 17:32
Re: Bubblesort??748Zardoz19.06.08 17:38

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
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