[文本处理] [已解决]用批处理怎么写选择判断题？

@echo off&setlocal enabledelayedexpansion
set n==ABC
for /l %%i in (1,1,3) do call:a %%i
for /F "tokens=2 delims==" %%j in ('set a_') do cls&call:t_%%j&call:p %%j
echo.你答对了3道题中的%b%道题
echo.按任意键公布正确答案：&pause>nul
for /l %%k in (1,1,3) do call:t_%%k&echo.正确答案：!n:~%%k^,1!
pause>nul&exit

:a:用于随机出题
set a=%random%
if "!a_%a%!"=="" (set "a_%a%=%1") else goto:a
goto:eof
:p:用于输入检测
set m=m&set m=&set k=%1
set/p m=请输入答案中的一个字母：
if /i "!n:~%k%,1!"=="!m!" set/a b+=1
goto:eof
:t_1:第一题
echo.第一问题？
echo.答案A
echo.答案B
echo.答案C
echo.答案D
goto:eof
:t_2:第二题
echo.第二问题？
echo.答案A
echo.答案B
echo.答案C
echo.答案D
goto:eof
:t_3:第三题
echo.第三问题？
echo.答案A
echo.答案B
echo.答案C
echo.答案D
复制代码

@echo off&setlocal enabledelayedexpansion
set 'tm_num=1000' 
for /l %%n in (1,1,%tm_num%) do set '_%%n=1'

:loop
set /a  rd=%RANDOM%%%tm_num
if %tm_num% LEQ 1 set 'rd=0'
for /f "skip=%rd%" %%i in ('set _') do (
        if not defined %%i goto :eof
        call :tm%%i
        call :chs !da!&&set /a y+=1
        set '%%i=' & set tm_num-=1
        goto :loop
)
你答对了%y%道题..
goto :eof

:chs [A/B/C/D]
set 'da='
set /p cs=请输入选择答案(大写ABCD):
if  %cs%.==%1. exit /b 0
exit /b 1
goto :eof

:tm_1
set "da=B"
echo. ^
     机动车经【   】登记后，方可上道路行驶。^

   A.道路运输管理机构^

   B.公安机关交通管理部门^

   C.工商部门^

   D.税务部门

goto :eof


:tm_2
::
:::
::
::
goto :eof
..
.....
........
复制代码