vb习题答案(1-9章)最全的

《vb习题答案(1-9章)最全的》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、第一章VB程序设计概述二、选择题CADABACDABCBDBB第二章VB可视化编程基础二、选择题ABDCACACBCDADADBDBBB三、填空题1.可视2.LEFTTOPWIDTHHEIGHT3.按字母序4.查看代码5.工具、选项6.Form1Font7.Multiline8.只读属性9.工程属性通用Form1.show10.tabindex0第三章VB语言基础二、选择题BCADBADBBCDBCBADAABB三、填空题1.整型、长整型、单精度、双精度2.sin(30*3.14/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)3.160今天是：3-

2、224.False5.-43-33-446.“CDEF”7.(xmod10)*10+x108.(3520)*20=20(3520)*20=209.xmod3=0orxmod5=010.27.68.281100397truefalse第四章VB程序控制结构二、选择题DBCADABCABD25BACCBACBDABBC三、填空题1.字符型整型2.1233.x>74.x

3、Longs=1n=Val(InputBox("请输入一个整数:"))Fori=1Tons=s*iNexticonstructionqualityacceptanceandassessmentRegulation(ProfessionalEdition)(DL/T5210.2-2009~DL/T5210.8-2009);1.9thequalitycheckoutandevaluationofelectricequipmentinstallationengineeringcode(DL/T5161.1-2002~5161.17-2002);1.10thenormsofconst

4、ructionsupervision,theelectricpowerconstructionsupervisionregulationsMsgBoxn&"！="&sEndSub2．PrivateSubForm_Click()Dimi%,k%Forj=3To100k=Int(Sqr(j))Fori=2TokIfjModi=0ThenExitForNextiIfi>kTheny$=y$&""&jEndIfNextjMsgBoxy,,"显示质数"EndSub3．PrivateSubForm_Click()Dimi%,s%Fori=1To100s=s+iNextiMsgBox"1

5、+2+3+……+100="&sEndSub4．PrivateSubForm_Click()Dimx%,y%Forx=1To50Fory=1To33z=100-x-yIf2*x+3*y+0.5*z=100ThenPrint"小鸡、公鸡、母鸡分别为：";x;y;zEndIfNextyNextxEndSub5.PrivateSubCommand1_Click()Dima%,b%,c%,p!,s!doa=Val(InputBox("请输入三角形的第一条边"))ifa=-1thenexitdob=Val(InputBox("请输入三角形的第二条边"))c=Val(InputBox("

6、请输入三角形的第三条边"))Ifa+b>cAnda+c>bAndb+c>aThenp=(a+b+c)/2s=Sqr(p*(p-a)*(p-b)*(p-c))PrintsconstructionqualityacceptanceandassessmentRegulation(ProfessionalEdition)(DL/T5210.2-2009~DL/T5210.8-2009);1.9thequalitycheckoutandevaluationofelectricequipmentinstallationengineeringcode(DL/T5161.1-2002~51

7、61.17-2002);1.10thenormsofconstructionsupervision,theelectricpowerconstructionsupervisionregulationsElseMsgBox"你输入的三边不能构成三角形，请重新输入"EndIfloopEndSub6.PrivateSubForm_Click()DimiAsInteger,jAsInteger,kasintegerFori=1To8Fork=1to8-iPrintspc(3);NextkForj=1To2*i-1Print