关于循环

Question

有12组数
a（0）=一组，都是3位数的数
a（1）=二组


a（11）=十二组
要求，这12组两组两组比较找出俩组共有的数（这个数不分百位十位各位，换句话说字符相同就可以）删除
如a（0）和a（1）找出相同的删除。a（0）和a（2）找出相同的删除----a（0）和a（11）找出相同的删除
  a（1）和a（2）找出相同的删除。a（1）和a（3）找出相同的删除----a（1）和a（11）找出相同的删除
  。。
  。。
  。。
  a（9）和a（10）找出相同的删除。a（9）和a（11）找出相同的删除
  a（10）和a（11）找出相同的删除
老师这个该怎么写呢

Answer 1

Private Sub Command1_Click()
Dim a, i%, j%, m%, n%, s$
a=array(152,548,796,547,852,103,547,109,410,673,187,570)
For i = 0 To UBound(a) - 1
For j = i + 1 To UBound(a)
For m = 1 To 3
s = Mid(Str(a(i)), m, 1)
n = InStr(Str(a(j)), s)
If n <> 0 Then
a(i) = Val(Replace(Str(a(i)), s, ""))
a(j) = Val(Replace(Str(a(j)), s, ""))
End If
Next m
Next j
Next i
End Sub楼主应该是这个意思吧

Answer 2

楼上的老师，不是12个数，是12组，每组由若干个3位数的数组成
a（0）=一组，都是3位数的数 ，如它里面包括，360，578，790，。，现在用a(0)表示，以下都是
a（1）=二组 
 
 
a（11）=十二组如a(0)里有345，567，678，790
  a(1)里有675，970，201，003
那么他俩循环找到相同的（共有的）567，790，删除
以后两个两个的循环都这样