VB机试答题带答案

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

1、1.设S=35，C=0.3，编写程序，计算并输出下面级数的部分和。结果取小数点后面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.定义一个下标上界为30的单精度数组，设置好其初值（值处于[20，90]），计算数组中所有元素的均值。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里写入一个整数，点击按钮时，对Text1内的数据进行判断，如果是偶数，则在Text2里显示“该数是偶数”。DimxAsIntegerx=Val(Text1.Text)IfxMod2=0ThenTText2.Text="该数是偶数"ElseText2.Text="该数是奇数"EndIf4.输入一个三位数，分别输出它的百位数字、十位数字和个位数字。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.求下面级数前S项中奇数项的和sum。在求和过程中，以第一个奇数项的数值大于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为整数，A和B的立方和为1000，求所有的A、B。Dimx,yAsIntegerForx=0To10Fory=0To10Ifx^3+y

6、^3=1000ThenMsgBox(x&""&y)EndIfNextNext10.建立一个5×5的整型二维数组，由Rnd函数产生[25，95）的随机整数对该数组赋初值，输出数组中的最大元素。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.求下面级数前s项中偶数项的和SUM。在求和过程中，以第一个数值大于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的整型二维数组（由Rnd函数产生[10，60）的随机整数对数组初始化），输出数组中所有奇数行元素的和。DimA(8,8)AsIntegerDimi,jAsIntegerFori=0To8Forj