Imports System

Public Module Module1

    Public Sub Main()

        ' Declare arrays    

        Dim SizeNames(2) As String

        Dim SizePrices(2) As Decimal

        Dim BreadNames(4) As String

        Dim BreadPrices(4) As Decimal

        Dim FillingsNames(6) As String

        Dim FillingsPrices(6) As Decimal

        Dim PlaceNames(2) As String

        Dim PlacePrices(2) As decimal

        ' Declare other variables

        Dim TotalPrice As Decimal = 0       

        Dim SizeChoice As Integer

        Dim BreadChoice As Integer

        Dim FillingsChoice As Integer

        Dim PlaceChoice As Integer

        ' Populate Size arrays: name and corresponding price        

        SizeNames(1) = "6 inch"

        SizeNames(2) = "12 inch"    

        SizePrices(1) = 1.65

        SizePrices(2) = 2.05

        ' Display options for Size

        Console.WriteLine("SIZES")

        for i = 1 to 2

            Console.WriteLine(i & ". " & SizeNames(i) & " £" & SizePrices(i))

        next i

​

        ' Ask user to enter choice in range     

        do

            Console.WriteLine("Please enter 1 - 2")

            SizeChoice = Console.ReadLine()

        loop until SizeChoice >= 1 and SizeChoice <= 2  

​

        ' Add to total price

        TotalPrice = TotalPrice + SizePrices(SizeChoice)

        BreadNames(1) = "Plain"

        BreadNames(2) = "Wheat"

        BreadNames(3) = "Italian"

        BreadNames(4) = "Cheese & Herbs"

        BreadPrices(1) = 0.40

        BreadPrices(2) = 0.65

        BreadPrices(3) = 0.75

        BreadPrices(4) = 0.80

        console.WriteLine()

        Console.WriteLine("Bread")

        for J = 1 to 4

        Console.WriteLine(J & ". " & BreadNames(J) & " £" & BreadPrices(J))

        next J

        do

            Console.WriteLine("Please enter 1 - 4")

            BreadChoice = Console.ReadLine()

        loop until BreadChoice >= 1 or BreadChoice <= 2 or BreadChoice <= 3 or BreadChoice <= 4     

        TotalPrice = TotalPrice + BreadPrices(BreadChoice)

        FillingsNames(1) = "Cheese & Tomato"

        FillingsNames(2) = "Italian Bacon & Peperoni"

        FillingsNames(3) = "Tuna & Mayo"

        FillingsNames(4) = "Turkey & Ham"

        FillingsNames(5) = "Chicken Teriyaki"

        FillingsNames(6) = "Steak & Cheese"

​

        FillingsPrices(1) = 0.95

        FillingsPrices(2) = 1.10

        FillingsPrices(3) = 0.95

        FillingsPrices(4) = 1.35

        FillingsPrices(5) = 1.40

        FillingsPrices(6) = 1.95

​

        Console.WriteLine("Fillings")

        for N = 1 to 6

        Console.WriteLine(N & ". " & FillingsNames(N) & " £" & FillingsPrices(N))

        next N

​

​

        do

            Console.WriteLine("Please enter 1 - 6")

            FillingsChoice = Console.ReadLine()

        loop until FillingsChoice >= 1 or FillingsChoice <= 2 or FillingsChoice <= 3 or FillingsChoice <= 4 or FillingsChoice <= 5 or FillingsChoice <= 6   

​

​

        TotalPrice = TotalPrice + FillingsPrices(FillingsChoice)

​

​

​

        PlaceNames(1) = "Eat in"

        PlaceNames(2) = "Takeaway"

​

        PlacePrices(1) = 5

        PlacePrices(2) = 0

​

        Console.WriteLine("Eat in Or Takeaway?")

        for o = 1 to 2

        Console.WriteLine(o & ". " & PlaceNames(o) & " " & PlacePrices(o) & "% ")

        next o

​

​

        do

            Console.WriteLine("Please enter 1 - 2")

            PlaceChoice = Console.ReadLine()

        loop until PlaceChoice >= 1 and PlaceChoice <= 2

​

        If PlaceChoice = 1 Then

            TotalPrice = TotalPrice * 105 / 100

        Else

            TotalPrice = TotalPrice

        End if

​

        Console.WriteLine()

        Console.WriteLine("Total price = £" & TotalPrice)

​

    End Sub

End Module

​

​

​

'Pusedocode

'----------

'

'STING: SizeNames[2]

'REAL: SizePrices[2]

'

'REAL: TotalPrice <-- 0

'INTEGER: SizeChoice

'

'SizeNames[1] = "6 inch"

'SizeNames[2] = "12 inch"   

'       

'SizePrices[1] = 1.65

'SizePrices[2] = 2.05

'

'OUTPUT "SIZE"

'FOR i <-- 1 TO 2

'   OUTPUT i , ". " , SizeNames(i) , " £" , SizePrices(i)

'NEXT i

'

'REPEAT

'   OUTPUT "Please enter 1 - 2"

'   INPUT SizeChoice

'UNTIL SizeChoice >= 1 and SizeChoice <= 2

'

'TotalPrice = TotalPrice + SizePrices[SizeChoice]

'

'OUTPUT

'OUTPUT "Total price = £" , TotalPrice