写了一个较长的，可能会有什么BUG……
对输入几乎没有什么判断，输入时要小心不要输入错误了；
无奈的是论坛将制表符替换为空格了，各位自行将黑体的制表符替换为真正的制表符吧
@echo off
setlocal enabledelayedexpansion
:START
cls
set "y=1"
set "x=1"
set "cy=1"
set "cx=1"
set /p ny=输入行数：
set /p nx=输入列数：
:MODE
set choice=<nul
echo 1：连续输入
echo 2：单独输入
set /p "choice=请选择："
if "%choice%"=="1" (call :PRINT & goto :CIP)
if "%choice%"=="2" (call :PRINT & goto :DIP)
goto :CIP
:CIP
set choice=<nul
set /p "choice=输入数值(%y%行%x%列),Q:退出输入"
set choice|findstr /r /i "" 1>nul 2>nul || goto :CIP
if /i "%choice%"=="Q" (call :PRINT & goto :CAL)
set "%y%'%x%=%choice%"
if %x%==%nx% if %y%==%ny% (call :PRINT & goto :CAL)
if %x%==%nx% (set /a "y+=1" & set "x=1") else set /a "x+=1"
call :PRINT
goto :CIP
:DIP
call :PRINT
echo 输入相关信息,Q退出输入
set /p "choice=输入行："
if /i "%choice%"=="Q" (call :PRINT & goto :CAL) else (set "y=%choice%" & set choice=<nul)
set /p "choice=输入列："
if /i "%choice%"=="Q" (call :PRINT & goto :CAL) else (set "x=%choice%" & set choice=<nul)
set /p "choice=输入值："
if /i "%choice%"=="Q" (call :PRINT & goto :CAL) else (set "%y%'%x%=%choice%" & set choice=<nul)
goto :DIP
:PRINT
cls
set /p=行\列<nul
for /l %%i in (1,1,%nx%) do set /p=制表符^|%%i^|<nul
echo.
for /l %%y in (1,1,%ny%) do (
set /p=^|%%y^|<nul
for /l %%x in (1,1,%nx%) do (
if %%x==%nx% (echo+制表符!%%y'%%x!) else set /p=制表符!%%y'%%x!<nul
)
)
goto :EOF
:CAL
echo.
set count=0
for /l %%y in (1,1,%ny%) do (
for /l %%x in (1,1,%nx%) do (
if not "!%%y'%%x!"=="" set /a "ysum+=!%%y'%%x!
)
echo 第%%y行的和为:!ysum!
set ysum=0
)
echo.
set count=0
for /l %%x in (1,1,%nx%) do (
for /l %%y in (1,1,%ny%) do (
if not "!%%y'%%x!"=="" set /a "xsum+=!%%y'%%x!
)
echo 第%%x列的和为:!xsum!
set xsum=0
)
echo.
set count=0
for /l %%x in (1,1,%nx%) do (
for /l %%y in (1,1,%ny%) do (
if not "!%%y'%%x!"=="" set /a "sum=!sum!+!%%y'%%x!*!%%y'%%x!
)
)
echo 平方和为:!sum!
echo.
set choice=<nul
set /p "choice=返回输入(R)?重新输入(N)?"
if /i "%choice%"=="R" goto :MODE
if /i "%choice%"=="N" goto :START
[ Last edited by dikex on 2007-6-27 at 09:44 PM ]
正在潜水修练的批处理小白
