求一个新型排列组合

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