顯示隨機的5個數(shù)
更新時間:2009年05月11日 12:47:32 作者:
求1-100范圍內(nèi)隨機的不同5個數(shù)值
復(fù)制代碼 代碼如下:
@echo off
:: 求1-100范圍內(nèi)隨機的不同5個數(shù)值
:: 生成0-99之間的隨機數(shù)列 R1
::
::
::
@echo off
setlocal EnableDelayedExpansion
:: 初始化順序數(shù)列
for /l %%i in (0,1,99) do (
set rnum%%i=%%i
)
:: 對數(shù)列進行隨機交換
for /l %%i in (0,1,99) do (
set /a rnd=!random! %% 100
call set tmp=%%rnum!rnd!%%
set rnum!rnd!=!rnum%%i!
set rnum%%i=!tmp!
)
set rnum
pause
goto :eof
@echo off
:: Code by JM 2006-1-5 CMD@XP
:begin
cls
set times=0
set count=0
:loop
set /a num=%random%%%99+1
if not defined num%num% (
set num%num%=%num%
set /a count+=1
call echo %%num%%
)
set /a times+=1
if %times% equ 20 (
for /l %%i in (1,1,99) do set num%%i=
set times=0
)
if %count% lss 5 goto loop
pause>nul
goto begin
@echo off
:: Code by JM 2007-1-6 CMD@XP
:: 因為用到了 echo|find 的結(jié)構(gòu),速度比較慢
::
:begin
cls
set count=0
:loop
set /a num=%random%%%100+1
echo %str%|find " %num% ">nul&&goto loop
call set str=%%str%% %num%
set /a count+=1
if %count% lss 5 goto loop
echo %str%
set str=
pause
goto begin
@echo off&setlocal enabledelayedexpansion
::
::
for /l %%a in (1;1;5) do (
set/a b=!random!%%99+1
call :pp !b!
)
goto :eof
:pp
if not defined %1 (set %1=a) else goto loop
echo %1
goto :eof
:loop
set/a b=!random!%%99+1
call :pp !b!
@echo off
::
::
set Max=100
set N=5
:start
cls
echo %time%
set Num=
set Tmp$=
:loop
set /a randomloop=(%random%+%random%+%random%)/3%%%Max%+1
for %%n in (%Tmp$%) do if "%randomloop%" == "%%n" goto loop
call set Tmp$=%%Tmp$%% %randomloop%
set /a Num+=1
set random_%Num%=%randomloop%
if %Num% LSS %N% goto loop
echo %Tmp$%
echo %time%
pause
goto start
exit
@echo off
::
::
:start
cls
set Num=
set Tmp$=
:loop
set /a randomloop=%random%%%99+1
for %%n in (%Tmp$%) do if "%randomloop%" == "%%n" goto loop
call set Tmp$=%%Tmp$%% %randomloop%
set /a Num+=1
set random_%Num%=%randomloop%
if %Num% LSS 5 goto loop
for /l %%n in (1,1,%Num%) do call set /p= %%random_%%n%%<nul
echo.
pause
goto start
exit
相關(guān)文章
Windows Bat腳本實現(xiàn)定時重啟應(yīng)用程序的項目實踐
本文主要介紹了Windows Bat腳本實現(xiàn)定時重啟應(yīng)用程序的項目實踐,文中通過示例代碼介紹的非常詳細(xì),具有一定的參考價值,感興趣的小伙伴們可以參考一下2022-03-03使用winrar打包air程序為exe(包含air運行環(huán)境)
這篇文章主要介紹了使用winrar打包air程序為exe(包含air運行環(huán)境) .,需要的朋友可以參考下2014-10-10批處理中屏蔽錯誤信息 nul 2>nul 的用法 (cmd>nul空格2>nul)
批處理中屏蔽錯誤信息這個 >nul 2>nul 可以屏蔽一切屏幕的輸出可以這樣理解2012-06-06