<SCRIPT language=JScript>
var dicObj;
function CreateDic(){
  var VBObj,i,str=''; // 변수를 만든다.
  dicObj=new ActiveXObject('Scripting.Dictionary');
  dicObj.Add('a','사과');       // 키와 항목을 추가한다.
  dicObj.Add('b','바나나');
  dicObj.Add('c','체리');
  VBObj=(new VBArray(dicObj.Keys()));   // 키를 가져온다.
  for (i=0;i<dicObj.Count;i++){  // dictionary를 반복한다.
    str+=VBObj.getItem(i)+' - '+dicObj(VBObj.getItem(i))+'<BR>';
  }
  str+='dicObj.Count='+dicObj.Count+'<BR>';
  return(str);
}

function KeyTest(key){
  var str=CreateDic();
  str+='dicObj.Item("'+key+'")='+dicObj.Item(key);
  return(str);
}

function ChangeKey(oldkey,newkey){
  var str=CreateDic();
  dicObj.Key(oldkey)=newkey;
  str+='"'+oldkey+'"키가 "'+newkey+'"로 변경되었다.<BR> ';
  str+='dicObj.Item("'+newkey+'")='+dicObj.Item(newkey);
  return(str);
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="id=showjs.innerHTML=KeyTest('c')">
 <SPAN class=ie>JScript</SPAN> <SPAN class=property>Key</SPAN> 속성 호출 예제</DIV>
<DIV class=show onClick="id=showjs.innerHTML=ChangeKey('c','cherry')">
 <SPAN class=ie>JScript</SPAN> <SPAN class=property>Key</SPAN> 속성 변경 예제</DIV>

<SCRIPT language=VBScript>
Dim dicObj
Function CreateDicvb
  Dim i,str  ' 변수를 만든다.
  Set dicObj=CreateObject("Scripting.Dictionary")
  dicObj.Add "a","사과"  ' 키와 항목을 추가한다.
  dicObj.Add "b","바나나"
  dicObj.Add "c","체리"
  VBObj=dicObj.Keys ' keys를 얻음
  For i=0 To dicObj.Count -1 ' array를 반복한다.
    str=str&VBObj(i)&" - "&dicObj(VBObj(i))&"<BR>" ' 반환 문자열을 만든다.
  Next
  str=str&"dicObj.Count="&dicObj.Count&"<BR>"
  CreateDicvb=str
End Function

Function KeyTestvb(key)
  str=CreateDicvb
  str=str&"dicObj.Item(key)="&dicObj.Item(key)
  KeyTestvb=str
End Function

Function ChangeKeyvb(oldkey,newkey)
  str=CreateDicvb
  dicObj.Key(oldkey)=newkey
  str=str&"'"&oldkey&"'"&"'키가 '"&newkey&"'로 변경되었다.<BR>"
  str=str&"dicObj.Item('"&newkey&"')="&dicObj.Item(newkey)
  ChangeKeyvb=str
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="id=showvb.innerHTML=KeyTestvb('c')">
 <SPAN class=ie>VBScript</SPAN> <SPAN class=property>Key</SPAN> 속성 호출 예제</DIV>
<DIV class=show onClick="id=showvb.innerHTML=ChangeKeyvb('c','cherry')">
 <SPAN class=ie>VBScript</SPAN> <SPAN class=property>Key</SPAN> 속성 변경 예제</DIV>