编一个数字变化函数

有0-9十个号 最初排列 0  1  2  3  4  5  6  7  8  9
位置对应关系是      11  12 13 21 22 23 31 32 33 41
有一组三位号9 2 1 来了，放到前三位
数字排列变成     9  2  1  0  3  4  5  6  7  8
把重复的号去掉，11  12 13 21 22 23 31 32 33 41
位置关系也发生了变化
编一个数字变化函数
--------------------编程问答--------------------

Option Explicit



Private Function x(ByRef b As Variant)

Dim a, i

Dim c(9)

a = Array(11, 12, 13, 21, 22, 23, 31, 32, 33, 41)

For i = 0 To 9

c(i) = a(b(i))

Next

x = c

End Function



Private Sub Command1_Click()

Dim b

Dim c, i

b = Array(9, 2, 1, 0, 3, 4, 5, 6, 7, 8)

c = x(b)

For i = 0 To 9

MsgBox c(i)

Next

End Sub

--------------------编程问答-------------------- 说实话，没有理解你的意思。。。 --------------------编程问答--------------------

引用 2 楼 veron_04 的回复:

说实话，没有理解你的意思。。。

这个正解

补充：VB ,  VBA