Pages

jueves, 17 de enero de 2013

Calcular la hipotenusa Codigo Fuente en Visual Basic

Problema
Determinar la hipotenusa de un triángulo rectángulo conocidas las longitudes de sus dos catetos.

Solución
  • Entrada: 4  3   
  • Salida: 5
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 Double
        Dim b As Double
        Dim c As Double
        a = TextBox1.Text
        b = TextBox2.Text
        c = Math.Sqrt((a * a + b * b))
        TextBox3.Text = Trim(c)
    End Sub
End Class

3 comentarios:

Anónimo dijo...

mmmmmmmmmmmmmmmmm

Hansel Castejon dijo...

amigo muchas gracias enserio
te agradesco que te tomes la molestia de subir esta informatica que me acido de enorme ayuda si mas que darle las gracias.

Hansel Castejon dijo...

amigo muchas gracias enserio
te agradesco que te tomes la molestia de subir esta informatica que me acido de enorme ayuda si mas que darle las gracias.

Publicar un comentario en la entrada