VB練習(xí)題a及答案

《VB練習(xí)題a及答案》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。

1、A1.編寫程序，計(jì)算并輸出下面數(shù)列前n項(xiàng)的和(設(shè)n=15,結(jié)果取4位小數(shù))。數(shù)列為：2/1,3/2,5/3,8/5,13/8,21/13,……（結(jié)果：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.編寫程序，計(jì)算并輸出所有六位正整數(shù)中同時(shí)能被3和7整除的數(shù)的個(gè)數(shù)及它們的平方根的和。（結(jié)果：個(gè)數(shù)：42858平方根和：30742714.4533428）Mai

2、n:Dimn,IAsIntegerDimsAsDoublen=0:s=0ForI=100000To999999IfIMod3=0AndIMod7=0Thenn=n+1s=s+Math.Sqrt(I)EndIfNextIMsgBox("個(gè)數(shù)是"+Str(n)+Chr(10)+"平方根之和是"+Str(s))A3.編寫程序，計(jì)算并輸出所有6位正整數(shù)中能被6整除且其十位數(shù)不是4的數(shù)之和，并求它們中的最大數(shù)。（結(jié)果：和: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("個(gè)數(shù)是"&n&chr(10)&”立方根的和是”&s)EndSubA5編寫程序，計(jì)算并輸出下面級(jí)數(shù)當(dāng)n等于某整數(shù)值時(shí)的部分和的值D(設(shè)n=20,x=1.1)。（其中^表示冪運(yùn)算）（結(jié)果：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("所求級(jí)數(shù)部分和S="&s)EndSubA6編寫程序，計(jì)算并輸出下面級(jí)數(shù)前n項(xiàng)(n=40)中偶數(shù)項(xiàng)的和。s=1*2+2*3+3*4+4*5+……+n*(n+1)+…（結(jié)果：11900）PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.Even

6、tArgs)HandlesButton1.ClickDimnasinteger,sasdoubles=0Forn=2To40Step2s=s+n*(n+1)NextnMsgbox("前40項(xiàng)中偶數(shù)項(xiàng)和S="&s)EndSubA7.編寫一個(gè)用梯形法求一元函數(shù)f(x)在區(qū)間〔a,b〕上積分的近似值。并就f(x)=e^(-x*x)+x*x（其中^表示冪運(yùn)算），計(jì)算其在區(qū)間[0,1.5]上,且小區(qū)間數(shù)n=20時(shí)的近似積分值。（結(jié)果：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