Sub 洗牌算法1()
Set doc = CreateObject("htmlfile")
Set Window = doc.parentWindow
Window.execScript "function Shuffle(ary){for(var i=ary.length-1;i>=0;i--){var v=parseInt(Math.random()*(i+1));var tmp=ary[v];ary[v]=ary[i];ary[i]=tmp;}return ary;};var sequence=new Array(54); for(var i=0;i<54;i++ ){sequence[i]=i+1;};var xipai=Shuffle(sequence);", "javascript"
[a1:bb1] = Split(Window.xipai, ",")
End Sub
Sub 洗牌算法2()
With CreateObject("MSScriptControl.ScriptControl")
.Language = "JScript"
.AddCode "function Shuffle(ary){for(var i=ary.length-1;i>=0;i--){var v=parseInt(Math.random()*(i+1));var tmp=ary[v];ary[v]=ary[i];ary[i]=tmp;}return ary;};var sequence=new Array(54); for(var i=0;i<54;i++ ){sequence[i]=i+1;};var xipai=Shuffle(sequence);"
[a1:bb1] = Split(.Eval("xipai"), ",")
End With
End Sub