VB程序设计课后习题答案(科学)

同步练习1二、选择题01——05CADAB06——10ACDAB11——15CBDBB同步练习2二、选择题01——05ABDCA06——10CACBC11——15DADAD16——20BDBBB三、填空题1．可视2．LEFT、TOP、WIDTH、HEIGHT3．按字母顺序4．查看代码5．工具、编辑器6．FORM窗体、FONT7．MULTILINE8．在运行时设计是无效的9．工程、工程属性、通用、FORM1.SHOW10．TABINDEX、0同步练习3二、选择题01——05BCADB06——10ADBBC11——15DBCBA16——20BAABB三、填空题1．整型、长整型、单精度型、双精度型2．SIN(30*3.14/180)+SQR(X+EXP(3))/ABS(X-Y)-LOG(3*X)3．164、今天是：3-194．FALSE5．-4、3、-3、3、-4、46．CDEF7．(XMOD10)*10+X\108．(35\20)*20=20(35\20)*20=209．XMOD3=0ORXMOD5=010．27.6、8.2、8、1、100、397、TRUE、FALSE同步练习4一、选择题01——05DBCAD06——10CBBAB11——15D25BAC16——20CBACB21——25DAABC二、填空题1．正确性、有穷性、可行性、有0个或多个输入、有1个或多个输出2．1233．X=74．XAMIN5．10246．117．128．6、I、”*”;9．0、100、I+110．2*I、6、”*”;三、编程题1．编程求n！，n从键盘输入。PrivateSubForm_Click()Dimn%,s%,i%n=Val(InputBox(请输入n的值：))s=1Fori=1Tons=s*iNextiPrintn;!=;sEndSub2．编程求100以内的全部质数。PrivateSubForm_Click()Dimi%,k%,n%,y$Forn=1To100k=Int(Sqr(n))Fori=2TokIfnModi=0ThenExitForNextiIfikTheny=y&Str(n)EndIfNextnMsgBoxy,,“显示质数EndSub3．编写程序，计算1+2+…+100的值。PrivateSubForm_Click()Dimi%,s%s=0Fori=1To100s=s+iNextiPrint1+2+3+…+100=;sEndSub4．百元买百鸡。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡方案。(采用穷举法)假设母鸡、公鸡、小鸡各为x、y、z，列出方程为：x+y+z=1003x+2y+0.5z=100PrivateSubForm_Click()Dimx%,y%,z%Print母鸡,公鸡,小鸡Forx=0To33Fory=0To50z=100-x-yIf3*x+2*y+0.5*z=100ThenPrintx,y,zEndIfNextyNextxEndSub5．给定三角形的3条边的边长，计算三角形的面积。编写程序，首选判断的3条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。PrivateSubForm_Click()Dima%,b%,c%,s!,p!DoUntila=-1Orb=-1Orc=-1a=Val(InputBox(a=))b=Val(InputBox(b=))c=Val(InputBox(c=))Ifa+bcAnda+cbAndb+caThenp=(a+b+c)/2s=Sqr(p*(p-a)*(p-b)*(p-c))Prints=;sEndIfLoopEndSub6．编程打印如下图所示的数字金字塔。PrivateSubForm_Click()Dimi%,j%Fori=1To8PrintTab(9-i);Forj=1To2*i-1PrintTrim(Str(i));NextjPrintNextiEndSub7．勾股定理中3个数的关系是：a*a+b*b=c*c。编写程序，输出30以内满足上述关系的整数组合，例如3、4、5就是一个整数组合。PrivateSubForm_Click()Dimi%,j%,k%Fori=1To30Forj=1To30Fork=1To30Ifi^2+j^2=k^2ThenPrinti,j,kEndIfNextkNextjNextiEndSub8．如果一个三位数3个数字的立方和等于该数本身，称为水仙花数。例如153就是一个水仙花数：13+53+33=153。编写程序，显示所有三位的水仙花数。PrivateSubForm_Click()Dimx%,a%,b%,c%Forx=100To999a=x\100b=(xMod100)\10c=xMod10Ifa^3+b^3+c^3=xThenPrintxEndIfNextxEndSub9．税务部门征收所得税，规定如下：（1）收入200元以内，免征；（2）收入在200~400元内，超过200元的部分纳税3%；（3）收入超过400元的部分，纳税4%；（4）当收入达5000元或超过时，将4%改为5%。编程实现上述操作。PrivateSubForm_Click()Dimx%,y!x=Val(InputBox(请输入收入额：))SelectCasexCaseIs200y=0Case200To400y=(x-200)*0.03Case400To4999y=(x-400)*0.04CaseIs=5000y=(x-400)*0.05EndSelectPrinty=;yEndSub10．编写一程序根据上网时间计算上网费用，计算方法如下：50元（10小时）网费=每小时6元（10~60小时）每小时4元（=60小时）同时为了鼓励多上网，每月收费最多不超过200元。PrivateSubForm_Click()Dimt!,s!t=Val(InputBox(请输入上网小时数))SelectCasetCaseIs10s=50Case10To59s=6*tIfs200Thens=200CaseIs=60s=4*tIfs200Thens=200EndSelectPrint上网费用为;s;元。EndSub11．编写一个程序，当输入月份时，输出季节的名称。例如，当输入月份为12、1和2时，输出“冬季”；当输入月份为3、4、5时，输出“春季”；当输入月份为6、7、8时，输出“夏季”；当输入月份为9、10、11时，输出“秋季”；当输入其他数字时，输出“输入错误，请重新输入！”。PrivateSubForm_Click()Dimm%m=Val(InputBox(请输入月份：))SelectCasemCase12,1,2Print冬季Case3,4,5Print春季Case6,7,8Print夏季Case9,10,11Print秋季CaseElsePrint输入错误，请重新输入！EndSelectEndSub12．分别利用If语句、SelectCase语句，设计计算下列分段函数的程序。2x-1（x0）f(x)=4x（x=0）7x-5（x0）PrivateSubForm_Click()Dimx!,f!x=Val(InputBox(请输入x的值：))SelectCasexCaseIs0f=2*x-1Case0f=4*xCaseIs0f=7*x-5EndSelectPrintfEndSub同步练习5一、选择题01——05DCACD06——10DBCDC11——15BADAD二、填空题1．NAME、INDEX2．PRESERVE3．VARIANT4．N(2)=2N(3)=35．1231416．1232467．MAX、MAX=ARR1(I)三、编程题1．从键盘上输入10整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即第1个元素与第10个元素互换，第2个元素与第9个元素互换，……，第5个元素与第6个元素互换。输出数组为原来各元素的值和对换后各元素的值。PrivateSubForm_Click()Dima(1To10)Fori=1To10a(i)=Val(InputBox(请输入第&i&个数))NextiPrint原来各元素的值:Fori=1To10Printa(i);IfiMod5=0ThenPrintNextiFori=1To5temp=a(i)a(i)=a(10-i+1)a(10-i+1)=tempNextiPrint对换后各元素的值Fori=1To10Printa(i);IfiMod5=0ThenPrintNextiEndSub2．设有如下两组数据。编写一个程序，把两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即2+79，8+27，…，25+80，并把相应的结果放入第三个数组中，最后输出第三个数组的值。A28764287025B7927324157667880PrivateSubForm_Click()Dima,b,c(7)a=Array(2,8,7,6,4,28,70,25)b=Array(79,27,32,41,57,66,78,80)Fori=0To7c(i)=a(i)+b(i)NextiFori=0To7Printc(i);NextiEndSub3．有一个n×m的矩阵，其各元素的值由随机函数生成（范围为50~150）。编写程序，找出其中最大的元素所在的行和列，并输出其值及行号和列号。OptionBase1PrivateSubForm_Click()Dimmax%,row%,col%Dima()AsIntegern=Val(InputBox(请输入矩阵的行：))m=Val(InputBox(请输入矩阵的列：))ReDima(n,m)Fori=1TonForj=1Toma(i,j)=Int(101*Rnd)+50Printa(i,j),Ifj=mThenPrintNextjNextimax=a(1,1):row=1:col=1Fori=1TonForj=1TomIfa(i,j)maxThenmax=a(i,j)row=icol=jEndIfNextjNextiPrint最大元素是：;maxPrint在第&row&行，&第&col&列EndSub4．编写程序，产生50个互不相同的10~99的随机整数，统计各数值段（10~19，20~29，….80~89，90~99）有多少个数并输出。PrivateSubForm_Click()Dima(1To50)AsInteger,iAsIntegerDimb(1To9)AsInteger,kAsIntegerFori=1To50a(i)=Int(Rnd*90+10)Printa(i);IfiMod10=0ThenPrintk=Int(a(i)/10)b(k)=b(k)+1NextiPrintFori=1To9Print(i*10)&~&(i*10+9)&的学生人数：&b(i)NextiEndSub5．采用控件数组编写一个简单的计算器。要求该计算器能够实现简单的加、减、乘、除运算。PrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0Text3=Val(Text1)+Val(Text2)Case1Text3=Val(Text1)-Val(Text2)Case2Text3=Val(Text1)*Val(Text2)Case3Text3=Val(Text1)/Val(Text2)EndSelectEndSub7．编程显示Fibonacci数列的前40项。该数列有如下特点：其第1、2项均为1，从第3个数开始，该数是其前两个数之和，公式为：F(n)=F(n-1)+F(n-2)PrivateSubForm_Click()Dimf(39)f(0)=1:f(1)=1Fori=2To39f(i)=f(i-1)+f(i-2)NextiFori=0To39Printf(i),If(i