DECLARE SUB pri ()
CLS
DIM SHARED t
INPUT n
DIM SHARED a(n)
t = 1: s = 1: a(t) = 1
DO
  a(t) = a(t) + 1: s = s * a(t)
  IF s >= n THEN
     IF s = n AND t > 1 THEN pri
     s = s / a(t): t = t - 1
     IF t = 0 THEN EXIT DO
     s = s / a(t)
  ELSE
     t = t + 1: a(t) = a(t - 1) - 1
  END IF
LOOP UNTIL t = 0
END

SUB pri
    FOR i = 1 TO t - 1: PRINT a(i); "*"; : NEXT i: PRINT a(t)
END SUB

头上也太长了吧

CLS
INPUT n
x = n
PRINT n; "=";
FOR i = 2 TO x - 1: IF n MOD i = 0 THEN PRINT i; "*"; : EXIT FOR
NEXT i
n = n \ i
10 FOR i = 2 TO x - 1
IF n MOD i = 0 THEN PRINT i; : EXIT FOR
NEXT i
n = n \ i
IF n <> 1 THEN PRINT "*"; : GOTO 10

你到底给不给分?这可是我想了十几天才做出来的!

[em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9]