Imports System

​

Public Module Module1

​

Public Sub Main()

Dim Burger as Integer

Dim Fries as Integer

Dim Burgercost as double

Dim Frycost as double

Dim Drinkcost as double

Dim Drink As Integer

Dim Burgernum as Integer

Dim Frynum as integer

Dim Drinknum as integer

Console.WriteLine("Burger Knight Menu")

Console.WriteLine("1) CheeseBurger $1")

Console.WriteLine("2) Wopper $2")

Console.WriteLine("3) Chicken Sandwich $3")

Console.WriteLine()

Burger = console.ReadLine()

Console.WriteLine("How Many Would You Like?")

Burgernum = Console.ReadLine()

Console.WriteLine("Would You Like Fries with that?")

Console.WriteLine("0) No")

Console.WriteLine("1) Small Fry $0.50")

Console.WriteLine("2) Medium Fry $0.75")

Console.WriteLine("3) Large Fry $1")

Console.WriteLine()

Fries = console.ReadLine()

Console.WriteLine("How Many Would You Like?")

Frynum = Console.ReadLine()

Console.WriteLine("Would You Like a Drink?")

Console.WriteLine("0) No")

Console.WriteLine("1) Small $1.50")

Console.WriteLine("2) Medium $1.75")

Console.WriteLine("3) Large $2")

Drink = Console.ReadLine()

Console.WriteLine("How Many Would You Like?")

Drinknum = Console.ReadLine()

Dim BurgerName As String

Dim FriesSize As String

Dim DrinkSize As String

if Burger = 1 then

BurgerName = "CheeseBurger"

Burgercost = 1

end if

​

if Burger = 2 then

BurgerName = "Wopper"

Burgercost = 2

end if

​

if Burger = 3 then

BurgerName = "Chicken Sandwich"

Burgercost = 3

end if

​

if Fries = 0 then

FriesSize = "No"

Frycost = 0

end if

​

if Fries = 1 then

FriesSize = "Small Fry"

Frycost = 0.5

end if

​

if Fries = 2 then

FriesSize = "Medium Fry"

Frycost = 0.75

end if

​

if Fries = 3 then

FriesSize = "Large Fry"

Frycost = 1

end if

​

if Drink = 0 then

DrinkSize = "No"

Drinkcost = 0

end if

​

if Drink = 1 then

DrinkSize = "Small Drink"

Drinkcost = 1.5

end if

​

if Drink = 2 then

DrinkSize = "Medium Drink"

Drinkcost = 1.75

end if

​

if Drink = 3 then

DrinkSize = "Large Drink"

Drinkcost = 2

end if

​

Console.WriteLine("You selected a {0} {1} {2}.", BurgerName, FriesSize, DrinkSize)

Dim totalCost as double

totalcost = 1.07 * ((Burgercost * Burgernum)+(Frycost * Frynum)+(Drinkcost * Drinknum))

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

End Sub

End Module