如何判断一个二进制数中哪几位数为 “ 1 ” （按方向判断）？

把二进制数转为文本,然后循环判断某位是不是"1",应该可以吧?

   dim  Str ,i

    Str = CStr(B)'B为二进制数
    For i = Len(Str) To 1 Step -1
        If Mid(Str, i, 1) = "1" Then
            St = St & ";" & Len(Str) - i + 1
        End If
    Next i
    debug.print Mid(St, 2)'这就是结果