关于数组比较

Question

a(1) = arr(0)
a(2) = arr(2)
a(3) = arr(4)
a(4) = arr(6)
a(5) = arr(8)
a(6) = arr(10)
a(7) = arr(1)
a(8) = arr(3)
a(9) = arr(5)
a(10) = arr(7)
a(11) = arr(9)
a(12) = arr(11)
a(1)-a(6)输出的结果是数组名称，如语文或a等等
a(7)-a(12)输出的是数组如345，或5678（这六组数当中的数字没有重复的）
现在a(1)对应a（7）结果如 语文 对应  1679
    a(2)对应a（8）
    依次往下
 现在，有个s，s是一个3位数的实数如123，拿这个实数和上面那些数组比较 s的每一位都属于上面哪一组然后一样按照百十个的顺序输出d,如a(1)是语文a(7)是2456,
       a(2)是数学a(8)是178
       a(3)是体育a(9)是09
 如果现在s=297
那么d=语文体育数学
       
  s = MSFlexGrid1.TextMatrix(it, 1)a(1) = a(7) 'a组
a(2) = a(8) 'b组
a(3) = a(9) 'c组
a(4) = a(10) 'd
a(5) = a(11) 'e
a(6) = a(12) 'f
 
temp2 = Trim(s)
For io = 1 To 3
temp = Mid(temp2, io, 1)
If InStr(1, a(1), temp) > 0 Then d = d & a(1)
If InStr(1, a(2), temp) > 0 Then d = d & a(2)
If InStr(1, a(3), temp) > 0 Then d = d & a(3)
If InStr(1, a(4), temp) > 0 Then d = d & a(4)
If InStr(1, a(5), temp) > 0 Then d = d & a(5)
If InStr(1, a(6), temp) > 0 Then d = d & a(6)
Next io
   MSFlexGrid1.TextMatrix(it, h + i) = d
我这么写不对
最后并没有输出名称而是把它的数组都带出来了
这个该如何写