作业帮vb中求1000以内7的倍数
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/12 09:50:57
Dimn,x,r,sAsSinglen=2s=0DoWhilen再问：能说一下算法的思路吗？再答：首先1不是素数,就用枚举将2到1000的每个数列举出来,再逐个检验,即从2到n/2一一举例，判断是否能
这个采用枚举算法：枚举的关键：一一列举,逐个检验一一列举：用循环逐个检验：用选择n3=0'存放3的倍数的个数n7=0'存放7的倍数的个数Fori=1To100ifiMod3=0Thenn3=n3+1i
count=0Fori=1To1000IFi%7==0Thencount++Nexti
50/5+50/7-50/35=10+7-1=16个
n以内5或7的倍数之和:PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=5TonIfiMod5=0OriMod7=0ThenSum=Sum+iNextM
1×7＝72×7＝143×7＝214×7＝285×7＝356×7＝427×7＝49
这个是等差数列a1＝7,d＝7a142＝994s＝（7+142）*142/2＝71071
7142128
OptionExplicitPrivateSubForm_Click()Form1.AutoRedraw=TrueClsDimAAsInteger,SuAsBoolean,IAsInteger,JAs
1000/7=142.余61000以内,7的倍数共有142个,它们是：7,14,21,.,980,987,994；也即：7n：n=1,2,.,142.
PrivateSubCommand1_Click()Dimm%,n%Fori=1To100IfiMod3=0Thenm=m+1IfiMod7=0Thenn=n+1NextiPrint"统计1~100中
7+14+21..+994=7X（1+2+3..+142）=7X[1/2X142(142+1)]=.自己算
Functioncalc()dimaasintegerdimbaslongfora=0to100step2b=b+a^2nextacalc=bendfunction这个算法比你的优化一些,如果你想用自
一很简单即时3的倍数也是7的倍数就是说时21的倍数共有：21426384二一样的既是2的倍数,又是3的倍数即是6的倍数,1000除以6得166余4可得共有166个数,最大的就是6乘以166为996三1
7,14,21,28,35,42,49,56~
PrivateSubCommand1_Click()Dimsum,iAsIntegersum=0Fori=0To200-1IfiMod2=0Thensum=sum+iNextiPrintsumEndS
计算器一下啦.13.26.39.53.66.79.92.
714212835424956637077849198105112.后一个数比前一个数多7
PrivateSubCommand1_Click()Dimi%,j3%,j7%Fori=1To100IfiMod3=0Thenj3=j3+1IfiMod7=0Thenj7=j7+1NextPrint"
PrivateSubCommand1_Click()Sum=0Fori=0To9Print10*i+7;Sum=Sum+10*i+7NextiPrintPrint"Sum=";SumEndSu