Organizando números em Visual Basic menor para o maior é um recurso fornecido pela operação "Classificar " na classe List. Infelizmente , não é um recurso fornecido pelo ListBox Graphical User Interface (GUI) elemento, por isso, para executar esta operação os dados em um ListBox , primeiro você deve mover os dados para uma lista. Instruções
1

Adicionar uma caixa de listagem ao seu formulário , arrastando-o a partir da lista " componentes" do lado esquerdo.
2

Adicionar um botão ao seu formulário. No Editor de propriedades na parte inferior direita da tela , altere a propriedade de texto para "Sort ". Altere a propriedade nome para " SortButton . " Isso fará com que seja mais fácil identificar este botão quando você está escrevendo código.

3

Adicione uma caixa de texto ao seu formulário. Altere a propriedade nome para " UserInputTextBox ", mas deixar a sua propriedade de texto em branco. Este é o lugar onde o usuário digite um número para adicioná-lo à caixa de listagem.
4

Adicione um rótulo à sua forma , e colocá-lo ao lado da caixa de texto que você adicionou na etapa 3 . Altere a propriedade de texto para "Digite um número ".
5

Adicionar um botão. Altere o texto para "Adicionar à lista ". Altere a propriedade nome para " AddButton ".
6

Dê um duplo clique no botão "Adicionar " . Isto irá criar uma função de evento de ação e movê-lo para ele. Cole este código dentro da função :

Dim número As Double = Novo dobro
número

= 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 a caixa de listagem.

Clique na aba " Design" para voltar para a janela do formulário.
7

Dê um duplo clique no botão " Ordenar " . Como a lista embutida 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 List antes de classificar , em seguida, classificá -los e, finalmente, movê-los de volta para a caixa de listagem. Cole este código para fazer isso :

Dim números como List (Of Duplo) = Lista Nova ( Of Duplo)

para cada n As Double Em ListBox1.Itemsnumbers.Add (n ) Next

ListBox1.Items.Clear ()

numbers.Sort ()

para cada n As Double Em numbersListBox1.Items.Add (n ) Next