质因数分解

clear
input "请输入一个正整数=" to m
store m to n,n1
x=2
s=1
y=""
do while s<n1
    if mod(n,x)=0
       n=n/x
       s=s*x
       y=y+transform(x)+"*"
    else
        x=x+1
    endif
enddo
messagebox(transform(s)+"="+left(y,len(y)-1))