📄 ba49.htm
字号:
<HTML>
<HEAD>
<TITLE>操作考试评卷程序</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<BODY topMargin=4 vLink=#0000ff>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height="52">
<DIV align=center>
<CENTER>
<table border=0 cellpadding=0 cellspacing=0 width=679 align="center">
<tbody>
<tr>
<td width=200 height="59">
</TD></TR><!--msnavigation--></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr><!--msnavigation--><td valign=top height="123">
<div align=center>
<table border=1 bordercolor=#b9d9ff cellpadding=0 cellspacing=0
class=table width=755>
<center>
<tr>
<td width="100%" height="3">
<div align="center"> <strong><big>操作考试评卷程序</big></strong></span></div>
</td>
</tr>
<tr>
<td
width="100%" class="unnamed1" height="124">
<div align="left">
<p align="center"> </p>
<p> <font size="-1" face="宋体">在中、英文录入、字表处理和数据库等操作考试中，评卷是一项繁重的工作；笔者使用QBASIC编写了如下程序，让您从繁重的评卷工作中摆脱出来。<br>
一、基本原理：使用QBASIC语言，将待评文本文件的内容与标准文本文件的内容，逐字进行比较，通过计算正确率得出评定结果。评定的结果(即为得分)保留了两位小数，并且即在屏幕上显示评定结果，又将结果写入PJ.DOC文件中，供查阅和打印输出。<br>
二、操作说明：①程序的运行──先启动汉字系统，再在QBASIC环境下运行本程序，然后根据程序提示，依次输入评定类别、标准文本文件名和待评文本文件名，即完成一次评定。②程序中的标准文本文件是指按照操作考试试题所做的标准答案文件，待评文本文件是指考生所做的答案文件；原则上都要求以文本方式存盘(在出题时事先加以考虑)，对于WPS文书文件，可使用WPS的文件服务功能将其转换成文本文件。<br>
三、程序清单：<br>
SCREEN 12:CLS:num = 1<br>
KEY OFF:KEY(6) ON:KEY(7) ON<br>
ON ERROR GOTO anyerror<br>
ON KEY(6) GOSUB begin<br>
ON KEY(7) GOSUB endd<br>
begin:<br>
PLAY “MBMNT150L4O3CDECCDECEFG2EFG2"<br>
VIEW (1, 1)－(636, 476), 1, 4<br>
VIEW (25, 9)－(615, 42), 0, 2<br>
LINE (9, 29)－(582, 30), 8, B<br>
LINE (581, 3)－(582, 28), 8, B<br>
LINE (9, 3)－(581, 3), 15, B<br>
LINE (9, 3)－(9, 28), 15, B<br>
VIEW (25, 424)－(615, 452), 0, 7<br>
VIEW (40, 88)－(570, 113), 0, 7<br>
PALETTE 0, 256 ＊ 36:PALETTE 8, 0<br>
LOCATE 2, 22:COLOR 14<br>
PRINT “计 算 机 操 作 考 试 评 卷 程序"<br>
LOCATE 25, 16<br>
PRINT “F6:重新开始 F7(N):结束评定回车或任意键:继续评定"<br>
LOCATE 6, 8:COLOR 15<br>
INPUT “请输入评定类别(E:英文录入或数据库回车:汉字录入或字表处理)"; e＄<br>
VIEW (100, 123)－(480, 148), 0, 7<br>
LOCATE 8, 15<br>
INPUT “请输入标准文本文件名"; bzname＄<br>
VIEW (100, 158)－(480, 183), 0, 7<br>
LOCATE 10, 15<br>
INPUT “请输入待评文本文件名"; tyname＄<br>
OPEN bzname＄ FOR INPUT AS ＃1<br>
OPEN tyname＄ FOR INPUT AS ＃2<br>
OPEN “pj.doc" FOR APPEND AS ＃3<br>
k = 0:m = 0<br>
qt1 = LOF(1):qt2 = LOF(2)<br>
a＄ = “":b＄ = “"<br>
DO WHILE NOT EOF(1)<br>
LINE INPUT ＃1, a1＄<br>
a＄ = a＄ ＋ a1＄<br>
LOOP<br>
DO WHILE NOT EOF(2)<br>
LINE INPUT ＃2, b1＄<br>
b＄ = b＄ ＋ b1＄<br>
LOOP<br>
l = LEN(a＄)<br>
IF qt1 < qt2 THEN b＄ = MID＄(b＄, 1, l)<br>
IF e＄ = “e" OR e＄ =“E" THEN<br>
FOR k = 1 TO l<br>
aa＄ = MID＄(a＄, k, 1)<br>
bb＄ = MID＄(b＄, k, 1)<br>
IF bb＄ <> aa＄ THEN m = m ＋ 1<br>
NEXT k<br>
f = INT((qt1 － m) / qt1 ＊ 100 ＊ 100) / 100<br>
ELSE<br>
FOR k = 1 TO l STEP 2<br>
aa＄ = MID＄(a＄, k, 2)<br>
bb＄ = MID＄(b＄, k, 2)<br>
IF bb＄ <> aa＄ THEN m = m ＋ 1<br>
NEXT k<br>
f = INT((qt1 / 2 － m) / (qt1 / 2) ＊ 100 ＊ 100) / 100<br>
END IF<br>
PRINT ＃3,“第"; num; “个考生", “错误数为="; m, “分数(正确率)=";
f; “(％)"<br>
VIEW (100, 193)－(480, 218), 0, 7<br>
VIEW (100, 231)－(480, 255), 0, 7<br>
VIEW (100, 265)－(480, 290), 0, 7<br>
VIEW (100, 300)－(480, 325), 0, 7<br>
LOCATE 12, 15:COLOR 14<br>
IF e＄ = “e" OR e＄ = “E" THEN<br>
PRINT “错误数和两文件相差字数为:", m; “,"; ABS(qt1 － qt2)<br>
ELSE<br>
PRINT “错误数和两文件相差字数为:", m; “,"; INT(ABS(qt1 － qt2)
/ 2)<br>
END IF<br>
LOCATE 14, 15<br>
IF e＄ = “e" OR e＄ = “E" THEN<br>
PRINT“标准文件和待阅文件长度为:"; qt1;“,"; qt2<br>
ELSE<br>
PRINT “标准文件和待阅文件长度为:"; INT(qt1 / 2); “,"; INT(qt2
/ 2)<br>
END IF<br>
LOCATE 16, 15<br>
PRINT “分 数 ?正 确 率 ） 为 :"; f; “分(％)"<br>
num = num ＋ 1<br>
CLOSE ＃1, ＃2, ＃3<br>
LOCATE 18, 15<br>
COLOR 15<br>
INPUT “是 否 继 续 评 卷 (Y/N) "; m＄<br>
IF m＄ = “n" OR m＄ = “N" THEN<br>
END<br>
ELSE<br>
GOTO begin<br>
END IF<br>
endd:<br>
END<br>
anyerror:<br>
VIEW (102, 342)－(479, 409), 0, 4<br>
LOCATE 21, 18<br>
INPUT “ 文件名出错或没有找到!回车继续"; n＄<br>
CLOSE ＃1, ＃2, ＃3<br>
RESUME begin <br>
(湖南省邵东县委党校 黄小成 422800)</font>
</div>
</td>
</tr>
</center>
<tr>
<td width="100%" class="unnamed1">
<p align=right><a href="ba48.htm">（上一页）</a>---<a href="ba50.htm">（下一页）</a></p>
</td>
</tr>
<tr>
<td width="100%" class="unnamed1">
</div>
</td>
</tr>
<!--msnavigation--></tbody>
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -