資源描述：
《VB機(jī)試答題帶答案》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、1.設(shè)S=35，C=0.3，編寫程序，計算并輸出下面級數(shù)的部分和。結(jié)果取小數(shù)點(diǎn)后面7位。C/1!-C^3/3!+C^5/5!-…+(-1)^(S-1)*C^(2*S-1)/(2*S-1)!+…PrivateSubCommand1_Click()DimnAsIntegerDimxAsDoublex=0.3DimitemAsDoubleDimsumAsDoubleDimfacAsDoubleForn=1To35fac=1DimiAsIntegerFori=1To2*n-1fac=fac*iNextitem=(-1)^(n-1
2、)*x^(2*n-1)/facsum=sum+itemNextsum=Int(sum*10000000+0.5)/10000000MsgBox(sum)EndSub'sum=0.4794262.定義一個下標(biāo)上界為30的單精度數(shù)組，設(shè)置好其初值（值處于[20，90]），計算數(shù)組中所有元素的均值。Dimi,sum,aveAsIntegerDima(30)AsSingleFori=0To30a(i)=20+Int(Rnd()*71)NextFori=0To30sum=sum+a(i)Nextave=sum/31printsum
3、3.在窗體上放置文本框Text1、Text2，放置一個按鈕Command1。在Text1里寫入一個整數(shù)，點(diǎn)擊按鈕時，對Text1內(nèi)的數(shù)據(jù)進(jìn)行判斷，如果是偶數(shù)，則在Text2里顯示“該數(shù)是偶數(shù)”。DimxAsIntegerx=Val(Text1.Text)IfxMod2=0ThenTText2.Text="該數(shù)是偶數(shù)"ElseText2.Text="該數(shù)是奇數(shù)"EndIf4.輸入一個三位數(shù)，分別輸出它的百位數(shù)字、十位數(shù)字和個位數(shù)字。Dima,baiwei,gewei,shiweiAsIntegera=Val(InputBo
4、x(""))gewei=aMod10baiwei=a100shiwei=(a10)Mod10MsgBox(gewei)MsgBox(shiwei)5.計算sum=2+4+6+...+1000Dimsum,iAsIntegerFori=2To1000Step2sum=sum+iNextprintsum6.求下面級數(shù)前S項中奇數(shù)項的和sum。在求和過程中，以第一個奇數(shù)項的數(shù)值大于10000的項為末項。1!-2!+3!-4!+…+(-1)^(S-1)*S!+…PrivateSubCommand1_Click()DimnAs
5、IntegerDimitemAsDoubleDimiAsIntegerDimsumAsDoubleDimfacAsDoublesum=0n=1DoWhileTrueitem=1Fori=1Tonitem=item*iNextisum=sum+itemIfAbs(item)>10000ThenExitDoElse17n=n+2EndIfLoopMsgBox(sum)EndSub8.已知A、B為整數(shù)，A和B的立方和為1000，求所有的A、B。Dimx,yAsIntegerForx=0To10Fory=0To10Ifx^3+y
6、^3=1000ThenMsgBox(x&""&y)EndIfNextNext10.建立一個5×5的整型二維數(shù)組，由Rnd函數(shù)產(chǎn)生[25，95）的隨機(jī)整數(shù)對該數(shù)組賦初值，輸出數(shù)組中的最大元素。DimA(4,4)AsIntegerDimi,jAsIntegerFori=0To4Forj=0To4A(i,j)=25+Int(Rnd()*71)NextNextDimmaxAsIntegermax=A(0,0)Fori=0To4Forj=0To4IfA(i,j)>maxThenmax=A(i,j)EndIfNextNextText
7、1.Text=max1.求下面級數(shù)前s項中偶數(shù)項的和SUM。在求和過程中，以第一個數(shù)值大于10000的項為末項，計算并輸出和SUM。1!-2!+3!-4!+…+(-1)^(s-1)*s!+……PrivateSubCommand1_Click()DimnAsIntegerDimitemAsDoubleDimsumAsDoublesum=0n=2DoWhileTrueitem=1DimiAsIntegerFori=2Tonitem=item*iNextsum=sum+itemIfitem>10000ThenExitDoEls
8、en=n+2EndIfLoopsum=-1*sumMsgBox(sum)EndSub'sum=3680472.建立一個9×9的整型二維數(shù)組（由Rnd函數(shù)產(chǎn)生[10，60）的隨機(jī)整數(shù)對數(shù)組初始化），輸出數(shù)組中所有奇數(shù)行元素的和。DimA(8,8)AsIntegerDimi,jAsIntegerFori=0To8Forj
