Determinar el menor y el mayor de cuatro números Codigo Fuente en Visual Basic

Problema
Desarrolle un algoritmo que lea cuatro números diferentes y a continuación imprima el mayor de los cuatro números introducidos y también el menor de ellos.

Solución

• Entrada: 5 8 1 9

• Salida: menor 1 y  mayor 9

Codigo Fuente en Visual Basic

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim A, B, C, D, X, Y As Integer
        A = TextBox1.Text
        B = TextBox2.Text
        C = TextBox3.Text
        D = TextBox4.Text
        If (A > B And A > C And A > D) Then
            X = A
        Else
            If (B > A And B > C And B > D) Then
                X = B
            Else
                If (C > A And C > B And C > D) Then
                    X = C
                Else
                    X = D
                End If
            End If
        End If
        If (A < B And A < C And A < D) Then
            Y = A
        Else
            If (B < A And B < C And B < D) Then
                Y = B
            Else
                If (C < A And C < B And C < D) Then
                    Y = C
                Else
                    Y = D
                End If
            End If
        End If
        TextBox5.Text = "el mayor es  " + Trim(X) +
        "  el menor es  " + Trim(Y)
    End Sub
End Class

Descargar Proyecto Visual Basic