微信公众号 
图码生活

每天发布有五花八门的文章,各种有趣的知识等,期待您的订阅与参与
电脑报 1992-2001 十年文章全集
电脑报 1992-2001 十年文章全集
包含从 1992 年 - 2001 年间,两万余篇期刊文章,查询最少输入两个字符
随便看看
读取中
读取中
标题介绍一个录入水平测试程序
栏目软件操作与技巧
作者湖北 魏天申
发布1993-11-05
  1 CLS:PRINT:PRINT
  1 PRINT"这是一个考查录入水平的程序"
  2 PRINT"它能自动统计录入的字数和"
  3 PRINT"敲错键的键数及敲键的准确率"
  4 PRINT
  6 PRINT "1)测试三分钟2)测试五分钟"
  7 PRINT " "
  8 PRINT "3)测试十分钟SPACE 4)用丨计时"
  9 PRINT " "
  10 PRINT "5)退出测试":PRINT
  11INPUT"请选择......";G
  12 IF G< 1 O R G> 5 THEN 0
  14 O N G GO TO 18,20,22,23
  16 END
  18 T$ = "00:03:00":GO TO 100
  20 T$ = "00:05:00":GO TO 100
  22 T$ = "00:10:00"
  23 T$ = "10:00:00":GO TO 100
  24 PRINT" "
  100 PRINT " "
  110 INPUT"请输入被测试的文件名:";F$ :
  M= 0:K= 0
  120 O PEN F$ FO R INPUT AS# 1
  122 A$ = "00:00:00"
  124 TIME$ = A$
  125 PRINT" "
  130 LINE INPUT # 1,A$
  134 IF TIME$ > = T$ O R EO F(1) THEN CLO SE # 1:GO TO 1300
  140 N= LEN(A$ )
  145 PRINT A$
  150 FOR X= 1 TO N
  160 B$ = MID$ (A$ ,X,I)
  170 C$ = INKEY$
  175 IF TIME $ > = TY O R C$ = "丨" THEN CLO SE # 1:GO TO 1300
  180 IF C$ = " " THEN 170
  181 IF B$ < > C$ THEN M= M+1: BEEP:GO TO 17
  185 PRINT C$ ;
  190 K= K+ 1
  1100 NEXT X
  1102 PRINT
  1103 PRINT
  1105 GO TO 130
  1110 PRINT
  1300 PRINT
  1301 PRINT "时间= ";THE$
  1305 PRINT"共录字数= ";K
  1310 PRINT"共改次数= ";M
  1315 PRINT "正确率= ";K/ (K+ M)
  1320 PRINT " "
  1330 INPUT"重新测试请按回车键";P$
  1340 IF P$ = " "THEN 0
  1350 END
  程序中110 语句执行时,屏幕显示:请输入被测 试的文件名,这时录入员可将被测试的文件名由键 盘输入。不过这被测试的文件应是文本文件且要事 先输入微机存盘。
  测试过程中,若录入有错,微机则会报鸣。这时 需看屏幕,再录入正确的字符。测试时间到,屏幕会 自动显示测试结果。在录入过程中若想终止,可按键 “丨”,则也可显示测试结果.
  (湖北 魏天申)