Function LShift(Value, Shift) Set sc = CreateObject("MSScriptControl.ScriptControl") sc.Language = "JScript" LShift = sc.Eval(Value & "<<" & Shift) End Function Function RShift(Value, Shift) Set sc = CreateObject("MSScriptControl.ScriptControl") sc.Language = "JScript" RShift = sc.Eval(Value & ">>" & Shift) End Function
vbs实现左移右移
最新推荐文章于 2020-08-01 16:34:13 发布