1.
CLS
x = 1949
DO
  f = -1
  SELECT CASE 1984 - x
    CASE 12
      i = i + 1
      x = x + 12
    CASE 3
      i = i + 2
      x = x + 3
    CASE 9
      i = i + 3
      x = x + 9
    CASE 5
      i = i + 4
      x = x + 5
    CASE ELSE
      i = i + 4
      f = 0
      x = x + 5
  END SELECT
LOOP UNTIL f
PRINT i
END
2001的把1984-x换成2001-x就行了

2.

CLS
s = 0
FOR i = 2 TO 63
  FOR j = 1 TO 2002 - i
    IF (j + j + i - 1) * i / 2 = 2002 THEN s = s + 1
  NEXT j
NEXT i
PRINT s
END