Option Strict On

Imports System

Imports System.Collections.Generic

Public Module Module1

    Public Sub Main()

        'Declare a Dictionary(Of String, Double) to represent the menu's item name and respective price

        Dim menu As Dictionary(Of String, Double) = New Dictionary(Of String, Double)

​

        'Add some menu items and their respective price

        menu.Add("Soft Drink", 1.0)

        menu.Add("Hamburger", 5.0)

        menu.Add("Hot Dog", 3.5)

        menu.Add("Nachos", 3.5)

​

        'Print out the price for a Hamburger

        Console.WriteLine(menu.Item("Hamburger"))

    End Sub

End Module