Imports System

Public Module Module1

    Public Sub Main()

        dim NumSimpleCone = 0

        dim NumDoubleCone = 0

        dim NumConeFlake  = 0

        dim NumIceLolly = 0

        dim NumTea = 0

        dim NumTripleCone = 0

        'These prices are constants and not variables because their values are fixed and do not change

        const SimpleConePrice as decimal = 2.30

        const DoubleConePrice as decimal = 3.20

        const ConeFlakePrice  as decimal = 3.00

        const IceLollyPrice as decimal = 2.00

        const TeaPrice as decimal = 2.50

        const TripleConePrice as decimal = 4.00

        Console.writeline("How many ice creams have you sold today?")

        'This allows you to enter the amount of different ice creams you have sold today

        Console.write(" simple cones = ")

        NumSimpleCone  = Console.Readline()

        Console.Write(" double cones = ")

        NumDoubleCone  = Console.Readline()

        Console.Write(" cone with flakes = ")

        NumConeFlake   = Console.Readline()

        Console.write(" ice lollies = ")

        NumIceLolly = console.readline()

        Console.write(" tea = ")

        NumTea = console.readline()

        Console.write(" triple cones = ")

        NumTripleCone = console.readline()

        'This calculates the total profit

        Console.write(" Today you have earnt - ")

        Console.writeline("£" & SimpleConePrice * NumSimpleCone + DoubleConePrice * NumDoubleCone + ConeFlakePrice * NumConeFlake + IceLollyPrice * NumIceLolly + TeaPrice * NumTea + TripleConePrice * NumTripleCone)

    End Sub

End Module