Como Organizar Números menor para o maior usando o Visual Basic

Arranjar números em Visual Basic menor para o maior é um recurso fornecido pelo "Ordenar" operação na classe List. Infelizmente, não é um recurso fornecido pela Interface (GUI) elemento ListBox Graphical User, por isso, a fim de realizar esta operação com os dados em um ListBox, você deve primeiro mover os dados para uma lista.

Adicionar uma caixa de listagem ao formulário, arrastando-o a partir do "componentes" lista à esquerda.
Adicionar um botão ao formulário. No Editor de propriedades na parte inferior direita da tela, altere a propriedade de texto para "Ordenar." Altere a propriedade nome para "SortButton." Isto tornará mais fácil identificar este botão quando você está escrevendo código.
Adicionar uma caixa de texto ao formulário. Altere a propriedade nome para "UserInputTextBox," mas deixar sua propriedade de texto em branco. Este é o lugar onde o usuário irá inserir um número para adicioná-lo à caixa de listagem.
Adicionar um rótulo para o formulário, e colocá-lo ao lado da caixa de texto que adicionou no passo 3. Altere a propriedade de texto para "Introduzir um número."
Adicionar um botão. Altere seu texto para "Adicionado a lista." Altere a propriedade nome para "AddButton."
Clique duas vezes no "Adicionar" botão. Isto irá criar uma função de ação do evento e movê-lo para ele. Cole este código dentro da função:
```
número Dim As Double = Novo Duplonumber = Double.Parse (UserInputTextBox.Text)


ListBox1.Items.Add (number.ToString)
```
Isso cria um número como uma dupla, então não há muito espaço para casas decimais. Em seguida, ele tenta interpretar (ou analisar) as informações no UserInputTextBox como um número. E, finalmente, se pode interpretar com sucesso a entrada do usuário como um número, ele adiciona-lo para a caixa de listagem.
Clique no "projeto" guia para retornar para a janela do formulário.
Clique duas vezes no "Ordenar" botão. Porque a lista embutido no ListBox não suporta a operação de classificação, você deve mover todos os números na caixa de listagem em um objeto lista antes de ordenar, em seguida, classificá-los e, finalmente, movê-los de volta para a caixa de listagem. Cole este código para fazer isso:
```
números Dim como List (Of Duplo) = Lista Novo (da dupla)Para cada n Como dobrar em ListBox1.Items
numbers.Add (n)
Próximo
ListBox1.Items.Clear ()
numbers.Sort ()
Para cada n As Double Em números
ListBox1.Items.Add (n)
Próximo
```

De esta maneira? Compartilhar em redes sociais: