Imports System.Linq

Imports System

Public Module Order

    Public Sub Main()

        Dim Length As String

        Dim Types As String

        Dim Filling As String

        Dim Salad As String

                Console.WriteLine("Now, pick the type of bread that you are going to have, you get to pick either from white, brown, and seeded")

                Types = Console.ReadLine()

                Console.WriteLine("Pick your size of the bread, 30cm or 15cm")

                Length = Console.ReadLine()

                Console.WriteLine("Pick the fillings, Beef, Chicken, Cheese, Egg, Tuna, Turkey")

                Filling = Console.ReadLine()

                Console.WriteLine("Pick your salad, Lettuce, Tomato, Sweetcorn, Cucumber, Peppers")

                Salad = Console.ReadLine()

        Console.WriteLine("So would you like your bread to be " + Types + Length + "with" + Filling + "and" + Salad + "?") 

                If Console.ReadLine = "yes" Then

                    Console.WriteLine("Proceeding")

                Else Console.WriteLine("Restarting program....")

                    Exit Sub 

                End If

            Dim maxCount As Integer = str.Count

            For i = 0 To maxCount

        Next

        'Task 2 is missing

​

        Dim count1 As Integer = 0

Dim count2 As Integer = 0

Dim count3 As Integer = 0

Dim count4 As Integer = 0

Dim count5 As Integer = 0

Dim count6 As Integer = 0

​

        For Each i As String In Filling

    If i = “Beef” Then count1 = count1 + 1

    If i = “Chicken” Then count2 = count2 + 1

    If i = “Cheese” Then count3 = count3 + 1

    If i = “Egg” Then count4 = count4 + 1

    If i = “Tuna” Then count5 = count5 + 1

    If i = “Turkey” Then count6 = count6 + 1

Next 

                    Dim Most As Integer

                    Dim Least As Integer

​

        For Count = 0 To 5 = (count1, count2, count3, count4, count5, count6)

        Most = Count.Max()

        Console.WriteLine("The most popular filling is  " & Most / Total * 100)

        Least = Count.Min()

        Console.WriteLine("The least popular filling is " & Least / Total * 100)

                    Next        

​

Console.ReadLine()

​

​

    End Sub

End Module