作者：lcx
来源：vbs小铺

 'code by lcx ,很好,很强大,很黄很暴力,很傻很天真,很zd很cnn      
'这个程序是算不同数字与字母的所有排列组合,当然可以做为字典生成器来用.如需不同组合,只需改本程序a和b的变量即可以.       
 

 'use:cscript this.vbs > dic.txt      
a=Array(1,2,3,4,"a")       
Function js1(n)       
for i=1 to n       
f=f&"f"&i&"&"       
s=s&"For Each f"&i &" In a :wscript.echo "& f       
s=Mid(S,1,Len(S)-1)&":"       
Next       
js1=s       
End Function       
Function js2(n)       
for i=1 to n       
m=m & "Next" & ":"       
Next       
js2=m       
End Function lcx= js1(UBound(a)+1)&js2(UBound(a)+1)      
lcx=Mid(lcx,1,Len(lcx)-1)       
b="a=Array(1,2,3,4,""a""):"&lcx Execute b