这个程序是算不同数字与字母的所有排列组合,当然可以做为字典生成器来用.如需不同组合,只需改本程序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
