Pages

viernes, 18 de enero de 2013

Determinar el menor de tres números Codigo Fuente en Visual Basic

Problema
Desarrolle un algoritmo que permita leer tres valores y almacenarlos en las variables A, B, y C respectivamente. El algoritmo debe indicar cuál es el menor. Asumiendo que los tres valores introducidos por el teclado son valores distintos.

Solución
  • Entrada: 5 8 1
  • Salida: 1
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 As Integer
        Dim B As Integer
        Dim C As Integer
        A = TextBox1.Text
        B = TextBox2.Text
        C = TextBox3.Text
        If (A < B And A < C) Then
            TextBox4.Text = "El numero menor es " + Trim(A)
        Else
            If (B < A And B < C) Then
                TextBox4.Text = "El numero menor es " + Trim(B)
            Else
                TextBox4.Text = "El numero menor es " + Trim(C)
            End If
        End If
    End Sub
End Class

0 comentarios:

Publicar un comentario en la entrada