VF求出10到50之间能被7整除的所以数之和-搜答案-拍题作业网

settalkoffclearfori=1to100ifi%3=0.and.i%7=0?iendifendforsettalkon

//编程求出1000到3000之间能被7、11、17同时整除的整数的平均值,并输出(结果保留两 #include <stdio.h>void main(){i

intFUN(intm,int*a){inti,n=0;for(i=1;i

现在命令窗口输入：modifycommandqh让后在弹出了窗口中输入：clearstore0tosfori=8to100ifmod(i,8)=0s=s+iendifendfor"10到100之间的所

SETTALKOFFS1=0S2=1FORi=1TO100IFmod(i,2)=1S1=S1+iELSES2=S2*iENDIFENDFORs1,s2再问：亲，我把上面的复制到了软件里为什么会显示“找

inti;ints=0;for(i=2;i

clearfori=500to1000ifi%26=0?iendifendfo

PrivateSubCommand1_Click()Dimi,j,sumAsIntegerFori=1To100j=iMod21Ifj=0Thensum=sum+i^2NextiPrintsum'打印

fun(){for(inti=1;i

X一直不变,不就成死循环了吗.

clears=0fori=10to1000ifmod(i,7)=0andmod(i,3)0s=s+iendifendfor"10~1000之间能被7整除但不能被3整除的数据和是：",sreturn结果

inti;*n=0;for(i=1;i=1000;i++)if((i%7==0&&i%11!=0)||(i%7!=0&&i%11==0)){*a=i;*n=*n+1;a++;}

settalkoffs=0fori=1to50ifi%2=0.or.i%3=0s=s+ii&&显示能被2或3整除的数endifendfor"s=",s&&显示最后结论usenewtable6repl结

cleari=0dowhilei

clears=0fori=100to700a1=int(i/100)a2=int((i-a1*100)/10)a3=i-a1*100-a2*10k=a1+a2+a3ifk%5=0s=s+1endife

cleardimea(300)m=1fori=1to1000ifi%7=0andi%11!=0a(m)=im=m+1endififi%11=0andi%7!=0a(m)=im=m+1endifendf

12^48-1=(2^24+1)(2^24-1)=(2^24+1)(2^12+1)(2^12-1)=(2^24+1)(2^12+1)(2^6+1)(2^6-1)=(2^24+1)(2^12+1)(2^

inputtoNFORi=1tonifmod(i,7)=0?iENDifENDFo

简单,程序如下:fori=1to100ifi%7=0endifendfor行了.

Fori=1To100If(Mod(i,7)=0OrMOd(i,11)=0)ANDi77?iendifEndFor**100以内能被7和11同时整队的只有77,如果不用这个,可以用(Mod(i,7)=