《VFP练习题套 (14).doc》由会员分享，可在线阅读，更多相关《VFP练习题套 (14).doc（3页珍藏版）》请在金锄头文库上搜索。
第四套1改错CLEARS=0T=1N=0DO WHILE S=70 n=n+1endifendscanthisform.text1.value=nthisform.refresh3设计set talk off*begin*clears=0n=1for i=1 to 100S=S+n/in=-nendfor*end*?Suse progoutappend blankreplace jg with Suseset talk on4填空SET TALK OFFCLEARFOR I=10 TO 99 FOR J=2 TO I-1*found* IF _(1)_ MOD(I,J)=0 EXIT ENDIF ENDFORIF I=J A=INT(I/10)B=MOD(I,10)*found*K=_(2)_ B*10+AFOR P=2 TO K-1 IF K%P=0 EXIT ENDIFENDFORIF K=P ?IENDIF ENDIFENDFORSET TALK ON
