Question

vb 删除重复数字

例如 文本框里随便输入这样的几个数组，用分号隔开，每个分号间的算一个数组
790126;302491;621907;176023;207614;
把每个数组里的数按从小到大排列，重复的数组只保留一个，譬如790126和621907从小到排列后都是012679，只保留一个即可。完成后，每个数组占一行的输出
012679
012349
012367
012467
求高手给写个完整的代码，谢谢
补充一点，把整理后的结果在另外一个文本框里输出，麻烦高手在给修改一下代码

Answer 1

Private Sub Command1_Click()
bbb = Split(Text1.Text, ";")
For i = 0 To UBound(bbb) - 1
For j = 0 To 9
If InStr(bbb(i), CStr(j)) Then kkk = kkk & j
Next j
If InStr(ddd, kkk & " ") = 0 Then
ddd = ddd & kkk & " "
Text2.Text = Text2.Text & kkk & vbCrLf
End If
kkk = ""
Next i
End Sub

Answer 2

对数组进行排列。