Computer program for drawing lots

Save the following code as XX.bat with Notepad, and double-click to run.

@ echo off & Color 3e & Mode control column =55

Set nab= 1-54.

Title Non-repetitive Random Sampling%

Echo/

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

Echo/

Echo, let's go!

Echo/

Echo (%Naboo%)

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

Echo/

Echo, please enter your name and press enter or press enter directly to draw lots.

echo/& amp； Echo, to stop the lottery, please press q and enter:&; Echo/

setlocal enabledelayedexpansion

Set nbn=%nab:*-=%

Call set nb0=%%nab:-! nbn！ =%%

(For/l %nb0% s, do (

Tel: geths

In position. hs！ =%% s & echo. ! hs！

))& gttem.yky

For /f %%r in ('type tem.yky | sort') do (

Set w = & ampset/p w=

If/I "! w！ ”=="q" goto :end

set/a n+= 1

Echo first! n！ One is:! %%r！ )

: end

del tem.yky

echo/& amp； Echo, the draw is over! Press any key to exit. ...

Pause & gtnul & exit.

:geths

Set hs=%random%

If %hs% goto geths has been defined.