Imports System

Public Module Module1

    Structure Pizza

        Dim Name As String

        Dim Topping1 As String

        Dim Topping2 As String

        Dim Topping3 As String

        Dim CostInPence As Integer

    End Structure

​

    Dim specialPizza As New Pizza

​

    Public Sub Main()       

        CreatePizza()

        DisplayPizza()

​

        Console.ReadLine()

    End Sub

​

    Sub CreatePizza()

        specialPizza.Topping1 = "Tomato Sauce"

        specialPizza.Topping2 = "Cheese"

​

        Console.WriteLine("--- PIZZA DESIGNER ---")

        Console.WriteLine("Enter the name of the new pizza")

        specialPizza.Name = Console.ReadLine()

​

        Console.WriteLine("Enter your topping")

        specialPizza.Topping3 = Console.ReadLine()

    End Sub

​

    Sub DisplayPizza()

        Console.WriteLine("--- THE " & specialPizza.Name & " PIZZA ---")

        Console.WriteLine("Topping1 : " & specialPizza.Topping1)

        Console.WriteLine("Topping2 : " &specialPizza.Topping2)

        Console.WriteLine("Topping3 : " & specialPizza.Topping3)

    End Sub

End Module