计算机visualbasic程序设计课后答案

《计算机visualbasic程序设计课后答案》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、同步练习1二、选择题01——5CADAB06——10ACDAB11——15CBDBB同步练习2二、选择题01——5ABDCA06——10CACBC11——15DADAD16——20BDBBB三、填空题1.可视2.LEFT、TOP、WIDTH、HEIGHT3.按字母顺序4.查看代码5.工具、编辑器6.FORM窗体、FONT7.MULTILINE8.在运行时设计是无效的9.工程、工程属性、通用、FORM1.SHOW10.TABINDEX>0同步练习3二、选择题01——5BCADB06——10ADBBC11——15DBCBA16——20BAABB三、填空题1.整型、长整型、

2、单精度型、双精度型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+X108.(3520)*20=20(3520)*20=209.XMOD3=0ORXMOD5=010.27.6、&2、8、1、100、397、TRUE、FALSE同步练习4一、选择题01——5DBCAD06——10CBBAB11——15D25BAC16——20CBACB21——25DAABC二、填空题1.正确性、有穷性、可行性、有0个或

3、多个输入、有1个或多个输出2.1233.X>=74.X

4、enExitForNextiIfi>kTheny=y&Str(n)EndIfNextnMsgBoxy,,“显示质数MEndSub3.编写程序，计算1+2+...+100的值。PrivateSubForm_Click()Dimi%,s%s=0Fori=1To100s二s+iNextiPrintT+2+3+...+100=";sEndSub4.百元买百鸡。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡方案。(采用穷举法)假设母鸡、公鸡、小鸡各为x、y>z,列出方程为：x+y+z=1003x+2y+0.5z=100PrivateSubForm_Click()Di

5、mx%,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(In

6、putBox(,'b=,'))c=Val(InputBox("c="))Ifa+b>cAnda+c>bAndb+c>aThenp=(a+b+c)/2s=Sqr(p*(p-a)*(p-b)*(p-c))Print"s=";sEndIfLoopEndSub6.编程打印如下图所示的数字金字塔。PrivateSubForm_Click()Dimi%,j%Fori=1To8PrintTab(9・i);Forj=1To2*i・1PrintTrim(Str(i))；NextjPrintNextiEndSub7.勾股定理中3个数的关系是：a*a+b*b=c*c<>编写程序，输出30以

7、内满足上述关系的整数组合，例如3、4、5就是一个整数组合。PrivateSubForm_Click()Dimi%,j%,k%Fori=1To30Forj=1To30Fork=1To30IfiA2+jA2=kA2ThenPrinti,j,kEndIfNextkNextjNextiEndSub8.如果一个三位数3个数字的立方和等于该数本身，称为水仙花数。例如153就是一个水仙花数：13+53+33=153。编写程序，显示所有三位的水仙花数。PrivateSubForm_Click()Dimx%,a%,b%,c%Forx=100To999a=x100b=