Imports System

Public Module Module1

    Public Sub Main()

        'Area del Rectangulo

        Dim a, b , h as double

        Console.WriteLine("Ingrese la base")

        b=Console.ReadLine()

        Console.WriteLine("Ingrese la altura")

        h=Console.ReadLine

        'Calculo del Area

        a=b*h

        'Moatrar el area 

        Console.WriteLine("El area del resctangulo es: " &a)

    End Sub

End Module