求一个新型排列组合

[xingrong23]

随意输入20个数，比如6，4，20，11，100，50，23，。。。。，这些数彼此肯定各不相同，我想用这20个数产生一个20选7的不重复的排列组合，有点像彩票里的20选几，（如1，2，3和3，2，1只算一个）并把包含某一个数的组合分别打印显示出来，这个数会预先输入。注意这20个数不是简单的1到20，目前的思路只知道用for 循环，不断取数，请各位指教一下编程思路和主要代码，谢谢，请用VB。

[东方之珠]

有2个办法：一是用枚举类型。20个数事先确定了，放在枚举类型中。二是将这20个数放在数组中，编号1-20，便于取出来。