Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim intMayor, intMedio, intMenor As Integer
If (CInt(TextBox1.Text) > CInt(TextBox2.Text)) Then
If (CInt(TextBox1.Text) > CInt(TextBox3.Text)) Then
intMayor = CInt(TextBox1.Text)
If (CInt(TextBox2.Text) > CInt(TextBox3.Text)) Then
intMedio = CInt(TextBox2.Text)
intMenor = CInt(TextBox3.Text)
Else
intMedio = CInt(TextBox3.Text)
intMenor = CInt(TextBox2.Text)
End If
Else
intMayor = CInt(TextBox3.Text)
intMedio = CInt(TextBox1.Text)
intMenor = CInt(TextBox2.Text)
End If
Else
If (CInt(TextBox2.Text) > CInt(TextBox3.Text)) Then
intMayor = CInt(TextBox2.Text)
If (CInt(TextBox1.Text) > CInt(TextBox3.Text)) Then
intMedio = CInt(TextBox1.Text)
intMenor = CInt(TextBox3.Text)
Else
intMedio = CInt(TextBox3.Text)
intMenor = CInt(TextBox1.Text)
End If
Else
intMayor = CInt(TextBox3.Text)
intMedio = CInt(TextBox2.Text)
intMenor = CInt(TextBox1.Text)
End If
End If
Label1.Text = Str(intMayor) & " > " & Str(intMedio) & " > " & Str(intMenor)
End Sub
End Class
Dim num(3), i As Integer 'arreglo de 3 valores
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
num.SetValue(CInt(TextBox1.Text), 1)
num.SetValue(CInt(TextBox2.Text), 2)
num.SetValue(CInt(TextBox3.Text), 3)
Array.Sort(num) 'Ordena 1,2,3
For i = 3 To 1 Step -1 ' Obtenemos el mayor al menor poniendo en reversa
Label1.Text = Label1.Text & " " & num.GetValue(i)
Next
End SubPrivate Sub btOrdenar_Click()
Dim I As Integer
Dim a, b, c As Integer
a = Val(Txtnum1.Text)
b = Val(Txtnum2.Text)
c = Val(Txtnum3.Text)
For I = 1 To 2If a > b Then ax = a a = b b = axEnd If
If b > c Then ax = b b = c c = axEnd If
Next I
Me.lblordenador.Caption = Str(a) + " " + Str(b) + " " + Str(c)
End Sub
'Esto te servira si por ejm tienes 100 o mas textbox que sumar'no lo agregaras uno por uno verdad........
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim num(3), i As Integer 'arreglo de 3 valoresDim ctlTbx As Control
Dim vtext As Char
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Esto busca todos los textbox en tu formulario y si coincide si su texto es un'numero lo agrega a la coleccion, sino no toma el texto.
For Each ctlTbx In Me.ControlsIf ctlTbx.GetType Is GetType(System.Windows.Forms.TextBox) Then
vtext = Convert.ToChar(ctlTbx.Text.Chars(0)) 'toma el primer v del textbox
If Char.IsNumber(vtext) Then
i += 1
num.SetValue(CInt(ctlTbx.Text), i)
End If
End If
Next
Array.Sort(num) 'Ordena 1,2,3
For i = 3 To 1 Step -1 'i = es la cantidad de textbox con digitos
Label1.Text = Label1.Text & " " & num.GetValue(i)
Next
End Sub