Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim SizeNames(2) As String

        Dim SizePrices(2) As Decimal

        Dim BreadNames(4) As string

        Dim BreadPrices(4) As Decimal

        Dim FillingNames(6) As string

        Dim FillingPrices(6) As Decimal

        Dim TotalPrice As Decimal = 0

        Dim SizeChoice, Breadchoice, Fillingchoice, Where As Integer

        SizeNames(1) = "6 inch"

        SizeNames(2) = "12 inch"

        SizePrices(1) = 1.65

        SizePrices(2) = 2.05

        Console.WriteLine("Size")

        for i = 1 to 2

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

    next i

​

        do

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

            SizeChoice = Console.ReadLine()

        loop until SizeChoice >= 1 and SizeChoice <= 2

        TotalPrice = TotalPrice + SizePrices(SizeChoice)

    for i = 1 to 4

        TotalPrice = TotalPrice + BreadPrices(BreadChoice)

        BreadNames(1) = "Plain"

        BreadNames(2) = "Wheat"

        BreadNames(3) = "Italian"

        BreadNames(4) = "Cheese & Herbs"

        BreadPrices(1) = 0.4

        BreadPrices(2) = 0.65

        BreadPrices(3) = 0.75

        BreadPrices(4) = 0.8

        Console.WriteLine("Bread type")

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

    next

​

        do

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

    BreadChoice = Console.ReadLine()

        loop until BreadChoice >= 1 and BreadChoice <= 4

        TotalPrice = TotalPrice + BreadPrices(BreadChoice)

​

    for i = 1 to 6

        TotalPrice = TotalPrice + BreadPrices(BreadChoice)

        FillingNames(1) = "Cheese & tomato"

        FillingNames(2) = "Italian Bacon & pepperoni"

        FillingNames(3) = "Tuna & Mayo"

        FillingNames(4) = "Turkey & Ham"

        FillingNames(5) = "Chicken Teriyaki"

        FillingNames(6) = "Steak & Cheese"

​

        FillingPrices(1) = 0.95

        FillingPrices(2) = 1.1

        FillingPrices(3) = 0.95

        FillingPrices(4) = 1.35

        FillingPrices(5) = 1.4

        FillingPrices(6) = 1.95

Console.WriteLine("Filling type")

Console.WriteLine(i & ". " & fillingNames(i) & " £" & fillingPrices(i))

    next

​

        do

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

        fillingChoice = Console.ReadLine()

loop until fillingChoice >= 1 and fillingchoice <= 6  

TotalPrice = TotalPrice + fillingPrices(fillingChoice)

​

    do

        Console.WriteLine("If eat in enter 1, if take away enter 2")

        where = console.ReadLine

        If where = 1 THEN

            totalprice = totalprice*1.05

        else

            totalprice = totalprice

    end if

    Loop until where >= 1 and where <= 2

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

    End Sub

End Module

​