'位左移

 Function SHL(nSource , n ) 

    SHL = nSource * 2 ^ n

End Function

'位右移

 Function SHR(nSource , n ) 

    SHR = nSource / 2 ^ n

End Function

'获得指定的位

 Function GetBits(nSource , n )  

    GetBits = nSource And 2 ^ n

End Function

'设置指定的位

 Function SetBits(nSource , n ) 

    SetBits = nSource Or 2 ^ n

End Function

'清除指定的位

 Function ResetBits(nSource , n ) 

    ResetBits = nSource And Not 2 ^ n

End Function