Imports System

​

Public Module Module1

    Public Sub Main()

​

        Dim StarterName(6), MainName(6), DessertName(6) As String

        Dim StarterPrice(6), MainPrice(6), DessertPrice(6), TotalBeforeServiceCharge, TotalAfterServiceCharge, ServiceCharge As Decimal

        Dim StarterChoice, MainChoice, DessertChoice As Integer

        Dim ServiceChargeChoice As Integer

​

        StarterName(1) = "Cullen Skink Soup"

        StarterName(2) = "Home Cured Gravlax"

        StarterName(3) = "Chicken Liver Terrine"

        StarterName(4) = "Mushroom and Thyme Risotto"

        StarterName(5) = "Riverside Spiced Eggs"

        StarterName(6) = "Orange Sorbet"

​

        StarterPrice(1) = 4.55

        StarterPrice(2) = 5.85

        StarterPrice(3) = 4.85

        StarterPrice(4) = 4.80

        StarterPrice(5) = 4.70

        StarterPrice(6) = 3.50

​

        MainName(1) = "Haddock Veronique"

        MainName(2) = "Sirloin Steak"

        MainName(3) = "Leicestershire Chicken"

        MainName(4) = "Lamb and Leek Pie"

        MainName(5) = "Goulash"

        MainName(6) = "Gruyere Flan"

​

        MainPrice(1) = 10.75

        MainPrice(2) = 17.15

        MainPrice(3) = 10.65

        MainPrice(4) = 10.95

        MainPrice(5) = 11.15

        MainPrice(6) = 10.45

​

        DessertName(1) = "Jaffa Mud Cake"

        DessertName(2) = "Poached Pear"

        DessertName(3) = "Coffee and Walnut Cake"

        DessertName(4) = "Cinnamon Ice Cream"

        DessertName(5) = "Raspberry Fool"

        DessertName(6) = "Cheese Board and Biscuits (per person)"

​

        DessertPrice(1) = 4.25

        DessertPrice(2) = 3.45

        DessertPrice(3) = 4.45

        DessertPrice(4) = 3.50

        DessertPrice(5) = 3.55

        DessertPrice(6) = 5.95

​

        Console.WriteLine("Starters:Welcome to MrE's restaurant!")

        Console.WriteLine()

        Console.WriteLine("Starters:")

        for i = 1 to 6

            Console.WriteLine(i & ". " & StarterName(i) & " £" & StarterPrice(i))

        next i

        Do

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

            StarterChoice = Console.ReadLine()

        Loop Until StarterChoice > 0 And StarterChoice < 7

​

        Console.WriteLine("Main Course:")

        for i = 1 to 6

            Console.WriteLine(i & ". " & MainName(i) & " £" & MainPrice(i))

        next i

        Do

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

            MainChoice = Console.ReadLine()

        Loop Until MainChoice > 0 And MainChoice < 7

​

​

        Console.WriteLine("Desserts:")

        for i = 1 to 6

            Console.WriteLine(i & ". " & DessertName(i) & " £" & DessertPrice(i))

        next i

        Do

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

            DessertChoice = Console.ReadLine()

        Loop Until DessertChoice > 0 And DessertChoice < 7

​

        TotalBeforeServiceCharge = StarterPrice(StarterChoice) + MainPrice(MainChoice) + DessertPrice(DessertChoice)

        Console.WriteLine("Total before service charge: £" & TotalBeforeServiceCharge)

​

        Console.WriteLine("Service Charge:")

        Console.WriteLine("1. 10%")

        Console.WriteLine("2. 15%")

        Console.WriteLine("3. 20%")

​

        Do

            Console.WriteLine("Please enter choice (1 - 3)")

            ServiceChargeChoice = Console.ReadLine()

        Loop Until ServiceChargeChoice > 0 And ServiceChargeChoice < 4

​

        Select Case ServiceChargeChoice

            Case 1:

                ServiceCharge = 10

            Case 2:

                ServiceCharge = 15

            Case 3:

                ServiceCharge = 20

        End Select

​

        TotalAfterServiceCharge = TotalBeforeServiceCharge * (1 + (ServiceCharge / 100))

        Console.WriteLine("Total after service charge: £" & Math.Round(TotalAfterServiceCharge,2))

​

    End Sub

End Module