The VB.NET code is failing to recognize an input for right triangle and isosceles triangle

Viewed 37
Module Program 
    Sub Main(args As String())
        Dim angleA, angleB, angleC
        Console.WriteLine("Enter the value for the first angle.")
        angleA = Console.ReadLine
        Console.WriteLine("Enter the value for the second angle.")
        angleB = Console.ReadLine
        Console.WriteLine("Enter the value for the third angle.")
        angleC = Console.ReadLine

        If (angleA * angleA) + (angleB * angleB) = (angleC * angleC) Or
           (angleA * angleA) + (angleC * angleC) = (angleB * angleB) Or
           (angleB * angleB) + (angleC * angleC) = (angleA * angleA) Then
            Console.WriteLine("The triangle is a right triangle. (An angle is a 90-degree angle.)")
        Else
            If angleA = angleB And angleB = angleC Then
                Console.WriteLine("The triangle is an equilateral triangle. (All angles are equal)")
            ElseIf angleA = angleB Or angleB = angleC Or angleC = angleA Then
                If (angleA * angleA) + (angleB * angleB) = (angleC * angleC) Or
                   (angleA * angleA) + (angleC * angleC) = (angleB * angleB) Or
                   (angleB * angleB) + (angleC * angleC) = (angleA * angleA) Then
                    Console.WriteLine("The triangle is an isosceles triangle AND ALSO a right triangle. (Two angles are equal and an angle is a 90-degree angle.)")
                Else
                    Console.WriteLine("The triangle is an isosceles triangle. (Two angles are equal.)")
                End If
            Else
                Console.WriteLine("The triangle is a scalene triangle.")
            End If
        End If
    End Sub
End Module
0 Answers
Related