题目是 输出1000以内的完数及其因子
我的程序是
dime a(1000)
for i=1 to 1000
m=1
s=0
k=1
j=1
do while j<m
if m%j=0
s=s+j
a(k)=j
k=k+1
endif
j=j+1
enddo
if s!=0 and s=m
j=1
?'因子是: '
do while j<k
?? a(j),' '
j=j+1
enddo
?'完数是',i
?
endif
endfor
点击运行后，系统没有提示说哪里错误，但是也毫无反应，界面上什么也没有，请问这是怎么回事？

是在VFP的系统下运行么？内容应该显示的其主窗口中。

是啊
但是无论我怎么点击程序运行  还是没有反应

do while j<m
你自己不会看看j、m分别是什么？这循环能进入吗？

是啊，后面的IF条件也是无法满足，所以什么信息都不会输出。
if s!=0 and s=m

有逻辑错误，就不要说“程序没有错误”，没有错误就不需要问人了。

循环条件无法满足，根本就进不了循环！试试这个：
FOR i=1 to 1000
    s=0
    n="因子是："
    FOR j=1 to int(i/2)
        IF i%j=0      
            s=s+j
            n=n+TRANSFORM(j)+"  "
        ENDIF   
    NEXT   
        IF s=i   
               ?n+" 完数是："+TRANSFORM(i)  
        ENDIF
NEXT

学会用Debugger跟踪程序的流程，自然知道是怎么回事。

谢谢各位了  问题已经解决了 刚接触VF  所以会犯些低级错误