Imports System

​

Public Module Module1

​

    Sub Main()

        Dim Type as Integer

        Dim Quant as Integer

        Dim Total as Double

        Dim Tax as Double

        Dim Desc as String

        'Display all the shirts

        Console.WriteLine("Welcome to the Shirt store")

        Console.WriteLine("(1) Chicken Sandwich $2.00")

        Console.WriteLine("(2) Fries$.50")

        Console.WriteLine("(3) Hamburger $2.00")

        'Ask user to select shirt - Keep track

        Console.WriteLine("Select a food item (1/2/3)")

        Type = Console.ReadLine

        'Ask user to select quantity - Keep Track

        Console.WriteLine("How many do you want?")

        Quant = Console.ReadLine

        'Calculate the total

        if Type = 1 then

            total = 2.00 * Quant

            Desc = "Chicken Sandwich"

        end if

        if Type = 2 then

            total = .50 * Quant

            Desc = "Fries"

        end if

        if Type = 3 then

            total = 2.00 * Quant

            Desc = "Hamburger"

        end if

        'Add tax

        Tax = total * 1.07

        'Display purchase and total(with tax)

        Console.WriteLine("You bought {0} {1} for a total cost of", Desc & Tax & "0")

    end Sub

End Module

​