check.bas

来自「一个basic语言的解释器」· BAS 代码 · 共 21 行

DIM i AS INTEGER
DIM Num1 AS INTEGER
DIM Num2 AS INTEGER
DIM Answer AS INTEGER
DIM Score AS INTEGER

FOR i = 1 TO 5
    Num1 = RND(10)
    Num2 = RND(10)
    PRINT i; " : "; Num1; "*"; Num2; "=";
    INPUT Answer
    IF Answer = Num1 * Num2 THEN
        PRINT "    Right!"
        Score = Score + 20
    ELSE
        PRINT "    Wrong!"
    END IF
NEXT i
PRINT
PRINT "Your Score: "; Score