<SCRIPT language=JScript>
function AddTest(){
  var DicObj,str='';
  DicObj=new ActiveXObject('Scripting.Dictionary');
  DicObj.Add('a','사과');
  DicObj.Add('b','바나나');
  DicObj.Add('c','체리');

  KeyArr=new VBArray(DicObj.Keys()).toArray(); // Key 항목을 가져온다.
  DicArr=new VBArray(DicObj.Items()).toArray(); // 항목을 가져온다.
  for (numb in DicArr){ // dictionary를 반복한다.
    str+=numb+') "'+KeyArr[numb]+'"='+DicArr[numb]+'<BR>';
  }
  return(str);
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showjs.innerHTML=AddTest()">
  <SPAN class=ie>JScript</SPAN> <SPAN class=method>Add</SPAN> 메서드 예제</DIV>

<SCRIPT language=VBScript>
Function AddTestvb
  Dim DicObj,DicArr,i,str ' 변수를 만든다.
  Set DicObj=CreateObject("Scripting.Dictionary")
  DicObj.Add "a","사과" ' 키와 항목을 추가한다.
  DicObj.Add "b","바나나"
  DicObj.Add "c","체리"

  DicArr=DicObj.Keys ' 키를 가져온다.
  For i=0 To DicObj.Count-1 ' dictionary를 반복한다.
    str=str&"'"&DicArr(i)&"' : "&DicObj.Item(DicArr(i))&"<BR>" ' 결과를 반환한다.
  Next
  AddTestvb=str
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showvb.innerHTML=AddTestvb()">
  <SPAN class=ie>VBScript</SPAN> <SPAN class=method>Add</SPAN> 메서드 예제</DIV>