Imports System

Public Module Module1

    Public Sub Main()

        Dim StarterChoice As Integer

        Dim StarterMeal(6) As String

        Dim StarterPrice(6) As Decimal

        Dim MainChoice As Integer

        Dim MainMeal(6) As String

        Dim MainPrice(6) As Decimal

        Dim PuddingChoice As Integer

        Dim Pudding(6) As String

        Dim PuddingPrice(6) As String       

        Console.WriteLine("Welcome to Osa's returant.")

        StarterMeal(1) = "Cullen Skink Soup"

        StarterPrice(1) = 4.55

​

        StarterMeal(2) = "Home Curved Gravlax"

        StarterPrice(2) = 5.85

​

        StarterMeal(3) = "Chicken Liver Terrine"

        StarterPrice(3) = 4.85

        For i = 1 to 3

            StarterChoice = i

            Console.WriteLine("Option " & i & ". " & StarterMeal(i) & ", £" & StarterPrice(i))

        Next i

        Console.WriteLine(" Please pick a Starter from 1 to 3.")

        StarterChoice =Console.ReadLine()

        MainMeal(1) = "Haddock Veronique"

        MainPrice(1) = 10.75

​

        MainMeal(2) = "Sirlion Steak"

        MainPrice(2) = 17.15

​

        MainMeal(3) = "Liecestershire Chicken"

        MainPrice(3) = 10.65

        For i = 1 to 3

            MainChoice = i

            Console.WriteLine("Option " & i & ". " & MainMeal(i) & ", £" & MainPrice(i))

        Next

        Console.WriteLine(" Please pick a Meal from 1 to 3.")

        MainChoice =Console.ReadLine()

​

        Pudding(1) = "Jaffa Mud Cake"

        PuddingPrice(1) = 4.25

​

        Pudding(2) = "Poached Pear"

        PuddingPrice(2) = 3.45

​

        Pudding(3) = "Coffee and Walnut Cake"

        PuddingPrice(3) = 4.45

        For i = 1 to 3

            PuddingChoice = i

            Console.WriteLine("Option " & i & ". " & Pudding(i) & ", £" &   PuddingPrice(i))

        Next i

        Console.WriteLine(" Please pick a Pudding from 1 to 3.")

        PuddingChoice = Console.ReadLine()

​

Console.WriteLine("You Chose the " & StarterMeal(StarterChoice) & " as your Starter, for " & StarterPrice(StarterChoice))

Console.WriteLine("You Chose the " & MainMeal(MainChoice) & " as your Main Meal, for " & MainPrice(MainChoice))

Console.WriteLine("You Chose the " & Pudding(PuddingChoice) & " as your Desert, for " & PuddingPrice(PuddingChoice))

​

​

    End Sub

End Module