Imports System

Public Module Module1

    Public Sub Main()

        Dim a, b, h, area as Decimal

        'Calculating the Area of a Trapezium

        Console.WriteLine("What is the value of a in cm?")

        a = console.ReadLine()

        Console.WriteLine("What is the value of b in cm?")

        b = console.ReadLine()

        Console.WriteLine("What is the value of the height in cm?")

        h = console.ReadLine()

        area = 1/2 *(a + b)*h

        Console.WriteLine("The area of your trapezium is "& area & "cm squared")

    End Sub

End Module

​

'Pseudocode

'

'INTEGER: a, b, h

'REAL: Area

'OUTPUT "Enter side a"

'INPUT a

'OUTPUT "Enter side b"

'INPUT "Enter side a"

'OUTPUT "Enter height h"

'INPUT h

'

'AREA <-- 1/2 *(a + b)*h

'OUTPUT "Area of trapezium =", area

​

​