一个数据对应表，如何写成一个高效率的函数？

Question

感谢xslslx帮我找出规律
写出这样的对应表··· 个 位：0=gb 1=gf 2=gj 3=gn 4=gr 5=gv 6=gz 7=g5 8=hb 9=hf
 百 位：0=q 1=r 2=s 3=t 4=u 5=v 6=w 7=x 8=y 9=z
 千 位：0=mb 1=mj 2=mr 3=mz 4=nb 5=nj 6=nr 7=nz 8=ob 9=oj
 万 位：0=a 1=c 2=e 3=g 4=i 5=k 6=m 7=o 8=q 9=s
十万位：0=yd 1=yt 2=zd 3=zt 4=2d 5=2t 6=3d 7=3t 8=4d 9=4t
百万位：0=ga 1=ge 2=gi 3=gm 4=gq 5=gu 6=gy 7=g4 8=ha 9=he
千万位：0=q 1=r 2=s 3=t 4=u 5=v 6=w 7=x 8=y 9=z
  亿位：0=mb 1=mj 2=mr 3=mz 4=nb 5=nj 6=nr 7=nz 8=ob 9=oj这是个加密的对应表··比如 12345678 根据表对应关系，加密后就是mjsgm2dknrxhbmj s  gm 2d   k  nr  x  hb    (具体演示）
1  2  3   4   5   6  7   8如何把这样的对应表，写成一个高效率的程序？？？直接输入8位数字，就可以得出加密后的字符串····

Answer 1

自己写了个函数，不知道效率如何···请多多指教！Private Function Cnum(num As String) As String
    Dim ID(7)
    ID(0) = Array("mb", "mj", "mr", "mz", "nb", "nj", "nr", "nz", "ob", "oj")
    ID(1) = Array("q", "r", "s", "t", "u", "v", "w", "x", "y", "z")
    ID(2) = Array("ga", "ge", "gi", "gm", "gq", "gu", "gy", "g4", "ha", "he")
    ID(3) = Array("yd", "yt", "zd", "zt", "2d", "2t", "3d", "3t", "4d", "4t")
    ID(4) = Array("a", "c", "e", "g", "i", "k", "m", "o", "q", "s")
    ID(5) = Array("mb", "mj", "mr", "mz", "nb", "nj", "nr", "nz", "ob", "oj")
    ID(6) = Array("q", "r", "s", "t", "u", "v", "w", "x", "y", "z")
    ID(7) = Array("gb", "gf", "gj", "gn", "gr", "gv", "gz", "g5", "hb", "hf")    For i = 0 To 7        Cnum = Cnum + ID(i)(Val(Mid(num, i + 1, 1)))    Next iEnd Function
Private Sub Command1_Click()
    MsgBox Cnum("12345678")
End Sub测试正确可行····不知是否有更高效率的方法？？？？？？？？？？？？？

Answer 2

UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP