中国DOS联盟

@echo off
setlocal enabledelayedexpansion
:::::::::::::::::::::::::::     猜数字游戏   :::::::::::::::::::::::::::
:::::::::::::::::::::::::::{s11ss  2007-9-25}:::::::::::::::::::::::::::
:Begin
set/a counter=1
:GetStr
echo 请输入一个四位数[各位各不相同，第一个数字可以为0]:
set/p str=
if "%str%"=="" goto :GetStr
call set one=%%str:~3,1%%
if "%one%" equ "" (echo 位数一定为四！& goto :GetStr)
call set one=%%str:~4,1%%
if not "%one%" equ "" (echo 位数一定为四！& goto :GetStr)
set/a len=0
:IsAllNum
call set word=%%str:~%len%,1%%
if not "%word%"=="" (
        set isnum=False
        for /l %%a in (0,1,9) do (
                if "%word%"=="%%a" (
                        set/a len+=1
                        set isnum=True               
                        goto :IsAllNum
                )
        )
)
if "%isnum%"=="False" (echo 怎么会有非数字出现呢? & goto :GetStr)
set state=chkinput
call :CheckSameNum n %str%
if not !counter! equ 1 goto :CheckAnswer
goto :CreateRandom
:CheckSameNum
set s=%2
for /l %%a in (0,1,3) do call set %1%%a=%%s:~%%a,1%%
set/a i=0
:ci
set/a j=!i!+1
:cj
if !%1%j%! equ !%1%i%! (
        if !state! equ chkinput (
        echo 各位数字要各不相同！& goto :GetStr
        ) else (goto :CreateRandom)
)
set/a j+=1
if not !j! gtr 3 goto :cj
set/a i+=1
if not !i! gtr 2 goto :ci
goto :eof
:CreateRandom
set/a answer=%random%
call set one=%%answer:~3,1%%
if "%one%" equ "" (goto :CreateRandom)
call set one=%%answer:~4,1%%
if not "%one%" equ "" (goto :CreateRandom)
set state=chkrandom
call :CheckSameNum y %answer%
::下一句可以显示出答案：
::echo %answer%
:CheckAnswer
set/a aa=0,bb=0
if not !counter! equ 11 (
        for /l %%a in (0,1,3) do (
                for /l %%i in (0,1,3) do (
                        if !n%%i! equ !y%%a! (
                                if %%i equ %%a (
                                        set/a aa+=1
                                ) else (set/a bb+=1)
                        )               
                )
        )
        set r%counter%=A!aa!B!bb!
        set str%counter%=!str!
        for /l %%a in (1,1,!counter!) do echo 第%%a次猜测：!str%%a!，结果：!r%%a!
        set/a remain=10-!counter!
        echo 共猜了!counter!次，还剩!remain!次。
        set/a counter+=1
        if not !aa! equ 4 (
                goto :GetStr
        ) else (
                echo 答对了，答案就是!str%counter%!，中秋节快乐！
                goto :Replay       
                )
)
echo 已经猜了10次！
:Replay
set/p q=要重玩么？(y/n)
if not "%q%" equ "y" (
        if not "%q%" equ "Y" (
                echo 按任意键退出...
                pause>nul
                goto :eof
        )
)
goto :Begin

dim a,b,cs,s
msgbox "游戏方法：" _
& vbcrlf & "    电脑随机产生一个四位十进制数字（开头的可以为0），猜10次。" _
& vbcrlf & "    每次返回AaBb" _
& vbcrlf & "    A表示数字正确并且位置正确" _
& vbcrlf & "    B表示数字正确但位置不正确" _
& vbcrlf & "    如：假设要猜的数字是1234" _
& vbcrlf & "    如果游戏者猜0134即返回A2B1（3、4为A，1为B）",4096+32,"猜数游戏"
do
    a=0:b=0:cs=0:sm=""
    while not pd(s)
    randomize
        s1=Int(10 * Rnd)
        s2=Int(10 * Rnd)
        s3=Int(10 * Rnd)
        s4=Int(10 * Rnd)
        s=s1 & s2 & s3 & s4
    wend
    'msgbox s
    do until cs=10
        do
            n=inputbox(sm & "请输入猜测数:（还有" & 10-cs & "次机会）","猜数游戏")
            if n=false then wscript.quit
            if len(n)<>4 then
                msgbox "位数不正确，请重新输入！",16+4096,"错误"
            elseif pdsz(n)=false then
                msgbox "输入的不是数字，请重新输入！",16+4096,"错误"
            elseif not pd(n) then
                msgbox "不能有重复的数字，请重新输入！",16+4096,"错误"
            else
                cs=cs+1:exit do
            end if
        loop
        call jg(n)
        if cs=10 and n<>s then msgbox "电脑随机数为：" & s & vbcrlf & "很遗憾,没有猜对,继续努力!",4096,"结果"
        if n=s then msgbox "电脑随机数为：" & s & vbcrlf & "第" & cs & "次猜测：" & n & vbcrlf & "结果：" & "A" & a & "B" & b,4096+48,"恭喜你，猜对了！":exit do
        sm=sm & "第" & cs & "次猜测：" & n & vbcrlf & "结果：" & "A" & a & "B" & b & vbcrlf & vbcrlf
    loop
    s=""
loop until msgbox("是否再来一遍？",vbyesno,"游戏结束")=vbno
function pd(a)
     my1=mid(a,1,1)
     my2=mid(a,2,1)
     my3=mid(a,3,1)
     my4=mid(a,4,1)
     pd=my1<>my2 and my1<>my3 and my1<>my4 and my2<>my3 and my2<>my4 and my3<>my4
end function

sub jg(r)
     a=0:b=0
     for i=1 to 4
         m=mid(r,i,1)
         h=mid(s,i,1)
         if m=h then
             a=a+1
         else
             if instr(s,m)<>0 then b=b+1
         end if
     next
end sub

function pdsz(a)
    l=len(a)
    for i=1 to l
        if isNumeric(mid(a,i,1)) then
            pdsz=true
        else
            pdsz=false:exit function
        end if
    next
end function