<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）