高手都哪儿去了啊？只看不回复算什么啊，靠！！！[em27][em27][em27]

CLS:DIM score(3):s=0
score(1)=10:score(2)=5:score(3)=2
RANDOMIZE TIMER
FOR i=1 TO 10
    a=INT(RND*10)
    b=INT(RND*10)
    PRINT a;"+";b;"=";
    FOR j=1 TO 3
        INPUT x
        IF x=a+b THEN PRINT"OK!":s=s+score(j):GOTO 1
    NEXT j
    PRINT "Losed, you miss 3 chances!*_*!"
1   
NEXT i
PRINT:PRINT "You score is";s
END

靠什么？你自己长脑袋干什么用的

你讲的话让我很不爽！！！[em27][em27][em27][em27][em27][em27][em27][em27][em27][em27][em27][em27][em27][em27][em27][em27][em27][em26][em26][em26]

CLS
RANDOMIZE TIMER
FOR I = 1 TO 10
F = INT(RND * 4 + 1)
10 S1 = INT(RND * 10)
20 S2 = INT(RND * 10): IF S2 = 0 THEN 20
IF F = 2 AND S1 < S2 THEN 10
IF F = 4 AND S1 MOD S2 <> 0 THEN 10
PRINT S1;
SELECT CASE F
CASE 1: PRINT "+"; : Q = S1 + S2
CASE 2: PRINT "-"; : Q = S1 - S2
CASE 3: PRINT "*"; : Q = S1 * S2
CASE 4: PRINT "/"; : Q = S1 / S2
END SELECT
PRINT S2; "=";:INPUT N:E=1
WHILE N<>Q AND E<=3:INPUT N:WEND
IF E<=2 THEN S=S+10/E
IF E=3 THEN S=S+2
NEXT I
PRINT "De Fen:"; S
IF S = 100 THEN PRINT "Very Good!" ELSE PRINT "Ji Xu Nu Li!"
END
虽然有点麻烦，但比Matodied的更加完善一点..................

CLS
RANDOMIZE TIMER
FOR I = 1 TO 10
F = INT(RND * 4 + 1)
10 S1 = INT(RND * 10)
20 S2 = INT(RND * 10): IF S2 = 0 THEN 20
IF F = 2 AND S1 < S2 THEN 10
IF F = 4 AND S1 MOD S2 <> 0 THEN 10
PRINT S1;
SELECT CASE F
CASE 1: PRINT "+"; : Q = S1 + S2
CASE 2: PRINT "-"; : Q = S1 - S2
CASE 3: PRINT "*"; : Q = S1 * S2
CASE 4: PRINT "/"; : Q = S1 / S2
END SELECT
PRINT S2; "=";:INPUT N:E=1
WHILE N<>Q AND E<=3:INPUT N:WEND
IF E<=2 THEN S=S+10/E
IF E=3 THEN S=S+2
NEXT I
PRINT "De Fen:"; S
IF S = 100 THEN PRINT "Very Good!" ELSE PRINT "Ji Xu Nu Li!"
END