Determinar si dos números están en orden creciente o decreciente Codigo Fuente en Visual Basic

Problema
Hacer un programa o algoritmo que lea 2 números y deducir si están en orden creciente o decreciente.

Solución

• Entrada: 2 5

• Salida: Están en orden creciente

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 As Integer
        a = TextBox1.Text
        b = TextBox2.Text
        If (a > b) Then
            TextBox3.Text = Trim(a) + ", " + Trim(b) +
                "  Estan en orden decreciente"
        Else
            TextBox3.Text = Trim(a) + ", " + Trim(b) +
                "  Estan en orden creciente"
        End If
    End Sub
End Class

Descargar Proyecto Visual Basic