用VB做1000以内所有能被3和7 整除的数的和

privatesubform_click()dimnasinteger,iasintegerfori=7to1000ifimod7=0thenn=n+1nextprintnendsu

这一类问题可以采用枚举的方法来实现：枚举算法的特点8个字,一一列举,逐个检验：往往外面用循环来实现一一列举,在循环中嵌套选择,来实现逐个检验；dimiasintegerfori=100To999选择结

PrivateSubCommand1_Click()DimiAsLongDimsAsStringFori=1To1000DoEventsIf(iMod37)=0Thens=s&CStr(i)&""Ne

所有3的倍数的和：3+6+9+12+15+...+999=（3+999）*333/2=166833所有15的倍数的和：15+30+45+60+75+...+990=（15+990）*66/2=3316

PrivateSubCommand1_Click()DimaAsIntegerDimiAsIntegerOpen"out.dat"ForOutputAs#1Fori=1To1000IfiMod357=

PrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegerDimcAsIntegerDimiAsInteger,jAsIntegera=Text1b=Te

OptionExplicitOptionBase1PrivateSubForm_Click()Dimi%,j%,k%,n%Dima()AsIntegern=0Fori=1To1000k=0Forj=1

dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext

dimi%fori=1to100ifimod3=1andimod5=2thenprintinext再问：你确定是这个么。再答：确定以及肯定结果是这些，你看有什么问题223752678297再问：还有7

count=0Fori=1To1000IFi%7==0Thencount++Nexti

被5整除的数有一个特点,分为两类,一类是可以被10整除,如10,20……,另一类就是不能被10整除但是能被5整除,如5,15……dimcount1aslong‘先看n整除以10等于多少,比如n是10的

PrivateSubCommand1_Click()Fori=1To100Forj=1ToiFork=1TojIfi^2=j^2+k^2ThenPrinti;j;kNextkNextjNextiEnd

PrivateSubCommand1_Click()Fori=2To1000Forj=2ToiIfiModj=0ThenExitForNextjIfj=iThenPrinti;NextiEndSu

dimiaslong,jaslong,kaslongfori=1to1000forj=ito1000fork=jto1000ifi*i+j*j=k*kthenprinti,":",j,":",knex

PrivateSubCommand1_Click()Fori=2000To9999IfTrim(Str(i))=Trim(StrReverse(Str(i)))ThenPrintStr(i)EndIf

PrivateSubCommand1_Click()Dimi%Text1.Text=""Fori=1To1000IfiMod17=0AndiMod37=0ThenText1.Text=Text1.Te

在界面上放一个按钮就行了,然后将下面的代码复制到代码窗口.PrivateSubCommand1_Click()Me.Clsi=0Forj=1To500IfjMod17=0ThenIfi=5Theni=

QBSASIC语言：LETn=1000LETsum=0WHILEn>0IFnMOD3=0THENsum=sum+nn=n-1ENDPRINTSUM

凡是能被3和5整除的正整数都是15的倍数,由于1000=15×66+10,因此1000以内一共有66个这样的正整数.下面开始设计流程图:

Dima%,b%,c%,s1,s2,sPrivateSubForm_Click()Fori=1To1000IfiMod7=0Thena=a+1s1=s1+iEndIfIfiMod17=0Thenb=b