VB练习题a及答案

《VB练习题a及答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、A1.编写程序，计算并输出下面数列前n项的和(设n=15,结果取4位小数)。数列为：2/1,3/2,5/3,8/5,13/8,21/13,……（结果：24.5701）main:Dima,b,t,IAsIntegerDimsum,qAsSinglea=1:b=2:sum=0ForI=1To15q=b/asum=sum+qt=aa=bb=b+tNextIsum=Format(sum,"#.0000")MsgBox(Str(sum))A2.编写程序，计算并输出所有六位正整数中同时能被3和7整除的数的个数及它们的平方根的和。（结果：个数：42858平方根和：30742714.4533428）Mai

2、n:Dimn,IAsIntegerDimsAsDoublen=0:s=0ForI=100000To999999IfIMod3=0AndIMod7=0Thenn=n+1s=s+Math.Sqrt(I)EndIfNextIMsgBox("个数是"+Str(n)+Chr(10)+"平方根之和是"+Str(s))A3.编写程序，计算并输出所有6位正整数中能被6整除且其十位数不是4的数之和，并求它们中的最大数。（结果：和:7.42508E+10最大值：999996）24Main:DimI,maxAsLongDimsAsSinglemax=100000ForI=100000To999999If(IMo

3、d6)=0And((IMod100)10)<>4Thens=s+IIf(max

4、sAsDoublen=0:s=0Fori=100000To999999IfiMod13=0AndiMod20=0Thenn=n+1s=s+i^(1/3)EndIfNextiMsgbox("个数是"&n&chr(10)&”立方根的和是”&s)EndSubA5编写程序，计算并输出下面级数当n等于某整数值时的部分和的值D(设n=20,x=1.1)。（其中^表示幂运算）（结果：0.332871）e^(-x)=1-x/1!+x^2/2!-x^3/3!+x^4/4!-…+(-1)^n*x^n/n!+……PrivateSubButton1_Click(ByValsenderAsSystem.Object

5、,ByValeAsSystem.EventArgs)HandlesButton1.Click24Constx=1.1#DimnAsInteger,s,tasdoublen=0:t=1:s=1Forn=1To20t=t*x/ns=s+(-1)^n*tNextnMsgbox("所求级数部分和S="&s)EndSubA6编写程序，计算并输出下面级数前n项(n=40)中偶数项的和。s=1*2+2*3+3*4+4*5+……+n*(n+1)+…（结果：11900）PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.Even

6、tArgs)HandlesButton1.ClickDimnasinteger,sasdoubles=0Forn=2To40Step2s=s+n*(n+1)NextnMsgbox("前40项中偶数项和S="&s)EndSubA7.编写一个用梯形法求一元函数f(x)在区间〔a,b〕上积分的近似值。并就f(x)=e^(-x*x)+x*x（其中^表示幂运算），计算其在区间[0,1.5]上,且小区间数n=20时的近似积分值。（结果：1.982446）FunctionF(ByValxAsDouble)AsDoubleF=Math.Exp(-x*x)+x^2EndFunctionPrivateSubb

7、utton1_click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,b,h,sAsDoubleDimI,nAsIntegera=0b=1.5n=2024h=(b-a)/ns=(F(a)+F(b))/2ForI=1Ton-1s=s+F(a+I*h)NextIs=s*hTextBox4.Text=Str(s)End