临江佳苑房价:求一个用VB做的分解因式的程序或代码。(最好有注释)

来源:百度文库 编辑:中科新闻网 时间:2024/04/28 20:42:08

'n为你输入进去的数
e = n
DIM a(16383)
p = 2
i = 1
DO
IF n MOD p = 0 THEN
n = n / p
d(i) = p
i = i + 1
ELSE
p = p + 1
END IF
LOOP UNTIL p > e / 2
IF i = 1 THEN
PRINT e; "is a prime."
ELSE
PRINT e; "="; d(1);
FOR j = 2 TO i - 1
PRINT "*"; d(j);
NEXT j
END IF