Imports System

​

Public Module Module1

​

    Public sub Main

        Dim food as Integer

        Dim side as Integer

        Dim cost as double

        'Print food selections

        Console.WriteLine("Welcome to McDonalds")

        Console.WriteLine("Please select a food")

        Console.WriteLine("1) Pizza")

        Console.WriteLine("2) Pasta")

        Console.WriteLine("3) Salad")

        Console.WriteLine()

        'Ask for their choice

        food = console.ReadLine()

        'Print side selections

        Console.WriteLine("Please select a side")

        Console.WriteLine("1) fries")

        Console.WriteLine("2) Mashed Potatoes")

        Console.WriteLine("3) Coleslaw")

        Console.WriteLine()

        'Ask for side

        side = console.ReadLine()

        Dim foodName as string

        Dim sideName as string

        if food = 1 then foodName = "Pizza"

        if food = 2 then foodName = "Pasta"

        if food = 3 then foodName = "Salad"

        if side = 1 then

            sideName = "fries"

            cost = 11.45

        end if

​

        if side = 2 then

            sideName = "Mashed Potatoes"

            cost = 12.21

        end if

​

        if side = 3 then

            sideName = "Coleslaw"

            cost = 13.55

        end if

​

        if side = 2 then sideName = "Mashed Potatoes"

        if side = 3 then sideName = "Coleslaw"

        'Print user selection

        Console.WriteLine("You selected a {0} {1}.", foodname, sidename)

        '

        Dim totalCost as double

        totalcost = 1.07 * cost

        Console.WriteLine("Your total cost was ${0}.", totalcost)

                            Console.Writeline("Thankyou for your purchase")

    End Sub

end Module

​