第四套1 改错CLEARS=0T=1N=0DO WHILE S=70n=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 99FOR J=2 TO I-1*found*IF _(1)_ MOD(I,J)=0EXITENDIFENDFORIF I=J A=INT(I/10)B=MOD(I,10)*found*K=_(2)_ B*10+AFOR P=2 TO K-1IF K%P=0EXITENDIFENDFORIF K=P?IENDIFENDIFENDFORSET TALK ON
