Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim foodType as Integer

        dim quantity as Integer

        dim totalcost as decimal

        dim price as decimal

        dim desc as String

        dim tax as decimal

        dim taxCost as decimal

        'taxes

        tax = 1.07

        'foods

        Console.WriteLine("Pick a Food Option! (Use number)")

        Console.WriteLine("1) Hamburger ($6)")

        Console.WriteLine("2) Cheeseburger ($7)")

        Console.WriteLine("3) Hot Dog ($4)")

        Console.WriteLine("4) Pizza ($15)")

        Console.WriteLine("----------------------")

        'food pick

        foodType = Console.ReadLine()

        'quantity

        Console.WriteLine("How many?")

        quantity = Console.ReadLine()

        if foodType = 1 then

            price = 6

            desc = "Hamburger(s)"

        else if foodType = 2 then

            price = 7

            desc = "Cheeseburger(s)"

        else if foodType = 3 then

            price = 4

            desc = "Hot Dog(s)"

        else if foodType = 4 then

            price = 15

            desc = "Pizza(s)"

        else

            Console.WriteLine("Invalid Food Option. Please try again.")

        end if

​

        'total

        totalCost = price * quantity

        taxCost = totalCost * tax

        Console.WriteLine("You purchased {0} {1}. The total is ${2}, which includes tax. Thank you for your purchase.", quantity, desc, taxCost)

    End Sub

End Module

​