作业帮用VB求自然数1到100的奇数之和
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/13 04:03:37
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