VB如何删了text1.text中有重复的数字

来源：百度知道 编辑：UC知道 时间：2024/05/16 18:20:16
VB如何删了text1.text中有重复的数字:
如text中有10，30，50．30．20，30这几个数字～
实现：10，30，50，20
谢谢你的回答～

Private Sub Command1_Click()
Dim temp() As String
Dim t(3) As Integer
temp = Split(Text1.Text, ",")

Text2.Text = ""
For i = 0 To UBound(temp)
If InStr(Text2.Text, temp(i) & ",") = 0 Then
Text2.Text = Text2.Text + temp(i) & ","
End If
Next
Text2.Text = Left(Text2.Text, Len(Text2.Text) - 1)
End Sub

=========================
添加两个TEXTBOX,一个COMMAND BUTTON.
在TEXT1内输入10,30,50,30,20,30(切记标点符号要英文半角的,或者和SPLIT函数的第二个参数相同的符号)
点击按钮,TEXT2内即为所得
PS:分太少啦。。。都没有诚意的说。