Pages

lunes, 21 de enero de 2013

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

0 comentarios:

Publicar un comentario en la entrada