Imports System

Public Module Module1

    Public Sub Main()

        Dim altura = 180

        Dim peso = 65

        If altura <= 170 And peso > 70 Then

            Console.WriteLine("Obeso mais de 70")

        Else If altura <= 180 And peso > 80 Then

            Console.WriteLine("Obeso mais de 80")

        Else If altura <= 190 And peso > 90 Then

            Console.WriteLine("Obeso mais de 90")

        Else

            Console.WriteLine("Peso bom")

        End If

​

        'Console.WriteLine("Hello World")

    End Sub

End Module