计算机自动生成试卷

Author: 山东胡莹 Date: 1994-01-07

        如果家有计算机,可在屏幕上显示和做题,由计算机来自动阅卷和评分。将程序改动一下,即可实现。
        15  let M=1
        16  CLS:PRINT:PRINT"打印儿童智力测验五十题"
        20  PRINT:PRINT:INPUT"请输入试卷编号:";N
        22  IF N=0  THEN  END
        25  RANDOMIZE(N)
        35  LPRINT  TAB(20);"儿童智力测验五十题"
        42  LPRINT  TAB(18);"&&&&&&&&&&&&&&&&&&&"
        43  LPRINT
        45  LPRINT  TAB(20);"姓名:";TAB(35);"试卷编号:";N;TAB(50);"成绩:"
        48  LPRINT
        50  FOR I=1  TO  50
        110  GOSUB  600
        120  LET  A=X
        130  GOSUB  600
        140  IF X>A  THEN  130
        150  LET  B=X
        160  GOSUB  700
        170  ON D GOSUB  800，820
        180  IF M=1  THEN  230
        190  IF M=2  THEN  240
        200  IF M=3  THEN  250
        210  IF M=4  THEN  260
        220  IF M=5  THEN  270
        225  IF M=6  THEN  280
        230  LPRINT  TAB(5);A;A$;B;"=";:M=M+1;GOTO  280
        240  LPRINT  TAB(20);A;A$;"=";:M=M+1;GOTO  280
        250  LPRINT  TAB(35);A;A$;B;"=";:M=M+1;GOTO  280
        260  LPRINT  TAB(50);A;A$;B;"=";:M=M+1;GOTO  280
        270  LPRINT  TAB(65);A;A$;B;"=";:M=M+1;GOTO  275
        275  LPRINT:M=1
        280  NEXT I
        290  GOTO  20
        600  LET  X=INT(100*RND(1)+1)
        620  RETURN
        700  LET  D=INT(2*RND(1)+1)
        720  RETURN
        800  A$="-"
        810  RETURN
        820  A$="+"
        830  RETURN