Visual Basic.NET - ayuda! como ordeno numeros en un listbox

   
Vista:

ayuda! como ordeno numeros en un listbox

Publicado por halan (2 intervenciones) el 14/06/2016 03:40:56
Estoy empezando y no tengo mucha experiencia con visual basic 2010 y tengo un problema con un ejercicio. lo que tengo que hacer es que al momento de ingresar un numero en un textbox y darle click al boton este me ordene una serie de numeros en un listbox hasta el valor ingresado ejemplo si ingreso 5 en mi listbox debe aparecer :
1
12
123
1234
12345
1234
123
12
1
mi codigo va asi :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Class Form1
    Public contador As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not IsNumeric(TextBox1.Text) Then
            MsgBox("Solo se aceptan numeros")
            TextBox1.Clear()
        End If
        For i = 1 To Val(TextBox1.Text)
            contador = contador & i
            ListBox1.Items.Add(contador)
 
        Next
        For i = 1 To Len(ListBox1.Text)
            ListBox1.Items.Add(Mid(ListBox1.Text, i, 1))
        Next
 
    End Sub
End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder