VB去除一个字符串中重复的字符串
我写了一个函数，去关于去除重复字符串的，但是处理出来的结果是错误的，有哪位高手指点一下
需要这样处理：
传进来一个字符串，
比如"000001,000001,000001",最后返回"000001";
比如"000001,000002,000001",最后返回"000001,000002";
比如"000001,000001,000002",最后返回"000001,000002";
等等，就是重复的字符串合为一个，不重复的就保留，而且字符串之间用,号隔开
VB code:
'去除重复字符串
Public Function RemoveRepeat(ByVal AStr As String) As String
Dim arrTemp() As String
Dim I As Long
Dim J As Long
Dim LStr As String
LStr = ""
arrTemp = Split(AStr, ",")
For I = 0 To UBound(arrTemp)
For J = I + 1 To UBound(arrTemp)
If arrTemp(I) = arrTemp(J) Then
arrTemp(J) = ""
End If
Next J
Next I
For I = 0 To UBound(arrTemp)
If arrTemp(I) <> "" Then
LStr = LStr & arrTemp(I)
If I < UBound(arrTemp) Then
LStr = LStr & ","
End If
End If
Next I
RemoveRepeat = LStr
End Function
我对VB代码不是很熟，不知道可以怎么处理
Public Function RemoveRepeat(ByVal AStr As String) As String
相关问答：
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
第一次接触CrystalReport
急寻找Vb.net Access 通过查询出的数据输出到CrystalReport的例子.
有的朋友麻烦发来学习.多谢!
跟你的要求差不多，参考一下：
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
刚接触vb6.0，有些摸不到的感觉，敬请各位大虾给点建议！！！
不会吧，推荐学习.NET。顺便推荐实用代码网站http://bingning.net/free/source/index.html。
如果没基础 就用易语言吧 中文编程呢 代码都是中文 ......
