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实现左移右移
最新推荐文章于 2024-07-04 19:58:12 发布

4086

被折叠的 条评论
为什么被折叠?



