-
本版专家分：710结帖率 100% -
比如定义一个数组
Dim a(10) as Long
For i = 1 to 5
a (i) = 1
Next i
For i = 6 to 10
a (i) = 2
Next i
于是数组a的元素有五个1五个2，现在希望只保留两个元素，一个1一个2，请问如何实现？
-
本版专家分：10723
-
- 黄花 2005年8月 VB大版内专家分月排行榜第二
-
-
Function Distinct(a() As String) As String()
Dim i As Long
Dim ii As Long
Dim b() As String
Dim bExist As Boolean
ReDim b(0) As String
For i = LBound(a) To UBound(a)
bExist = False
For ii = LBound(a) To UBound(a)
If b(ii) = a(i) Then bExist = True: Exit For
Next
If bExist = False Then
ReDim Preserve b(UBound(b) + 1) As String
b(UBound(b)) = a(i)
End If
Next
Distinct = b
End Function
-
本版专家分：10723
-
- 黄花 2005年8月 VB大版内专家分月排行榜第二
-
-
把string 该成Long 看错了
-
本版专家分：10723
-
- 黄花 2005年8月 VB大版内专家分月排行榜第二
-
-
返回值中的数组(0)是无效的
Function Distinct(a() As Long) As Long()
Dim i As Long
Dim ii As Long
Dim b() As Long
Dim bExist As Boolean
ReDim b(0) As Long
For i = LBound(a) To UBound(a)
bExist = False
For ii = LBound(b) To UBound(b)
If b(ii) = a(i) Then bExist = True: Exit For
Next
If bExist = False Then
ReDim Preserve b(UBound(b) + 1) As Long
b(UBound(b)) = a(i)
End If
Next
Distinct = b
End Function
-
本版专家分：2384 -
for i =1 to k
for j =i+1 to k-1
if a(i)=a(j) then
for m=j+1 to k
a(m-1)=a(m)
next m
k=k-1
endif
next j
next i
a(1)……a（k）
没调试过，自己改改。不是很懂vb
-
本版专家分：11822
-
- 红花 2005年5月 VB大版内专家分月排行榜第一
-
- 黄花 2005年6月 VB大版内专家分月排行榜第二
-
- 蓝花 2005年7月 VB大版内专家分月排行榜第三
-
-
再开辟一个数组，记录存在的项，如果重复，不记录
-
本版专家分：5646 -
DooDu(杜霖:I want,I can.(MmMVP马甲)(准备闭关……)) ( ) 信誉：100
方法好
-
本版专家分：91339
-
- 进士 2001年 总版技术专家分年内排行榜第五
-
-
微软MVP
2005年9月 荣获微软MVP称号
2008年10月 荣获微软MVP称号
2007年10月 荣获微软MVP称号
2006年10月 荣获微软MVP称号
2004年9月 荣获微软MVP称号
2003年9月 荣获微软MVP称号
2002年9月 荣获微软MVP称号
-
-
红花
2005年7月 VB大版内专家分月排行榜第一
2005年6月 VB大版内专家分月排行榜第一
2001年5月 VB大版内专家分月排行榜第一
2001年4月 VB大版内专家分月排行榜第一
2001年3月 VB大版内专家分月排行榜第一
-
-
黄花
2005年9月 VB大版内专家分月排行榜第二
2001年2月 VB大版内专家分月排行榜第二
-
-
创建一个collection，然后把数组中的数作为key往里面加，因为key不能重复。所以如果有重复的加入会出错，你用一个on error resume next继续，最后出来的collection里面就是不重复的全部数字了。
