这一段干嘛用呢

[那该多好啊！！！]

Sub change_boolen()
        Try
            For i = 10 To 17
                X(i) = False
            Next
            Dim TT As String
            TT = HEX_to_BIN(DEC_to_HEX(VW168 Mod 256))
            For I = 0 To Len(TT) - 1
                If I <= 17 Then
                    X(I + 10) = Mid(TT, Len(TT) - I, 1)
                Else
                    X(I + 12) = Mid(TT, Len(TT) - I, 1)
                End If
            Next


            '=============================================
            TT = HEX_to_BIN(DEC_to_HEX(VW168 \ 256))
            For i = 0 To 7
                X(i) = False
            Next
            For I = 0 To Len(TT) - 1
                If I <= 7 Then
                    X(I) = Mid(TT, Len(TT) - I, 1)
                Else
                    X(I + 2) = Mid(TT, Len(TT) - I, 1)
                End If
            Next


            '================================================
            For i = 30 To 37
                X(i) = False
            Next
            TT = HEX_to_BIN(DEC_to_HEX(VW170 Mod 256))
            For I = 0 To Len(TT) - 1
                If I <= 17 Then
                    X(I + 30) = Mid(TT, Len(TT) - I, 1)
                Else
                    X(I + 32) = Mid(TT, Len(TT) - I, 1)
                End If
            Next

[那该多好啊！！！]

[Z343012090]

[舉杯邀明月]

不就是标识变量VW168的值的“二进制”位，哪些位是0、哪些位是1吗！ “标识”的结果，在数组 X( )中。 虽然代码不完整，也还是很容易的看得出来。

[舉杯邀明月]

变量VW168　和　变量VW170