Comment ranger les nombres en ordre croissant aide de Visual Basic

Ajouter une zone de liste à votre formulaire en le faisant glisser à partir de la "Composants" la liste sur la gauche.

Ajouter un bouton à votre formulaire. Dans l'éditeur de propriétés en bas à droite de l'écran, modifiez la propriété de texte "Trier." Changer le nom de la propriété "SortButton." Ainsi, il sera plus facile d'identifier ce bouton lorsque vous écrivez du code.

Ajouter une zone de texte à votre formulaire. Changer son nom à la propriété "UserInputTextBox," mais laisser sa propriété de texte vide. Cette est l'endroit où l'utilisateur va entrer un numéro pour l'ajouter à la zone de liste.

Ajouter une étiquette à votre forme, et le placer à côté de la zone de texte que vous avez ajouté à l'étape 3. Changer de sa propriété text "Entrez un numéro."

Ajouter un bouton. Changez son texte à "Ajouter à la liste." Changer son nom à la propriété "AddButton."

Double-cliquez sur le "Ajouter" bouton. Cela va créer une fonction d'événement d'action et vous déplacer à elle. Collez ce code à l'intérieur de la fonction:

Numéro Dim As Double = New Double
Numéro = Double.Parse (UserInputTextBox.Text)
ListBox1.Items.Add (Number.toString)

Cela crée un certain nombre comme un double, donc il ya beaucoup de place pour décimales. Il tente ensuite d'interpréter (ou analyser) les informations dans le UserInputTextBox comme un nombre. Et enfin, si elle peut réussir à interpréter l'entrée de l'utilisateur comme un nombre, il l'ajoute à la zone de liste.

Cliquez sur le "Conception" onglet pour revenir à la fenêtre de votre forme.

Double-cliquez sur le "Genre" bouton. Parce que la liste intégrée dans la zone de liste ne prend pas en charge l'opération de tri, vous devez déplacer tous les numéros dans la liste dans un objet de la liste avant de tri, puis les trier, et enfin les déplacer vers le ListBox. Collez ce code pour le faire:

Numéros Dim comme List (Of Double) = New List (Of Double)
Pour chaque n Comme double dans ListBox1.Items
numbers.Add (n)
Suivant
ListBox1.Items.Clear ()
numbers.Sort ()
Pour chaque n As Double En chiffres
ListBox1.Items.Add (n)
Suivant