using System;
using System.Collections;
public class SamplesHashtable  {

   public static void Main()  {

      // Creates and initializes a new Hashtable.
      Hashtable myHT = new Hashtable();
      myHT.Add ("First", "Hello");
      myHT.Add ("Second", "World");
      myHT.Add ("Third", "!");

      // Displays the properties and values of the Hashtable.
      Response.Write ("myHT" );
      Response.Write ("  Count:    {0}", myHT.Count );
      Response.Write ("  Keys and Values:" );
      PrintKeysAndValues ( myHT );
   }


   public static void PrintKeysAndValues ( Hashtable myList )  {
      IDictionaryEnumerator myEnumerator = myList.GetEnumerator();
      Response.Write ("\t-KEY-\t-VALUE-" );
      while ( myEnumerator.MoveNext() )
         Response.Write ("\t{0}:\t{1}", myEnumerator.Key, myEnumerator.Value);
      Response.Write ();
   }
}
/* 
This code produces the following output.

myHT
  Count:    3
  Keys and Values:
    -KEY-    -VALUE-
    Third:    !
    Second:    World
    First:    Hello
*/

Imports System
Imports System.Collections
Imports Microsoft.VisualBasic

Public Class SamplesHashtable    
    
    Public Shared Sub Main()
        
        ' Creates and initializes a new Hashtable.
        Dim myHT As New Hashtable()
        myHT.Add ("First", "Hello")
        myHT.Add ("Second", "World")
        myHT.Add ("Third", "!")
        
        ' Displays the properties and values of the Hashtable.
        Response.Write ("myHT")
        Response.Write ("  Count:    {0}", myHT.Count)
        Response.Write ("  Keys and Values:")
        PrintKeysAndValues (myHT)
    End Sub
    
    Public Shared Sub PrintKeysAndValues (myList As Hashtable)
        Dim myEnumerator As IDictionaryEnumerator = myList.GetEnumerator()
        Response.Write (ControlChars.Tab + "-KEY-" + ControlChars.Tab _
           + "-VALUE-")
        While myEnumerator.MoveNext()
           Response.Write (ControlChars.Tab + "{0}:" + ControlChars.Tab _      + "{1}", myEnumerator.Key, myEnumerator.Value)
        End While
        Response.Write ()
    End Sub
End Class

' This code produces the following output.
' 
' myHT
'   Count:    3
'   Keys and Values:
'     -KEY-    -VALUE-
'     Third:    !
'     Second:    World
'     First:    Hello

import System
import System.Collections

// Creates and initializes a new Hashtable.
var myHT : Hashtable = new Hashtable()
myHT.Add ("First", "Hello")
myHT.Add ("Second", "World")
myHT.Add ("Third", "!")

// Displays the properties and values of the Hashtable.
Response.Write ("myHT")
Response.Write ("  Count:    {0}", myHT.Count)
Response.Write ("  Keys and Values:")
PrintKeysAndValues (myHT)
    
function PrintKeysAndValues (myList : Hashtable){
    var myEnumerator : IDictionaryEnumerator = myList.GetEnumerator()
    Response.Write ("\t-KEY-\t-VALUE-")
    while(myEnumerator.MoveNext())
        Response.Write ("\t{0}:\t{1}", myEnumerator.Key, myEnumerator.Value)
    Response.Write ()
}

// This code produces the following output.
// 
// myHT
//   Count:    3
//   Keys and Values:
//     -KEY-    -VALUE-
//     Third:    !
//     Second:   World
//     First:    Hello