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