电脑抽奖不重复

用记事本将下面的代码保存为XX.bat，双击运行。

@ echo off & amp彩色3e & amp模式控制列=55

设置nab=1-54

标题非重复随机抽样%

回声/

echo ==========================

回声/

艾可，我们走吧！

回声/

回声^( %纳布% ^)

echo ==========================

回声/

Echo，请输入姓名并回车或直接回车抽签。

echo/& amp；Echo，要停止抽奖，请按Q并输入:&；回声/

setlocal enabledelayedexpansion

设置nbn=%nab:*-=%

呼叫集nb0=%%nab:-！nbn！=%%

(对于(%nb0%，1，%nbn%)中的/L %%s，do(

电话:geths

就位。hs！= % % s & amp回声。！hs！

))& gttem.yky

for /f %%r in('键入tem.yky^|sort')do(

设置w = & ampset/p w=

如果/我”！w！”=="q" goto :end

set/a n+=1

回声第一！n！一个是:！%%r！)

:结束

del tem.yky

echo/& amp；艾可，抽签结束了！按任意键退出。...

暂停& gtnul & amp出口

:geths

集合hs=%random%

如果已定义%hs% goto geths