请教老师帮忙看下if判断真假逻辑

12111683

Sub find_combination()
    Dim arr() As Variant
    Dim i As Long, j As Integer, k As Integer
    Dim sum As Double, closest_sum As Double
    closest_sum = 0
    ReDim arr(1 To 18)
    For i = 1 To 18
        arr(i) = Cells(i, 1).Value
    Next i
    For i = 1 To 2 ^ 18 - 1
        sum = 0
        For j = 0 To 17
            If i And 2 ^ j Then
                sum = sum + arr(j + 1)
            End If
        Next j
        If sum >= 4000 And (closest_sum = 0 Or Abs(sum - 4000) < Abs(closest_sum - 4000)) Then
            closest_sum = sum
            For k = 1 To 18
                If i And 2 ^ (k - 1) Then
                    Cells(k, 2).Value = arr(k)
                Else
                    Cells(k, 2).Value = ""
                End If
            Next k
        End If
    Next i
End Sub

上面是GPT给的一段代码，主要是用来统计哪些数据相加最接近4000。
这个位置的代码逻辑看不懂，请老师帮解答下
If i And 2 ^ j Then
当i=1  2 ^ j=1的时候  会执行
当i=1  2 ^ j=其他，不执行
当i=2  2 ^ j=2，执行
当i=2  2 ^ j=其他，不执行
当i=3  2 ^ j=1的时候，执行
当i=3  2 ^ j=2的时候，执行
当i=4  2 ^ j=4的时候，执行

问下这个if a and b 是怎么判断的

咩咩咩2012

看不懂啊，一起学

杨建营

and 应该是两个条件都满足了才执行下一条语句。

半百

AND 两边的数字转换成二进制，然后比较相同位置的是否都是1，是，则取该位置的值，有相同的就相加。
比如2 AND 5，二进制分别为10、101，相同位置没有同时为1的，则结果为0；2 AND 6，二进制分别为10、110，（倒数）第二位同为1，则结果为2。又比如10 AND 8、10 AND 9，二进制分别为1010、1000，1010、1001，都是（倒数）第4位同为1，则它们的结果都是8。又如23 AND 8，二进制分别为10111、1000，没有一位同为1的，则结果为0。

grf1973

楼上讲得很通透了