Hola!

Registrándote como bakuno podrás publicar, compartir y comunicarte en privado con otros bakuos :D

Regístrame ya!

ayuda con el metodo de burbuja, no puedo ordenarlos

H

huesca_92

Bovino maduro
Desde
10 Ago 2007
Mensajes
210
hola al corral
gracias por las ayudas k me an dado
bueno, al punto
tengo k hacer un programa donde estan establecidas unas variables (letras), pero no las puedo ordenar, solo salen igual, y hasta ahorita, me salen revueltas como locas:)
espero me puedan ayudar, aqui dejo mi codigo:


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim letra(5) As String
Dim i As Integer
Dim temp As String
letra(1) = "A"
letra(2) = "Z"
letra(3) = "X"
letra(4) = "C"
letra(5) = "M"

MsgBox("antes de ordenar")
For i = 1 To 5
MsgBox("El numero es: " + letra(i))
Next
MsgBox("Ordenamiento por intercambio")
temp = letra(1)
For i = 1 To 5
If letra(i) > temp Then
temp = letra(1)
letra(1) = letra(i + 1)
letra(i + 1) = temp
End If
Next
MsgBox("El vector ordenado es: ")
For i = 1 To 5
MsgBox("El numero es: " + letra(i))
Next
End Sub
End Class



de antemano gracias
 
lastima k no se pudo contestar,
pero ya que me dieron el codigo en la escuela lo aporto para cualquier duda k alguien tenga


Public Class Form1

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a(5) As Integer
Dim j, i, TEMP As Integer


For i = 1 To 5
a(i) = InputBox("DAME UN NUMERO:")
Next
For j = 1 To 5 - 1
For i = 1 To 5 - 1
If a(i) > a(i + 1) Then
TEMP = a(i)
a(i) = a(i + 1)
a(i + 1) = TEMP
End If


Next
Next
TextBox1.Text = a(1)
TextBox2.Text = a(2)
TextBox3.Text = a(3)
TextBox4.Text = a(4)
TextBox5.Text = a(5)
End Sub
End Class

el codigo va en un boton
 
se me olvido explicarles, no escriban las letras en las cajas de texto, primero opriman el boton y ahi les va a pedir las letras, ya luego cuando terminan de escribir las 5 letras, las pone ordenadas en las cajas
 
Debes iniciar sesión o registrarte para participar.
Volver
Arriba