vb 字符串重复问题

Question

s=一个3为数实数如589
aa表示这个数组名称 a=一个数组 如123
bb表示这个数组名称 b=一个数组 如5890
cc表示这个数组名称 c=一个数组 如467 数组之间没有重复的数字
dd表示这个数组名称 d=一个数组
ee表示这个数组名称 e=一个数组
ff表示这个数组名称 f=一个数组
求d=
效果判断s当中的数字都和那几组重复了并算出重复个数然后重复组的名称
按上面的例子s=589 那么d=3bb
如s=285 那么d=1aa2bb
如s=184 那么d=1aa1bb1cc
* 如s=188 那么d=1aa2bb
这个该如何写

Answer 1

给你写个思路，供你参考：
Private Sub Command1_Click()
Dim a(1 To 3) As Integer, b(1 To 4) As Integer, c(1 To 3) As Integer
Dim i As Integer, s As Integer, t As Integer, d As String, temp As Integer, te As Integer
a(1) = 1: a(2) = 2: a(3) = 3
b(1) = 5: b(2) = 8: b(3) = 9: b(4) = 0
c(1) = 4: c(2) = 6: c(3) = 7
s = 184
temp = s
t = 0
Do While temp <> 0
te = temp Mod 10
temp = temp \ 10
For i = 1 To 3
If te = a(i) Then
t = t + 1
Exit For
End If
Next i
Loop
If t <> 0 Then
d = d + Trim(Str(t)) + "aa"
End If

temp = s
t = 0
Do While temp <> 0
te = temp Mod 10
temp = temp \ 10
For i = 1 To 4
If te = b(i) Then
t = t + 1
Exit For
End If
Next i
Loop
If t <> 0 Then
d = d + Trim(Str(t)) + "bb"
End If

temp = s
t = 0
Do While temp <> 0
te = temp Mod 10
temp = temp \ 10
For i = 1 To 3
If te = c(i) Then
t = t + 1
Exit For
End If
Next i
Loop
If t <> 0 Then
d = d + Trim(Str(t)) + "cc"
End If
Debug.Print d
End Sub

Answer 2

描述不清楚........判断s当中的数字都和那几组重复了并算出重复个数然后重复组的名称
定义aa bb........???