在QB里,默认的数组(未经严格定义),默认下标为 0-10
也就是说未定义过的字符串数组 c$( )
从 c$(0) 到 c$(10) 都是合法的, c$(11) 就越界了.

非常感谢，回答的很准确，这些语句的潜规则。。。不过也怪我看书不仔细。

你的程序不是最好的，干吗非要a　MOD b=0? 10以内的除法应该能算出来的，比如：
2/4=0.5
3/8=0.375
……
不过b不要是7或者9，免得搞出来循环小数更麻烦。
也不要a-b>0，负数是可以算出来的．
程序改进如下：
CLS
DIM c$(4)
c$(1) = "+": c$(2) = "-": c$(3) = "*": c$(4) = CHR$(246)
FOR i = 1 TO 10
    d = INT(RND * 4) + 1
    DO
      a = INT(RND * 11)
      b = INT(RND * 11)
      IF d = 4 THEN
         IF b <> 0 AND b <> 7 AND b <> 9 THEN EXIT DO
      ELSE
         EXIT DO
      END IF
    LOOP
    PRINT a; c$(d); b; "=";
    INPUT s
    SELECT CASE d
    CASE 1: IF a + b = s THEN PRINT "GOOD": t = t + 10
    CASE 2: IF a - b = s THEN PRINT "GOOD": t = t + 10
    CASE 3: IF a * b = s THEN PRINT "GOOD": t = t + 10
    CASE 4: IF a / b = s THEN PRINT "GOOD": t = t + 10
    END SELECT
NEXT i
PRINT "score:"; t
END