Anordnen von Zahlen vom niedrigsten zum höchsten mit Visual Basic

July 29

Anordnen von Zahlen vom niedrigsten zum höchsten mit Visual Basic

Anordnen von Zahlen in Visual Basic vom niedrigsten zum höchsten ist eine Funktion, die durch die Operation "Sortieren" in der List-Klasse bereitgestellt. Leider ist es kein Feature bereitgestellt durch das Element der ListBox Graphical User Interface (GUI), also um diesen Vorgang Daten in einer ListBox, Sie müssen zuerst die Daten über in eine Liste verschieben.

Anweisungen

1 Fügen Sie ein ListBox-Steuerelement zu einem Formular hinzu, indem Sie ihn aus der Liste "Komponenten" auf der linken Seite ziehen.

2 Fügen Sie eine Schaltfläche zum Formular. Im Eigenschaften-Editor in der unteren rechten Bildschirmrand ändern Sie die Text-Eigenschaft auf "Sort." Ändern Sie die Name-Eigenschaft auf "SortButton." Das macht es leichter, diese Schaltfläche zu identifizieren, wenn Sie Code schreiben.

3 Ein TextBox-Steuerelement zu einem Formular hinzufügen. Ändern Sie seine Name-Eigenschaft auf "UserInputTextBox", aber lassen Sie die Text-Eigenschaft leer. Dies ist, wo der Benutzer eine Zahl es ListBox hinzu treten wird.

4 Das Formular eine Bezeichnung hinzu, und legen Sie sie neben dem Textfeld, die, das Sie in Schritt 3 hinzugefügt. Ändern Sie die Text-Eigenschaft, um "eine Zahl eingeben."

5 Fügen Sie eine Schaltfläche. Ändern Sie den Text in "Zur Liste hinzufügen". Ändern Sie seine Name-Eigenschaft auf "AddButton."

6 Doppelklicken Sie auf die Schaltfläche "Hinzufügen". Dies erstellt eine Aktion-Ereignis-Funktion und verschieben Sie es. Fügen Sie diesen Code innerhalb der Funktion:

Dim number As Double = New Double

number = Double.Parse(UserInputTextBox.Text)

ListBox1.Items.Add(number.ToString)

Dadurch entsteht eine Zahl als Double, also es gibt viel Raum für Dezimalstellen. Es versucht dann die Informationen in der UserInputTextBox als Zahl interpretieren (oder analysiert). Und schließlich, wenn es erfolgreich die Benutzereingaben als Zahl interpretieren kann, es es das Listenfeld hinzugefügt.

Klicken Sie auf "Design", zum Ihrer Formularfenster zurückzukehren.

7 Doppelklicken Sie auf die Schaltfläche "Sortieren". Da die Liste in der ListBox integriert den Sortiervorgang nicht unterstützt, müssen Sie verschieben alle Zahlen in der ListBox in ein List-Objekt bevor Sie zu sortieren, dann Sie sie sortieren, und schließlich in der ListBox zurück verschieben. Fügen Sie den Code dazu:

Dim numbers As List(Of Double) = New List(Of Double)

For Each n As Double In ListBox1.Items numbers.Add(n) Next

ListBox1.Items.Clear()

numbers.Sort()

For Each n As Double In numbers ListBox1.Items.Add(n) Next