Imports System

​

'Write a program that lets the user select a type of shirt and the quantity 

'Calculate the total cost + 10% shipping

'

'

Public Module Module1

​

    Public Sub Main()

        Dim desc as String

        Dim type as Integer

        Dim count as Integer

        Dim price as decimal

        'Show the shirt options and prices

        Console.WriteLine("1) Tank Top $7")

        Console.WriteLine("2) Short Sleeve $8")

        Console.WriteLine("3) Long Sleeve $10")

        '

        'let user pick shirt

        Console.WriteLine("Enter the type of shirt")

        type = Console.ReadLine()

        'let user pick quantity

        Console.WriteLine("Enter the number of shirts")

        count = Console.ReadLine()

        '

        if type = 1 then

            price = 7

            desc = "Tank Top"

        else if type = 2 then

            price = 8

            desc = "Short Sleeve"

        else

            price = 10

                desc = "Long Sleeve"

​

        End IF

        'Print total (with shipping)

            Console.WriteLine("You purchased {0} {1} shirts.  The total (with shipping) is ${2}", count, desc, price*count*1.1  )

    End Sub

End Module

​