求教，我是初学者，有10个数，分别确定其中的3个后，后面余下的7个数跟着顺序排列，如何用VB代码实现？
例1：
第一步：点击（或者选中）7之后，排列7012345689
第二步：点击（或者选中）3之后，排列7301245689
第三步：点击（或者选中）2之后，排列7320145689

例2：
第一步：点击（或者选中）5之后，排列5012346789
第二步：点击（或者选中）8之后，排列5801234679
第三步：点击（或者选中）7之后，排列5870123469

余下类推，意思就是从0-9中选中三个之后，余下的7个顺序跟着前面的三个排列。

a=1:b=3:c=6
s=abc
for i = 0 to 9
  if i<>a and i<>b and i<>c then s=s & i
next

非常感谢！学习了