Visual Basic - arreglo de numeros en forma ascendente con list

Life is soft - evento anual de software empresarial
   
Vista:

arreglo de numeros en forma ascendente con list

Publicado por Ramon Eduardo (2 intervenciones) el 14/10/2009 17:00:44
bueno amigos un saldudo a todos y espero me puedan ayudar tengo que hacer un programa que en un solo listbox se debe presentar un arreglo de una cantidad de numeros los que quiera no tiene limite , y guardarlos hay 3 botones y un combobox un boton que se llama mostrar arreglo uno que se llama guardar y otro de salir , la cuestion es que al guardar los numeros en el combobox elijo la opcion y luego presiono mostrar arreglo en un solo listbox aqui adjunto el codigo porque el problema es que me muestra el ultimo valor en cero no se en que estare fallando

Private Sub Form_Load()
Combo1.AddItem "Ascendente"
Combo1.AddItem "Descendente"
End Sub

Private Sub Guardar_Click()
ReDim Preserve numar(i + 1)
numar(i) = Val(Text1.Text)
i = i + 1
Text1.Text = " "
Text1.SetFocus

End Sub

Private Sub PreA_Click()
Guardar.Enabled = False
Text1.Enabled = False
For j = 0 To i - 1

Next j

If Combo1.Text = "Ascendente" Then
For k = 0 To i - 1
If numar(k) > numar(k + 1) Then
y = numar(k + 1)
numar(k + 1) = numar(k)
numar(k) = y
End If
List1.AddItem "Valor " & numar(k)
Next k
End If

If Combo1.Text = "Descendente" Then
For k = 0 To i - 1
If numar(k) < numar(k + 1) Then
y = numar(k + 1)
numar(k + 1) = numar(k)
numar(k) = y
End If
List1.AddItem "Valor " & numar(k)
Next k
End If
End Sub

Private Sub Salir_Click()
End
End Sub
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

RE:arreglo de numeros en forma ascendente con list

Publicado por juan carlos (518 intervenciones) el 15/10/2009 07:15:55
Hola Ramon
tu problema puede ser este
For j = 0 To i - 1
For k = 0 To i - 1
se hace un ciclo de 0 a i
que es i en preA

puedes agregar esto
Dim j As Integer
Dim k As Integer
Dim y As Integer
Dim i as Integer

Private Sub PreA_Click()
Guardar.Enabled = False
Text1.Enabled = False
For j = 0 To i - 1

Next j

If Combo1.Text = "Ascendente" Then
For k = 0 To i - 1
If numar(k) > numar(k + 1) Then
y = numar(k + 1)
numar(k + 1) = numar(k)
numar(k) = y
End If
List1.AddItem "Valor " & numar(k)
Next k
End If

If Combo1.Text = "Descendente" Then
For k = 0 To i - 1
If numar(k) < numar(k + 1) Then
y = numar(k + 1)
numar(k + 1) = numar(k)
numar(k) = y
End If
List1.AddItem "Valor " & numar(k)
Next k
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:arreglo de numeros en forma ascendente con list

Publicado por Ramon -Eduardo (2 intervenciones) el 15/10/2009 20:26:39
Viejo seria posible que me dieras tu correo para preguntarte mejor el proyecto lo tengo que llevar el lunes un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:arreglo de numeros en forma ascendente con list

Publicado por juan carlos (518 intervenciones) el 16/10/2009 02:51:28
mega.juca@hotmail.es
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar