vb求50以内自然数对个数

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

具体的语言已经忘了.可以提供的是思路.s=m*nIf语句找出m和n中的小项,输入a,另一值输入b.用ForFromTo语句枚举从1到根号a的所有数,用If语句筛选因子（mod取余＝零）并输入c,然后I

Dimn,x,r,sAsSinglen=2s=0DoWhilen再问：能说一下算法的思路吗？再答：首先1不是素数,就用枚举将2到1000的每个数列举出来,再逐个检验,即从2到n/2一一举例，判断是否能

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

首先2,4位没1位又不算所以只要搜索3位就可以了beginfori:=100to999doif(imod10)=(idiv100)then{判断回文数｝begin｛判断素数｝j:=3;repeatt:

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

最大98,最小2(98-2)/4+1=25个

DimiAsLongDimCountAsLongFori=1To100If(iMod3=0)And(iMod2=0)ThenCount=Count+1Debug.PrintiEndIfNextMsgB

CLEARSETTALKOFFs=0input"输入一个自然数:"ton"5的倍数有:"FORi=1TOnIFi%5=0s=s+1ENDIFNEXT"5的倍数有",s,"个"SETtalkon

PrivateSubForm_load()DimiAsIntegerDimjAsIntegerDimxAsIntegerFori=2To10000f=0'f用来标识是否为素数Forj=2ToInt(S

PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------

PrivateSubCommand1_Click()Dimi,sAsIntegers=0Fori=1To100IfiMod3=0OriMod7=0Thens=s+1EndIfNextiPrintsEn

OptionExplicitPrivateSubForm_Click()Form1.AutoRedraw=TrueClsDimAAsInteger,SuAsBoolean,IAsInteger,JAs

100以内的数若分为素数^4乘1次的素数则为10个因素.2*2*2*2*3=482^4*3^1=48(4+1)*(1+1)=102*2*2*2*5=802^4*5^1=80(4+1)*(1+1)=10

2500再问：过程，谢谢再答：1+3+5+...+9999+97+95+...+1(1+99)×50÷2=2500

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

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

41-3=38

PrivateSubCommand1_Click()Fori=1To100Forj=1To100IfInt(Sqr((j+i)))=Sqr(j+i)AndInt(Sqr((Abs(i-j))))=Sq

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