主题:(急)帮儿子问的一道题,请问这个错在哪里了?另外请问有QB的讨论群吗?
一个小学生的数学自测题程序,题目共有10个,数字和运算符均随机产生,数字范围限于个位数,运算符限于+、-、*、/。
DIM AS SINGLE I,J,A,B,C,D,E,N,F
FOR I=1 TO 10
A=INT(RND*9)+1
B=INT(RND*9)+1
D=INT(RND*3)+1
IF D=1 THEN F=1:? A;"+";B;"=";
INPUT N
C=A+B
IF C=N THEN E=E+10:? "对的!" ELSE ? "错的!"
IF D=2 THEN F=1: ? A;"-";B;"=";
INPUT N
C=A-B
IF F=1 THEN END IF
IF C=N THEN E=E+10:? "对的!" ELSE ? "错的!"
IF D=3 THEN F=1: ? A;"*";B;"=";
INPUT N
C=A*B
IF F=1 THEN END IF
IF C=N THEN E=E+10:? "对的!" ELSE ? "错的!"
IF A<B THEN SWAP A,B
IF D=4 THEN ? A;"/";B;"=";
INPUT N
C=A/B
IF F=1 THEN END IF
IF C=N THEN E=E+10:? "对的!" ELSE ? "错的!"
NEXT I
? "得分:";E
SLEEP
END
DIM AS SINGLE I,J,A,B,C,D,E,N,F
FOR I=1 TO 10
A=INT(RND*9)+1
B=INT(RND*9)+1
D=INT(RND*3)+1
IF D=1 THEN F=1:? A;"+";B;"=";
INPUT N
C=A+B
IF C=N THEN E=E+10:? "对的!" ELSE ? "错的!"
IF D=2 THEN F=1: ? A;"-";B;"=";
INPUT N
C=A-B
IF F=1 THEN END IF
IF C=N THEN E=E+10:? "对的!" ELSE ? "错的!"
IF D=3 THEN F=1: ? A;"*";B;"=";
INPUT N
C=A*B
IF F=1 THEN END IF
IF C=N THEN E=E+10:? "对的!" ELSE ? "错的!"
IF A<B THEN SWAP A,B
IF D=4 THEN ? A;"/";B;"=";
INPUT N
C=A/B
IF F=1 THEN END IF
IF C=N THEN E=E+10:? "对的!" ELSE ? "错的!"
NEXT I
? "得分:";E
SLEEP
END