标题利用计算机进行口算训练
栏目软件操作与技巧
作者江苏省 程斌
发布1992-06-12
10 T=0
15 FOR I=1 TO 10
20 A=INT (RND (1)*100)
30 B=INT (RND (2)*100)
35 IF A<B THEN P=A: A=B:B=P
40 C=INT (4*RND(1)):ON C GOTO 60，70，80
50 D=A+B:A$="+":GOTO 100
60 D=A-B:A$="-":GOTO 100
70 D=A*B:A$="*":GOTO 100
80 IF A/B<>INT (A/B) THEN20
90 D=A/B:A$="/"
100 PRINT A;A$;B;"=";:INPUT X
110 IF X=D THEN T=T+1
130 NEXT I
140 PRINT "Dui:";T，"Cuo;";10-T
150 PRINT"Defen:";10*T:END