用VB求自然数1到100的奇数之和
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/23 18:33:22
Private Sub Command1_Click() Dim i As Integer &
q=0:e=0Fori=1To100IfiMod2=0Thene=e+1Elseq=q+1EndIfNextPrint"奇数个数=";q,"偶数个数=";e
dimaasintegerdimbasintegerdimnasintegerdims1asintegerdims2asintegerforn=atobifos(n)=truethens1=s1+n^
dimgs,igs=0fori=1to500ifinstr(i,"4")=0thengs=gs+1endifnextprintgs
dimiasintegerdimsumasintegeri=1方法1dowhilei100sum=sum+ii=i+1loop方法3dosum=sum+ii=i+1loopwhilei<100
dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum
(1+3+5+7+……+995+997+999)-(2+4+6+8+……+996+998+1000)=-1*500=-500
PrivateSubCommand1_Click()Dimi,sAsIntegers=0Fori=1To100IfiMod3=0OriMod7=0Thens=s+1EndIfNextiPrintsEn
PrivateSubCommand1_Click()Dimi,sum1,sum2AsIntegersum1=0sum2=0Fori=1To100IfiMod2=1Thensum1=sum1+iElse
inputab=int((a+1)/2)c=b-1
因数的个数是奇数1符合还有就是素数的平方所以是4,9,25,49所以有5个
sub平方和()dimsumdimiaslongsum=0fori=1to100sum=sum+i*inextiendsu
2500再问:过程,谢谢再答:1+3+5+...+9999+97+95+...+1(1+99)×50÷2=2500
248050247500再问:不是说结果的,而是说编程的再答:我不懂vb,只会用php或者其他的,简单的用basic写一下吧,大致思路是这样的。sum1=0sum2=0fora=100to10000i
全加起来是50505050-(99+1)-(98+2)-```````````````减去50个100剩下一个50
在窗口上建立一个按钮:FunctionTotal(Num1,Num2)AsString'Num1为奇数和'Num2为偶数和Fori=1To100IfiMod20ThenNum1=Num1+iElseN
sum=0fori=1to100if(imod3)thensum=sum+inextiprintsum
解法一:(1+999)*500/2=250000(奇数和)(2+1000)*500/2=250500(偶数和)250000-250500=-500(差)应用(首项+末项)*项数/2=和解法二:1+3+
fori=1to50ifimod20thensum=sum+inextmsgboxsum
公式:1^2+3^2+5^2+.(2n-1)^2=n(4n^2-1)/3n=501-100所有奇数的平方和=50*(4*50^2-1)/3=166650