VB 若正整数A的所有因子之和为b,而b的因子之和
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/22 01:59:10
这也是大学编程?中学还差不多 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(小数部分循环)