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

        'Mostrar el area

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

    End Sub

End Module