请用易语言翻译下面的VB代码信息

Question

Public Function Shift(ByVal lValue As Long, ByVal lNumberOfBitsToShift As Long, ByVal lDirectionToShift As dcShiftDirection) As Long
Const ksCallname As String = "Shift"
On Error GoTo Procedure_Error
Dim LShift As Long

If lDirectionToShift Then 'shift left
LShift = lValue * (2 ^ lNumberOfBitsToShift)
Else 'shift right
LShift = lValue \ (2 ^ lNumberOfBitsToShift)
End If

Procedure_Exit:
Shift = LShift
Exit Function

Procedure_Error:
Err.Raise Err.Number, ksCallname, Err.Description, Err.HelpFile, Err.HelpContext
Resume Procedure_Exit
End Function

Answer 1

公共职能转变（ByVal左值作为长，ByVal lnumberofbitstoshift长，ByVal ldirectiontoshift作为dcshiftdirection）长
const kscallname是字符串“转移”
错误procedure_error
昏暗的LSHIFT长
如果ldirectiontoshift然后左移
LShift =左值*（2 ^ lnumberofbitstoshift）
别人右移
LShift =左值\（2 ^ lnumberofbitstoshift）
最后如果
procedure_exit：
转变= LSHIFT
退出功能
procedure_error：
错误。错误数量，提高。kscallname，描述，err.helpfile，err.helpcontext犯错。
简历procedure_exit
端功能