VB 若正整数A的所有因子之和为b,而b的因子之和

这也是大学编程?中学还差不多 Private Sub Command1_Click()a = Int(Val(InputBox("a=&qu

#includevoidmain(){intn;ints=0;printf("请输入一个正整数：");scanf("%d",&n);printf("该整数除1和其本身的因子为：\n");for(int

100内能被3整除的数的和为3+6+…+96+99=(3+99)*33/2=1683再减去同时能被3和7整除的数的和21+42+…+84=210；结果为1683-210=1473

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

PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=1Tons=s+iNextiText2.Text=sEndSu

修改楼上,注意输入必须是正整数,且先小后大formload()'inti,j,m,n,summ=inputbox("输入最小正整数")n=inputbox("输入最大正整数")forj=mtonsum

1628120这个VBS写的,参考思路吧dimi,k,ysh,gsfori=1to200ysh=0fork=1toiifimodk=0thenysh=ysh+kendifnextifyshmodi=0

PrivateSubCommand1_Click()'m=Val(text1.Text):n=Val(text2.Text)m=1:n=10000IfmFori=mTons=1:t=0Forj=2To

#include#includeintokn(intn){inti;intsum=0;for(i=1;i*i

界面用一个listbox和一个commandbutton,代码为：OptionExplicitPrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDim

PrivateSubForm_Load()Fori=1To9Forj=0To9Fork=0To9Ifi+j+k=10ThenIf100*i+10*j+k99ThenMsgBox100*i+10*j+k

小于100的正整数中能被7整除的所有数分别是7，14，21…98，这样所有的数字组成一个首项是7，公差是7的等差数列，共有14项，∴所有数字的和是(7+98)142=735故答案为735

是不是最后出现一个莫名其妙的数关键问题在于count++和最后一个for循环中的

intprime(intx){\x09inti;\x09for(i=2;i

publicclassPerfectNumber{publicstaticvoidmain(String[]args){inti,j,sum;for(i=2;isum=0;for(j=1;j

楼上的把循环条件中的n换成n/2,效率更好#includeusingnamespacestd;intmain(intargc,char*argv[]){intn,i,t,sum;cin>>n;i=2;

需要2个文本框text和2个按钮command（一个计算一个清除）Dimx,a,b,kAsStringPrivateSubCommand1_Click()a=Val(Text1.Text)x=2Ifa

PrivateSubCommand1_Click()Sum=0Fori=0To9Print10*i+7;Sum=Sum+10*i+7NextiPrintPrint"Sum=";SumEndSu

若N为偶数.则:(1+n/2)*n/2若n为奇数.则:[1+(n-1)/2]*(n-1)/2

1/7=0.142857(小数部分循环)2/7=0.285714(小数部分循环)3/7=0.428571(小数部分循环)4/7=0.571428(小数部分循环)5/7=0.714285(小数部分循环)