'Kevin Ding

'12/9/20

'p141 #25

​

Imports System

​

Public Module Module1

    Public Sub Main()

        dim figure as string

        dim pi as double = CDbl(System.Math.Pi)

        dim r as double

        dim l as double

        dim h as double

        dim w as double

        dim area as double

        console.writeline("Which shape do you want to find the area of?")

        figure = console.readline()

        Select Case figure

        Case "circle", "Circle"

            console.writeline("What is the circle's radius?")

            r = console.readline()

            area = pi*(r)^2

            console.writeline("The area of the circle is " & area & ".")

        Case "parallelogram", "Parallelogram"

            console.writeline("What is the length of the parallelogram?")

            l = console.readline()

            console.writeline("What is the height of the parallelogram?")

            h = console.readline()

            area = l*h

            console.writeline("The area of the parallelogram is " & area & ".")

        Case "kite", "Kite"

            console.writeline("What is the length of the kite?")

            l = console.readline()

            console.writeline("What is the width of the kite?")

            w = console.readline()

            area = (l*w)/2

            console.writeline("The area of the kite is " & area & ".")

        Case Else

            console.writeline("Please input another shape.")

        End Select

    End Sub

End Module