<SCRIPT language=JScript>
function KeysTest(){
  var DicKeyArr,DicArr,dicObj,i,str=''; // 변수를 만든다.
  dicObj=new ActiveXObject('Scripting.Dictionary');
  dicObj.Add('a','사과'); // 키와 항목을 추가한다.
  dicObj.Add('b','바나나');
  dicObj.Add('c','체리');
  DicKeyArr=new VBArray(dicObj.Keys()).toArray(); // 키를 가져온다.
  DicArr=new VBArray(dicObj.Items()).toArray(); // 항목을 가져온다.
  for (i in DicArr){ // dictionary를 반복한다.
    str+=i+') '+DicKeyArr[i]+' : '+DicArr[i]+'<BR>';
  }
  str+='<BR>dicObj.Count='+dicObj.Count;
  return(str); // 결과를 반환한다.
}
</SCRIPT>

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

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

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