Imports System

​

Public Module Module1

    Public Sub Main()

        ' Calculating hypotenuse of a right-angled triangle

        ' Declare variables

        Dim Side1, Side2, Hypotenuse As Decimal

        ' Prompt and Input Short Sides

        Console.WriteLine("Please enter side 1 in cm")

        Side1 = Console.ReadLine()

        Console.WriteLine("Please enter side 2 in cm")

        Side2 = Console.ReadLine()

        ' Now calculate the hypotenuse - power of 1/2 is equivalent to square root

        Hypotenuse = (Side1 ^ 2 + Side2 ^ 2) ^ (1/2)

        ' Output the answer

        Console.WriteLine("The hypotenuse is " & Hypotenuse & " cm")

    End Sub

End Module

​