想要多简单
是要一句就搞定

容易理解的。

前一个帖子中有参考代码，看了吗？

没看明白

是不是要这样子的效果？

Clear
? Factors(128)


Function Factors(X As Integer)
    Local I As Integer
    Local cooresponding_factors As String
    Factors = 1
    corresponding_factors = Transform(X)
    For I = 2 To Sqrt(X)
        If X % I = 0
            Factors = Transform(Factors) + ", " + Transform(I)
            If I <> X / I
                corresponding_factors = Transform(X / I) + ", " + corresponding_factors
            Endif
        Endif  && X
    Endfor && I
    If x <> 1
        Factors = Factors + ", " + corresponding_factors
    Endif
    Return Factors
Endfunc

这个简化一下

Clear
=Factors(128)

Function Factors(lnNum As Integer)
    For X = 2 To lnNum - 1
        If lnNum % X = 0
            ? X
        Endif
    Endfor
    ? lnNum
Endfunc