CLS
INPUT n
FOR i = 1 TO n
IF n MOD i = 0 THEN PRINT i; "----"; : PRINT i; "*"; n / i; "="; n
NEXT
  

这么老掉牙的题目还问！
DECLARE SUB fj (k!)
DECLARE FUNCTION isprime! (j!)
CLS
INPUT n
CALL fj((n))
END

SUB fj (k)
    PRINT k; "=";
    i = 2
    DO
      IF k MOD i = 0 THEN
         k = k / i
         IF k = 1 THEN PRINT i ELSE PRINT i; "*";
      END IF
      IF k = 1 THEN EXIT SUB
      IF k MOD i <> 0 THEN
         DO
           i = i + 1
         LOOP UNTIL isprime(i) = 1
      END IF
    LOOP
END SUB

FUNCTION isprime (j)
IF j = 1 THEN isprime = 0: EXIT FUNCTION
FOR i = 2 TO INT(SQR(j))
    IF j MOD i = 0 THEN isprime = 0: EXIT FUNCTION
NEXT i
isprime = 1
END FUNCTION

好像QB不支持控制台，要不然偶做一个QB的OJ给大家玩玩