DECLARE SUB fj (k!)
DECLARE FUNCTION isprime! (j!)
CLS
INPUT n, m
FOR i = n TO m
    CALL fj((i))
NEXT i
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

强，果然厉害！

CLS
DIM A(10000)
2 INPUT m, N: IF m = 1 OR m = 0 THEN 2
FOR Q = m TO N: N = Q: PRINT #2, Q; "="; : S$ = "": S = 0
FOR I = 2 TO Q
FOR J = 2 TO SQR(I)
IF I MOD J = 0 THEN 1
NEXT J
S = S + 1: A(S) = I
1 NEXT I
DO
FOR I = 1 TO S
IF N MOD A(I) = 0 THEN N = N / A(I): S$ = S$ + STR$(A(I)) + " *": GOTO 10
NEXT I
10 LOOP UNTIL N = 1
PRINT  LEFT$(S$, LEN(S$) - 1)
NEXT Q
快给我加分,你的同学

也要给我加.

Matodied  在输入N和M的时候有问题

有什么问题?除非是你自己输错了.

给你的建议:
[quote]IF k MOD i = 0 THEN[/quote]
改成 do until k mod i
[quote] LOOP UNTIL isprime(i) = 1 [/quote]
改成  loop until i>=k
然后把那个检测质数的函数删掉,看一下结果有什么不同的.

哥们，看看我的方法：

CLS
INPUT N
S=1
DO
S=S+1
IF N MOD S=0 THEN 
 N=N\S
 S=S-1
 PRINT S+1;"*";
END IF
LOOP UNTIL N/(S+1)=1
PRINT S+1
END

Cls
Input n, m
For k = n To m
  Print k;"=";: x = k: a$ = ""
  Do
    For i = 2 To x
      If x Mod i = 0 Then a$ = a$ + Str$(i) + " *": x = x / i: Exit For
    Next i
  Loop Until x = 1
  Print Left$(a$, Len(a$) - 1)
Next k
End

啰嗦点：
1 Cls
Input n, m
If n > m Then Swap n, m
If n = 1 Then 
  Print "1 not a Prime number and 1 not a Composite number, too."
  Print "Prees any key to start again"
  p$ = Input$(1)
  Goto 1
End If
For k = n To m
  Print k;"=";: x = k: a$ = ""
  Do
    For i = 2 To x
      If x Mod i = 0 Then a$ = a$ + Str$(i) + "*": x = x / i: Exit For
    Next i
  Loop Until x = 1
  Print Left$(a$, Len(a$) - 1)
Next k
End