Imports System
Public Class Program
Public Shared Sub Main()
Dim a As Double = 6, b As Double = 9, height As Double = 5
Dim area As Double = 0.5 * (a + b) * height
Console.Write("The area of a trapezoid is: " & area)
End Sub
End Class
' run:
'
' The area of a trapezoid is: 37.5
'