用VB做1000以内所有能被3和7 整除的数的和
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/13 20:50:18
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