Question

vb中给一数字去掉重复和排序

在一个text中输入了如下的一串数字：
如：
0122564873
最大不过9
要求对他们去掉重复的。并且要求从小到大排序。结果在这个text中显示出来。有没有高手来试试。

Answer 1

dim oldstr as string ,newstr as string
oldstr=trim(text1.text)
for i = 0 to 9
if instr(oldstr,i) >0 then newstr=newstr & cstr(i)
next
text1.text = newstr

Answer 2

function GetValueString(s as string) as string
dim flag(9) as string
dim i as long
s=trim(s)
for i=1 to len(s)
flag(mid(s,i,1))=mid(s,i,1)
next
GetValueString=join(flag,vbnullstring)
end function

'调用:
text1=GetValueString(text1)

Answer 3

Private Sub Command1_Click()
Dim x$, z$, y%
x = Text1
For y = 0 To 9
If InStr(x, y) > 0 Then z = z & y
Next
Text1 = z
End Sub

Answer 4

Option Base 1
Private Sub Command1_Click()
Dim a(), s$
s = InputBox("输入数据")
n = Len(s)
ReDim a(n)
For i = 1 To n
a(i) = Val(Mid(s, i, 1))
Next i
'以上程序：输入并提取数据，把数据放入数组中
For i = 1 To n
For j = 1 To n - 1
If a(j) > a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If

Next j
Next i
'以上程序：数据排序
Print a(1);
For i = 2 To n
For j = 1 To i - 1
If a(i) = a(j) Then Exit For
Next j
If j >= i Then Print a(i);
Next i
'以上程序：去掉重复的并打印
End Sub
思路：先排序，排序后再删除重复的，然后打印