Imports System

Public Module Module1

    Public Sub Main()

        ' Declare arrays    

        Dim SizeNames(2) As String

        Dim SizePrices(2) As Decimal

        ' Declare other variables

        Dim TotalPrice As Decimal = 0       

        Dim SizeChoice 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 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)

        ' Display total (so far!)

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

        ' Declare arrays    

        Dim BreadtypeNames(4) As String

        Dim BreadtypePrices(4) As Decimal

        ' Declare other variables

        Dim BreadtypeChoice As Integer

        ' Populate Size arrays: name and corresponding price        

        BreadtypeNames(1) = "Plain"

        BreadtypeNames(2) = "Wheat" 

        BreadtypeNames(3) = "Italian"   

        BreadtypeNames(4) = "Cheese&Herbs"  

        BreadtypePrices(1) = 0.40

        BreadtypePrices(2) = 0.65

        BreadtypePrices(3) = 0.75

        BreadtypePrices(4) = 0.80

        ' Display options 

        for i = 1 to 4

        Console.WriteLine(i & ". " & BreadtypeNames(i) & " £" & BreadtypePrices(i))

        next i

​

        ' Ask user to enter choice in range     

        do

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

        BreadtypeChoice = Console.ReadLine()

    loop until BreadtypeChoice >= 1 and BreadtypeChoice <= 4

​

        ' Add to total price

    TotalPrice = TotalPrice + BreadtypePrices(BreadtypeChoice)

        ' Display total (so far!)

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

' Declare arrays    

        Dim FillingsNames(6) As String

        Dim FillingsPrices(6) As Decimal

        ' Declare other variables

​

        Dim FillingsChoice As Integer

        ' Populate Size arrays: name and corresponding price        

        FillingsNames(1) = "Cheese & Tomato"

        FillingsNames(2) = "Italian Bacon & Pepperoni"  

        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

        ' Display options 

        for i = 1 to 6

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

        next i

​

        ' Ask user to enter choice in range     

        do

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

        FillingsChoice = Console.ReadLine()

    loop until FillingsChoice >= 1 and FillingsChoice <= 6

​

        ' Add to total price

    TotalPrice = TotalPrice + FillingsPrices(FillingsChoice)

        ' Display total (so far!)

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

    End Sub

End Module