标题计算机自动生成试卷

　　如果家有计算机，可在屏幕上显示和做题，由计算机来自动阅卷和评分。将程序改动一下，即可实现。
　　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