CLS
INPUT "N = ", n
s$ = "2"
FOR rs = 1 TO n
  a$ = LTRIM$(RTRIM$(s$))
  b$ = "7"
  la = LEN(a$): lb = LEN(b$)
  REDIM a(la + lb), b(la + lb), c(la + lb)
  FOR i = 1 TO la + lb: a(i) = 0: b(i) = 0: c(i) = 0: NEXT
  FOR i = 1 TO la
    a(i) = VAL(MID$(a$, la + 1 - i, 1))
  NEXT i
  FOR i = 1 TO lb
    b(i) = VAL(MID$(b$, lb + 1 - i, 1))
  NEXT i
  FOR i = 1 TO la
    FOR J = 1 TO lb
      s = a(i) * b(J)
      w = i + J - 1
      c(w) = c(w) + s MOD 10
      c(w + 1) = c(w + 1) + s \ 10 + c(w) \ 10
      c(w) = c(w) MOD 10
  NEXT J, i
  h = la + lb
  DO WHILE c(h) = 0 AND h > 1: h = h - 1: LOOP
  s$ = ""
  FOR i = h TO 1 STEP -1
    s$ = s$ + LTRIM$(RTRIM$(STR$(c(i))))
  NEXT i
NEXT rs
PRINT s$
END

发现规律很好解决

资料：[url=http://baike.baidu.com/view/1899324.htm]http://baike.baidu.com/view/1899324.htm[/url]

如此
CLS
INPUT N
DIM A(1000)
A(1) = 2
FOR I = 1 TO N
  C = 0
  FOR J = 1 TO 1000
    X = A(J) * 7 + C
    C = X \ 10
    A(J) = X MOD 10
  NEXT J
NEXT I
K = 1000
DO WHILE A(K) = 0
  K = K - 1
LOOP
FOR I = K TO 1 STEP -1
  PRINT USING "#"; A(I);
NEXT I

给分

我真是一个傻瓜。谁能告诉我什么是“鼠算遗题”？

上网查

现在有些人在这里提问题，却不给别人分，太....

同意

CLS
INPUT N
DIM A(1000)
A(1) = 2
FOR I = 1 TO N
  C = 0
  FOR J = 1 TO 1000
    X = A(J) * 7 + C
    C = X \ 10
    A(J) = X MOD 10
  NEXT J
NEXT I
K = 1000
DO WHILE A(K) = 0
  K = K - 1
LOOP
FOR I = K TO 1 STEP -1
  PRINT USING "#"; A(I);
NEXT I