Imports System

Public Module Module1

    Public Sub Main()

​

        dim starter(6), main(6), pudding(6) as string

        dim starterprice(6), mainprice(6), puddingprice(6) as decimal

        dim sc, mc, pc as integer

        starter(1) = "Cullen Skink Soup"

        starter(2) = "Home Cured Gravlax"

        starter(3) = "Chicken Liver Terrine"

        starter(4) = "Mushroom and Thyme Risotto"

        starter(5) = "Riverside Spiced Eggs"

        starter(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

        console.WriteLine("Here are the starters")

        For i = 1 to 6

        console.WriteLine(i & ". " & starter(i) & "   £" & starterprice(i))

    next i

    console.WriteLine("Enter choice (1-6)")

    sc = console.ReadLine()

    main(1) = "Haddock Veronique"

    main(2) = "Sirloin Steak"

    main(3) = "Leicestershire Chicken"

    main(4) = "Lamb and Leek Pie"

    main(5) = "Goulash"

    main(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

    console.WriteLine("Here are the main courses")

    For i = 1 to 6

    console.WriteLine(i & ". " & main(i) & "   £" & mainprice(i))

    next i

console.WriteLine("Enter choice (1-6)")

mc = console.ReadLine()

​

pudding(1) = "Jaffa Mud Cake"

pudding(2) = "Poached Pear"

pudding(3) = "Coffee and Walnut Cake"

pudding(4) = "Cinnamon Ice-cream"

pudding(5) = "Rasberry Fool"

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

​

puddingprice(1) = 4.25

puddingprice(2) = 3.45

puddingprice(3) = 4.45

puddingprice(4) = 3.50

puddingprice(5) = 3.55

puddingprice(6) = 5.95

​

console.WriteLine("Here are the puddings")

For i = 1 to 6

console.WriteLine(i & ". " & pudding(i) & "   £" & puddingprice(i))

next i

console.WriteLine("Enter choice (1-6)")

pc = console.readline()

    End Sub

End Module