<ScriptLanguage =“ VBScript”>
'aoher:奔腾的心
'QQ:7180001
'日期:2008-01-17
ClassMshift
privatem_lpower2(31)
publicFunctionrshift(byvallthis,byvallbits)
Onorresumenext
init
如果(lbits <= 0),则
rshift = lthis
Elseif(lbits> 63)
'..错误...
Elseif(LBIT> 31)
rshift = 0
别的
if(lthisandm_lpower2(31 lbits))= m_lpower2(31 lbits)
rshift =(lthisand(m_lpower2(31-lbits)-1))*m_lpower2(lbits)或
m_lpower2(31)
别的
rshift =(lthisand(m_lpower2(31-lbits)-1))*m_lpower2(lbits)
Endif
Endif
最终功能
publicFunctionlshift(byvallthis,byvallbits)
Onorresumenext
init
如果(lbits <= 0),则
lshift = lthis
Elseif(lbits> 63)
'...错误...
Elseif(LBIT> 31)
lshift = 0
别的
如果(lthisandm_lpower2(31))= m_lpower2(31)