袁氏家谱网

摘要： 借花献佛：一、定义字典 Set d = CreateObject("Scripting.Dictionary")二、呼之即来，挥之即去d("张三“)=1 '相当于给字典赋值，张三过来（没有就生成）拿个1站一边去d("李四”)=2 '相当于给字典赋值，李四过来（没有就生成）拿个2站一边去d("李四”) 阅读全文