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
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
0