历史的倒退，被一个循环弄晕了。
我现在想写一个函数 ，Funtion TJ（Byval Count as Integer,Byval aar() as string）Count代表要取得的个数，aar代表一维数组，
比如，Count为3,一数组aar=｛‘a’,'b','c','d','e'｝
通过此函数的操作结果是得到数目为3个且不能重复的数组元素的集合。如下：
abc
abd
abe
acd
ace
ade
bcd
bce
bde
cde
快弄了一上午了，这会头很晕。
