一个菜问题。。在线等！！！！！！！！！！！

[zcm123]

一个算法，我记不清了，在推算又太费时间。 呵呵--!


将一个存在重复值得数组变成一个无重复值的数组，相同的数据取一个就行了。
拜托了~_~

[csdnHelp]

首先排序，然后在取！！思路就这样，Code自己写

[zcm123]

*_* 告诉我代码吧

[csdnHelp]

自己写吧！！很简单的！！

[sunmoonn]

dim a as string
dim b[x] as int
dim c as string
dim i as int
dim j as int
j=0
a=数组第一个数值
b[i]=数组第一个数值
for i=0 to 数组长度
if a<>数组[i] then
b[j]=数组[i]
j=j+1
end if
next i
这样可能可以分出来吧~~~！VB里的数组，没用过，所以出错别怪我啊。。

[leolan]

Option Explicit

Private Sub Form_Load()
Dim s() As String
Dim c As New Collection
Dim i As Integer

ReDim s(20)
For i = 0 To 20
s(i) = Chr(65 + i Mod 5)
Next

On Error Resume Next
For i = 0 To UBound(s)
c.Add s(i), s(i)
Next

ReDim s(c.Count - 1)
For i = 0 To UBound(s)
s(i) = c.Item(i + 1)
Next
Set c = Nothing
End Sub

[leolan]

Option Explicit

Private Sub Form_Load()
Dim s() As String
Dim c As New Collection
Dim i As Integer

ReDim s(20)
For i = 0 To 20
s(i) = Chr(65 + i Mod 5)
Next

On Error Resume Next
For i = 0 To UBound(s)
c.Add s(i), s(i)
Next

ReDim s(c.Count - 1)
For i = 0 To UBound(s)
s(i) = c.Item(i + 1)
Next
Set c = Nothing
End Sub

[csdnHelp]

不排序，肯定出错◎！！◎

[射天狼]

Private Sub Command1_Click()
On Error Resume Next
Dim aryTmp As Variant, i As Long, con As New Collection

aryTmp = Array("1", "1", "2", "3", "3", "4", "5", "5")
For i = 0 To UBound(aryTmp) - 1
con.Add aryTmp(i), aryTmp(i)
Next

For i = 0 To con.Count
MsgBox con.Item(i)
Next
End Sub

利用集合关键字的唯一性来做!!!