?? 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 + -