首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

比较两个数组除去项的有关问题

2012-04-30 
比较两个数组除去项的问题设有数组a()和b(),如果a()中的值可以在b()找到,则去掉该a()。[解决办法]VB codeDi

比较两个数组除去项的问题
设有数组a()和b(),如果a()中的值可以在b()找到,则去掉该a()。

[解决办法]

VB code
Dim col As New CollectionDim i As LongDim j As LongDim have As BooleanFor i = 0 To UBound(a)    have = False    For j = 0 To UBound(b)        If a(i) = b(j) Then have = True : Exit For    Next    If Not(have) Then col.Add(a(i))NextRedim a(0 To col.Count - 1)For i = 0 To UBound(a)    a(i) = col(i)Next
[解决办法]
楼主的需求是保持 a() 中的元素不存在于 b() 中吗?

可以借助一个不可见的 ListBox 来缓存:

VB code
For i = LBound(a) To UBound(a)    For j = LBound(b) To UBound(b)        If a(i) = b(j) Then Exit For    Next j    If j > UBound(b) Then List1.AddItem a(i)Next iRedim a(LBound(a) + List1.ListCount - 1)For i = 0 To List1.ListCount - 1    a(i + LBound(a)) = List1.List(i)Next i 

热点排行