vbs 数组问题。想了一上午也没想出来，难道是我真的老了么？

calvin_wang

加入有2个数组

a = array(1,2,3,4,5)
b = array(2,4)

b是a的子集，现想求b的补集，即 c = (1,3,5)该用什么算法？？

bagwell333

hi, LZ，俺不是学数学的，vbscript也不熟悉。
这样可以？
a = Array(1, 2, 3, 4, 5)
b = Array(2, 4)
Dim b_isIn
b_isIn = False
For j = 0 To UBound(a)
    For i = 0 To UBound(b)
        If a(j) = b(i) Then
            b_isIn = True
            Exit For
        End If
    Next

    If b_isIn = False Then
        MsgBox (a(j) & " is a result")
    Else
        b_isIn = False
    End If
Next

在msgbox那里换成其它操作。

calvin_wang

恩～～方法可行～～受教了～～～

calvin_wang

谢谢2楼～～～

bagwell333

哈哈，不客气。

bagwell333

如果数组长度很大，效率肯定不行。
如果保证为整数数组，可以先把数组排序，然后二分发查找会好些。
当然如果有第三方程序库最方便，可惜俺不熟vbscipt，正在了解中。

今天有雾

楼主上的说的不错，如果太长的，ＱＴＰ可能运行的时候，会出现报错的，如果结合实践中的内容，考虑更好的办法

calvin_wang

数组确实很长～～效率确实很慢～～

啥叫2分法？～～

我不是计算机系的，没怎么接触过编程～～～

bagwell333

就是排序的一种，比如说一个整形数组，已经排序。一个数要确定它是否在数组中或按大小正确插入，不需要遍历数组中所有元素，每次查找范围缩小1/2。

比如目标数组为1,2,5,7,8,10,11....
你要找9的插入位置，那么首先判断数组中间元素与9的大小，如果大，那么下次循环就在后半部分中递归循环，如果小就在前半部分继续递归循环。
比如第一次判断，9比数组的中间元素7大，那么下次循环就在8，10，11之间继续做二分判断。

其实很简单，算法的代码网上有很多哈。