我不叫小Ma,我的英文名就是Mato(Matody),把它变成过去式就是Matodied了.

你如果实在用不了SUB,只能用子程序了,程序如下:
CLS
INPUT n
DIM a(n)
total = 0: t = 1: s = 0
DO
  a(t) = a(t) + 1: s = s + a(t)
  IF s >= n THEN
     IF s = n THEN GOSUB pdhw
     s = s - a(t): t = t - 1: s = s - a(t)
  ELSE
     t = t + 1: a(t) = 0
  END IF
LOOP UNTIL t = 0
PRINT "Total:", total
END

pdhw:
    f = 1
    FOR i = 1 TO INT(t / 2)
        IF a(i) <> a(t + 1 - i) THEN f = 0: EXIT FOR
    NEXT i
    IF f = 1 THEN
       total = total + 1
       FOR i = 1 TO t - 1
           PRINT a(i); "+";
       NEXT i: PRINT a(t)
    END IF
RETURN

再次感谢！我已经用子程序修改了。