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

 Descargar Proyecto Visual Basic