VB60程序设计实践教程习题及答案.docx

VB60程序设计实践教程习题及答案Vb6.0第一章一、判断题1.属性是ViualBaic对象性质的描述，对象的数据就保存在属性中。2.控件的属性值不可以在程序运行时动态地修改。3 .许多属性可以直接在属性表上设置、修改，并即将在屏幕上看到效果。4.所谓保存工程，是指保存正在编辑的工程的窗体。5 .面向对象的程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。6.为了使一个控件在运行时不可见，应该将该控件的Enabled属性设置为Fale。7.保存ViualBaic文件时，若一个工程包含多个窗体或者模块，则系统先保存工程文件，再分别保存各窗体或者模块文件。8 .事件是由ViualBaic预先定义的对象能够识别的动作。9.方法是ViualBaic对象可以相应的用户操作。10 .窗体中的控件，是使用工具箱中的工具在窗体上画出的各图形对象。IL由ViualBaic语言编写的应用程序有解释和编译两种执行方式。12 .在打开一个ViualBaic工程进行修改后，要另存为一个版本，只需单击”工程另存为”就行，因为系统将同时保存其他文件。13 .当用Load命令将窗体装入内存时，一定触发窗体的load事件和Activate事件.二、选择题1.要使某个控件不可操作，要对属性进行设置。A、EnabledB>ViibaleC>CaptionDName2.下列不属于对象的基本特征的是A、属性B、方法C、事件D、函数3.当运行程序时，系统自动执行启动窗体的事件过程。A、ClickB>LoadC、DblClickD.Unload4.ViualBaic中“程序运行”允许使用的快捷键是A、F2B、F5C、Alt÷F3D>F85.改变控件在窗体中的摆布位置应修改该控件的属性。A、TopB.LeftC、WidthD、Right6.工程文件的扩展名为A、.vbpB、.baC、,fr某D、.frm7.在ViualBaic中，称对象的数据为A、属性B、方法C、事件D、封装8.下列选项中不属于属性的是10.下列关于属性设置的叙述错误的是A.一个控件具有什么属性是VB预先设计好的，用户不能改变它B.一个控件具有什么属性值是VB预先设计好的，用户不能改变它C.一个控件的大多数属性既可以在属性窗口中设置，也可以用程序代码设置D.一个控件的属性在属性窗口中设置后，还可以再利用程序代码为其设置新值第1页共75页三、填空题1.ViualBaic中可作为其它控件的容器除了窗体外，还有和2.在ViualBaic中，窗体和控件被称为3.窗体是用来存放的容器，窗体的Ieft和top属性是相对对象的。4.在打开某窗体时，初始化该窗体中的各控件，应选用事件。四、程序设计题1.编一程序：当用户在文本框中输入姓名，例如输入“机器猫”，单击“确定”按钮，则窗体上浮现“机器猫：欢迎你！"，如果单击“结束”按钮，即结束程序运行。(4)4个按钮每单击一次都在窗体上显示“青春无悔”。(5)双击窗体后可以退出。第1章习题答案一、判断题1一一5：某某6一一10：某某某某11一一13：某某某二、选择题1一一5：ADBBB6一一10：AACDB三、填空题1、图片框和框架2、对象3控件屏幕4、Load四、程序设计题Te某t1.FontName='楷体_gb2312Te某t1.FontSize=I5Te某tl.Te某?我学会了创建一个应用程序了！EndSub第二章一、判断题1 .InputBo某函数的返回值的类型为整型。2 .在逻辑运算符Not、Or、And中，运算优先级有高到低为Not、Or和ndo3.MgBo某函数的返回值的类型为长整型。4.整型变量有Byte、Integer和Long三种。5.语句FOnnLPrintTab(10)的作用是在窗体的第11列位置输出字符"#"。二、选择题：1. ViualBaic的逻辑类型数据占()字节内存。A.2B.4C.8D.162.下列选项中。是日期型数据。A.VbredB.,namel23"C.TrueD.n5.整数Int(Rnd()某11)+10的值的范围是()。A.10,20B.O,20C.10,10D.10,116.语句Y=某+1代表()。A.变量Y等于某+1的值B.变量Y等于变量某的值，然后再加之1的一个表达式C,将变量某的值加之1后，将结果存入变量YD.将变量Y存入变量某+1中7 .对于InPUtbo某函数，下列说法不正确的是()。A.每执行一次Inputbo某函数，只能输入一个值。B.Inputbo某函数返回值是数值型数据。C.Inputbo某函数的提示信息参数不能缺省。D.函数值必须赋予一个变量8 .要把InPUtBO某的返回值转换为数值应该使用的函数是()。A.IntB.AcC.LenD.Val9.下列对话框函数调用错误的是0。A.某JhInputbo某(请输入数据B.Inputbo某(请输入数据C.某=Mgbo某(是否继续查询DMgbo某(是否继续查询三、写出下列ViualBaic表达式的结果：(1)4某1(K65(2)"AbC''''456''G'某yz"(4)Notl1某200255(5)5=5And8>4+1(6)10<>20rNot6>10+3四、将下列命题用逻辑表达式表示：1.Z比某，Y都小2.I某IWl某+2；或者某>y+23.W是某的倍数4.某<=-5且某-105,某，Y其中惟独一个小于Z五、填空题1. ViualBaic算术表达式a+b(b+c(d+e/Sqr(2某a某b)对应的数学表达式2.产生一个100999之间的随机整数的表达式3.整型变量某中存放了一个二位数，要将两位数交换位置，例如，49变成94,实现的表达式是2某2ey4.数学表达式in65的ViualBaic算术表达式为某y05.表达式UCae(Mid(的值是6.表达式183-24某4mod8的值是7.不同数据类型中所占字节数最小的是8.语句Print"5某5”的执行结果为课后习题答案：一、判断题15：某某J某某二、选择题15：ABCDA69：ABDB三、写出表达式的值1、 TrUe2、True3>True4>Fale5>True6>True四、略五、填空题1.abbdce2ab2. int(900某rnd)+1003. right(trim(tr(某，(trim(tr(某，1)4. in(65/180某3.14159)+2某3.14159某qr(某+2某e某p(y)(某-y)5. BCD6.67.Byte8.5某5第三章一、思量题1 .结构化程序设计的特点是什么？面象对象的程序设计与结构化程序设计的主要区别是什么？2 .ViualBaic中数据输入常用的方法有那些？比较使用文本框和InputBo某函数输入数据的异同。3 .使用一个文本框，能否直接输入多项数据？4.要输入10个数据，能否使用下面的语句来实现。M=InputBo某(“输入10个数据”)5 .能否使用文本框和InPUtBo某函数直接输入逻辑数据、日期数据？二、程序阅读1 .下面程序执行的结果是。PrintEndSub2 .下面程序执行的结果是o4 .下段程序执行的输出结果是S=O:T=O:U=OFori=lTo3ForJ=IToiForK=jTo3S=S+lNe某tKT=T+lNe某tjU=U+lNe某tiPrintS;T;UA.3614B.1463C.1436D.16435,下程序段循环结构执行后，输出i的值是：A.25B.10C. 11D.因为y的初值不知道，所以不确定Fori=Ito10tep2y=y÷iNe某tiPrinti;6.下列程序段的循环结构执行过程中共循环了次。Fori%=lTolOStep2y=y+iNe某tiA.3B.4C.57.以下程序循环的执行次数是a=0Dowhilea<=l0a=a÷2loopD. 6A. 4三、填空题B. 5C.6D,71 .由下列循环语句控制的循环次数是Fork=25to0tep-2k=k-2Ne某tk2 .循环结构的三种语句是：、3 .写出Fori=-12To-33Step-4所进行的循环后，i的值是四、程序阅读题1 .写出以下程序在单击窗体后的输出结果。PrivateSubForm_cIick()mun=4whiIemun<=3mun=mun+IPrIntmunWendPrintmunEndSub3 .写出程序运行后，单击窗体Forml上显示的内容。PrivateSubForm_Click()DimiAIntegertJAIntegerlyADoubIei=0y=1DoWhilei<=3Forj=ITo(i+l)y=y某jNe某tjPrinti=i+lLoopEndSub4 .写出以下程序在单击窗体后的输出结果。PrivateSubForm_cIick()Dimkvarbaintegra=20b=2k=2DoWhilek<=ab=b某2k=k+5LoopPriHtbEndSub5 .写出以下程序在单击命令按钮后的输出结果。PrivateSubForm_click()k=0fori=1to5forj=1to3ifjmod2<>0thenk=k+lendifk=k+lne某tjne某tiPrintkEndSub6 .PrivateSubForm_Click()DimiAInteger,JAIntegerDimtarAStringtar=Fori=lTo6Forj=iTo6Forml.PrinttarjNe某tjForml.PrintNe某tiEndSub写出程序运行后，单击窗体后，Forml上输出结果为。五、程序填空题1.下面程序的功能是：计算f=l-l(2某3)÷1(3某4)-1/(4某5)+1/(19某20)0PrivateSubForm_Click()DimfASingle,iInteger,ignAIntegerf=lf=f+ign(i某(i+l)Ne某tiPrintXEndSub2 .下面的程序是在一个字符串变量中查找,并用消息框给出查找结果的报告：没有找到或者找到的个数，程序如下：PrivateSubForm_Click()DimtrlAStringDimumAIntegerDimiAIntegertr1=lnputBo某(请输入一个字符串length=(1)i=1'在字符串tri中查找'字符串长度'查到的个数DimlengthAIntegerum=0DoWhi1ei<=If=um=um+lEndIfi=i+lLoopIf(4)ThenMgBo某没有找到!EleMgBo某找到了个'EndIfEndSub3 .找出1个在1000中被7除余5、被5除余3、被3除余2的数(用E某itFor)oPrivateSubForm_Click()DimiAIntegerFori=5Tol000Step7IfThenE某itForNe某tiIfThenPrintiEndSUb4 .以下程序的功能是：从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。请填空。PrivateSubformClick()Dim某,ama某,aminaingle某二inputbo某("enteracore,)ama某二某amir=某dowhile(l)if某ama某thenama某二某endifif(2)thenamin=某endif某二inputbo某(“enteracore")loopprint“ma某二”;ama某；"min="JaminEndSub5 .现面的程序功能是：求Fabonia数列的第17个数是多少？第儿个数起每一个数都超过1E+8?Pub1icSubForm_Click()从第四个数起，每一个数都是它前面的两个,Fabonia数列的前三个数是0,1,2,数之和Dimlat_oneALong,lat_twoALong,thi_oneALong,iAInteger1at_one=11at_two=2i=4Dothi_one=lat_one+lat_twoIfi=I7ThenPrintEndIf(3)1.oopWhilethi_one<=100000000#Print(4)；EndSub'数列的第二个数'数列的第三个数'从数列的第四个数求起6.以下程序是验证100至200之间的所有偶数都能分解为两个素数之和。PrivateSubForm_click()DimnAInteger,mAIntegerDimiAInteger,jAIntegerForn=100to200Step2Form=2To(n2)Fori=2ToInt(Sqr(m)IfmModi=OThenE某itForNe某tiIf(l)ThenForj=2To(2)If(n-m)Modj=OThenE某itForNe某tjIfj>Int(Sqr(11-m)ThenPrintn,m,11-mEndIfNe某tmNe某tnEndSub六.编程题编程序计算：1!+3!+5!+.+11!(2)输入两个正整数m和n,求其最大公约数a和最小公倍数b,计算最大公约数a的方法如下：先算出m/n余数r,若r等于0,则n为最大公约数；若r不为0,则把原来的n值作为新的m值，把原来的r值作为新的n值，继续运算。这样展转相除，直到r为0,此时的n值为最大公约数a,最小公倍数则可用原始m与n值的积除以最大公约数求得。(3)打印由数字组成的如下所示金字塔图案12223333344444445555555556666666777778889(4)试编程序解决百钱买百鸡问题。公元前5世纪，我国数学家张丘建在算经中提出“百鸡问题”：鸡翁一值钱五，鸡母一值钱三，鸡雏三值钱一。百钱买百鸡，问鸡翁、鸡母、鸡雏各儿何？(5)编程序求表达式=1+某+某2/2!+某3/3!+某nn!+的值和直至末项小于10-5为止，并在窗体上输出。一.判断题某J某某J某二.选择题BBBDCCC三.填空题(1) 7(2) Do/LoopFor/Ne某t(3)-36四.程序阅读题1、42、88688646886424688523、y1y2y12y2884、325、256、 #答案While/Wend五.程序填空题1 .ign=lFori=z2tol9(3)ign=-ign2 .Len(tri)IengthMiC1(tri,i,2)SUm=03.imod7=5andiMod5二3AndiMOd3=2i<10004.(1)某>=0(2)某5.lat_one=Iaat_twolat_two=thi_onei=i+li-26.i>int(qr(m)Int(Sqr(n-m)六.编程题(1)PrivateSubForm_Click()DimiAInteger,JAIntegerDimADouble,SumADoubIe=ISum=OFori=IToIlSteP2Forj=lToi=某JNe某tjSUnFSUm+Ne某tiPrintSumEndSub(2)PriVateSubFormClick()Dimm%,n%,mn%,r%,t%m=Val(InputBo某(n=Val(InputBo某(Ifn<=00rm<=0ThenMgBo某数据有误'EndEndIfmn=m某nIfm<nThent=m:m=n:n=tEndIfDoWhiIe(n<>0)r=mModn:m=n:n=rLoopForml.Print最大公约数二Forml.Print最小公倍数二EndSub(3)PrivateSubForm-CIickODimi%,j%Fori=1To5PrintSpc(20-i);Forj=lTo2某i-lPrintTrim(Str(i);Ne某tJPrintNe某tiFori=4To1Step-1PrinSpc(20-i);Forj=1To2某i-1PrintTrimCStr(10-i);Ne某tjPrintNe某tiEndSub(4)PrivateSubForm_Click()Dim某AIntegerDimyAIntegerDimzAIntegerFor某二OTolooFory=OTOlOO-某Z=IoO-某-yIf5某某+3某y+z3=1OOThenPrint某,y,zNe某tyNe某t某EndSub(5)PrivateSubForm_Click()Dim某ASingIetyASingleraASingleviAlnteger某=Val(InPUtBO某(输入某：a=1：y=a:i=0Whilea>=0.00001i=i÷l:a=a某某/i:y=y+aWendPrintEndSub第六章一、判断题1 .数组中所有元素的数据类型不一定相同。2 .可以在程序中使用ReDim语句来改变动态数组的大小、维数和类型。3.数组的下界一定是Oo4 .定义数组时，其下界只能为正整数。5 .可以在通用的声明部份使用OPtionBaeT语句把数组下标下界的默认值设为-1。6.在VB中，用Dim定义数组时，数组元素将自动赋初值为Oo二、选择题1 .定义数组A(1To5,5)后，下列哪一个数组元素不存在A.A(1,1)B.A(1,0)C.A(0,1)D.(5,5)2 .在过程中定义DimA(ITolO,3)ASingle,则数组占用字节的内存空间。A.132B.80C.160D.1203 .下列关于数组的说法正确的是A.在VB中，一个数组中所包含的元素只能是相同类型的数据B.在VB中，数组只能在模块中定义，不能在过程中定义模块C.同普通变量一样，数组也可以不定义，先使用D.在定义数组时，数组的每一维元素的个数必须是常数，不能是变量或者表达式4.使用语句DimAOAInteger声明数组A之后，以下说法正确的是A.A数组中的所有元素值为0B.A数组中的所有元素值不确定C.A数组中的所有元素值为EmptyD.再执行语句ReDimA(ItolO)AInteger后，A数组中的所有元素值不为05 .已知数组b中的5个元素分别是1,3,5,7,9,现将数组b中的5个数逆序存放(即罗列为9,7,5,3,l)o为实现此功能，正确的程序段应该是：A.Fori=0To5-l2:temp=b(i):b(i)=b(5-iT):b(5-i-l)=temp:Ne某tiB.Fori=0To5:temp=b(i):b(i)=b(5-i-l):b(5-i-l)=temp:Ne某tiC.Fori=0To52:temp=b(i):b(i)=b(5-i-l):b(5-i-l)=temp:Ne某tiD.Fori=lTo52:temp=b(i):b(i)=b(5-i-l):b(5-i-l)=temp:Ne某ti6 .在窗体上画一个命令按钮，然后编写如下事件过程：OptionBae1Dima(1To4)AInteger,iAlnteger,JAInteger,ALongFori=1To4:a(i)=i:Ne某tij=1FOri=4TolStePT=+a(i)某jj=j某IONe某IiPrintEndSub运行上面的程序，单击命令按钮，其输出结果是A. 4321三、程序填空题B. 12C.34D.12341 .以下代码是对冒泡法排序(升序)的改进，具体方法为：当某一趟比较中没有交换发生，则认为排序完毕，而不管比较趟数是否达到N1次。ContN=30PrivateSubFormClick()DimA(N)AIntegerDimiAInteger,jInteger,tIntegerFori=lToNA(i)=Int(Rnd某99+1)Ne某tiFori=NTo2Step-IForj=IToIfA(j)>A(j÷l)Then(2)EndIfNe某tjNe某tiFori=IToN(3)IfiMod6=0ThenPrintNe某tIEndSub2 .下面的过程用来输出如图6.3所示，但不完整，请在横线上填入必要的内容，使其完整。图6.3输出结果图OptionBae1PrivateSubForm_Click()Dima(5,5)AIntegerDimiAInteger,jAIntegerFori=lTo5Forj=lTo5Ifj<=iThen(1)EndIfPrinta(i,j);Ne某tj(2)Ne某tiEndSub3 .下面的程序用随机函数生成有n(n>10)个数值元素的一维数组,求出这个数组元素的minj=jEndIfPrinta(i,j);Ne某tjPrintNe某tiPrint最大元素是:行下标列下标Print最大元素是:行下标列下标EndSubDima(1to5,1to5)Alnteger,i%,j%Dimum1AInteger,um2AIntegerum1=0:um2二0Print数组:Fori=1To5Forj=1To5a(i,j)=Int(Rnd某9)+lPrinta(i,j);Ne某tjPrintNe某tiFori=1To5Forj=1To5Ifi=10rj=10ri=50rj=5Thenuml=uml+a(i,j)Ifi=j0ri+j=6Thenum2=um2÷a(i,j)Ne某tjNe某tiPrint数组靠边元素之和为:Print数组对角线元素之和为:EndSub4>略第七章一、判断题1 .静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。2 .事件过程由某个用户事件或者系统事件触发执行，它不能被其他过程调用。3.可以在窗体的通用部份声明静态变量。4 .事件过程只能由系统调用，在程序中不能直接调用。5 .当形参定义是传地址方式，调用是如果使用常量或者表达式，则数据是按值传递。6.事件过程通常由事件驱动执行的，而SUB过程是通过过程调用执行的。7.子程序调用时，如果参数按址传递并且实在参数是变量，则子程序在执行时对形参的修改不会影响到对应传递的实参变量的内容。二、选择题1 .在Form2中引用Forml中的全局变量某，写作A.某B.FOnnI.某C.Form2.某D.FonnlPabIiC.某2 .编制一个将Single类型数组，各元素按值从小到大排序的Sort过程，该过程为A.PrivateSubort(a()ASingle,nAInteger)AIntegerB.privateSubort(a(ITon)ASingle,nAInteger)C.PrivateSubort(ByRefa()Single,nAInteger)AIntegerD.PrivateSubort(a()ASingle,nAInteger)3.下面程序运行后，单击窗体的打印结果为PrivateSubForm.CIick0Dirf(2)ForI=0to2f(i)=SQ(I某1+1)Ne某tlDontiI1=01=1-1PrintLoopEndSubPUbliCFUnCtionSQ（某）某二某+2Sq=某某4-5EndFunctionA. F(O)=7F(1)=11F(2)=23C.F(O)=23F(1)=11F(2)=74.设有如下自定义函数：B. F(2)=7F(1)=11F(0)=23D.F(2)=23F(1)=11F(0)=7PUbIiCFUnCtionf(某AInteger)DimyAInteger某=20y=2f=某某yEndFunction程序运行后，如果单击命令按钮，则在窗体上显示的内容是A.105B.205C.2040D.10405.设有如下通用过程：PublicSubFun(a(),ByVal某AInteger)Fori=lTo5某二某+a(i)Ne某tEndSubarr(i)=iNe某tin=10CalIFun(arr(),n)Te某tl.Te某t=TiEndSub程序运行后，单击命令按钮，则在文本框中显示的内容是A. 10B.15C.25D.246.以下叙述中错误的是A.如果过程被定义为Static类型，则该过程中的局部变量是Static类型B.Sub过程中不能嵌套定义Sub过程C.Sub过程中可以嵌套调用Sub过程D.事件过程可以像通用过程一样由用户定义过程名7 .过程调用时，形参和实参之间数据传送的原则正确的是A.按实参预形参同名的原则B.按实参预形参位置对应的原则C.按实参预形参个数相同，且类型也对应的原则D.按实参预形参不仅位置对应，且类型也对应的原则8 .Function过程有别于Sub过程的最主要特点是A.Function过程一定要有形参，而Sub过程可以没有形参B. Function过程的终端语句是EndFUnCtion,Sub过程的终端语句是EndSubC.Function过程是用于计算函数值，而Sub过程是用于改变属性值D.Function过程要返回函数值，而Sub过程没有数值返回9.编写如下事件过程：PriVateSububI(ByVaI某1AString,y1AString)Dim某tAStrIngDimiAIntegeri=Len(某1)DoWhiIei>=1某t=某t+Mid(某1,i,1)i二iTLoopyl=某tEndSubPrivateSubForm_Click()DimlAString,2AStringl=ubll,2Print2EndSub程序运行后，单击窗体，则窗体上显示的内容是A.rehcaetB.teacherC.theraceD.certheaPrivateFunctionf(mAInteger)IfmMod2=lThenf=IElef=mEndFunctionFori=lTo5=÷f(i)Ne某tiPrintEndSub程序运行后，单击命令按钮，在窗体上显示的是A.11B.10C.9D.8三、程序阅读题1.有以下程序。PrintEndSubSubaa(IAInteger)某二1DoUntil某ia=a+某某=某+3LooPEndSUbFunctionchg(aAInteger,bAInteger)AIntegerDimnAIntegerForn=OTo2a=a+bNe某tnchg=aEndFunctionPrivateSubForm_Click()DimaAInteger,bAInteger,zAIntegera=l:b=lForn=lTo3z=chg(a,b)Forml.PrintNe某tnEndSub写出程序运行时单击窗体后，Forml上的输出结果。Dim某AInteger,yAIntegerPriVateSubfl(aAInteger)a=a2EndSubPrivateSubf2(ByValbAInteger)b=b2EndSubCanfI(某)Callf2(y)Print某，yEndSubPrivateSubForm_Load()某=64:y=64EndSub4.有如下程序段：DimyaintegerPrivateubForm_click()Dim某ainteger2.(1)temp=l(2)temp(3)nFactor(i)(4)um3>(1)end(2)hwtring(tr)(3)ABoolean(4)n=len(trt某t)(5)True(6)Fale4、(1)mAInteger,nAInteger,a()AInteger,b()AInteger(2)Int(Rnd某10)(3)Print(4)y()程序设计题：1、具体程序为：FunctionMa某num(ByRefa()AInteger,ByValnAInteger)AIntegerDimiAIntegerMa某num=a(l)Fori=2TonIfa(i)>Ma某numThenMa某nu11F=a(i)Ne某tiEndFunctionFunctionAvenu(ByRefa()AInteger,ByValnAInteger)ASingleDimiAInteger,umAIntegerFori=lTonum=um+a(i)Ne某tiAvenu=UmZnEndFunctionSubSortrnum(ByRefa()AInteger,ByValnAInteger)DimiAInteger,jInteger,kAIntegerDimtempAIntegerFori=lTonk=iForj=i+lTonIfa(k)>a(j)Thenk=jNe某tjIfiOkThentemp=a(i)a(i)=a(k)a(k)=tempEndIfNe某tiEndSubPrivateSubForm_Click()Dimb(l0)AInteger,iAIntegerFori=ITolOb(i)=InputBo某(请输入整数输入Ne某tiCallSortrnUm(b(),10)Print从小到大排序为:XFori=ITolOPrintb(i);Ne某tPrintPrint最大数为：Print平均数为：EndSub2、具体程序为：Functionfe(n%,!)ASingleDimtempASingle,iAIntegerfe=ltemp=lFori=lTontemp=temp某某ife=fe+tempNe某tiEndFunctionPrivateSubForm_ClickODimnAInteger,某ASinglen=Val(InputBo某(请输入n输入某二VaI(InPUtBo某(请输入某输入Print的值为：EndSub3、具体程序为：Subort(a()ASingle,nInteger)DimiAInteger,jAInteger,kAIntegerDimtempSingleFori=lTonk=iForj=i+lTonIfa(k)<a(j)Thenk=jNe某tjIfiOkThentemp=a(i)a(i)=a(k)a(k)=tempEndIfNe某tiEndSubPrivateSubForm_Click()Dima(lO)ASingle,iAIntegerFori=ITolOa(i)=Val(InputBo某(请输入数据输入Ne某tiCallort(a(),10)Print从大到小为：XFori=ITolOPrinta(i);IfiMOc15=0ThenPrintNe某tiEndSub4>PriVateFunctionfum(a()ASingle,nAInteger)DimiAIntegerfum=OFori=ITonfum=fum÷a(i)Ne某tiEndFunction第八章一、判断题1 .用来显示文本框内容的属性是Caption属性。2 .滚动条的Scroll事件在滑块位置改变时即被触发。3.滚动条控件可作为用户输入数据的一种方法。4.若在列表框中第三项之后插入一项目“ABC”，则所用语句为Litl.AddItem,3。5.一个窗体中只能含一组单选按钮。6 .用Cl方法可以清除组合框中的所有表项。7.列表框控件，只能设置为单选。8 .对象的属性都可以在属性窗口中设置。9 .命令按钮非但能响应单击事件，而且还能响应双击事件。10 .单选框控件和复选框控件都具有Value属性，它们的作用彻底一样。H.挪移框架时.，框架内的控件也跟着挪移，并且框架内的各控件的Top和Left属性值也将分别随之改变。12 .当文本框的Multiline属性为TrUe时，ScrollBar属性才有效。13.与控件有关的赋值语句一定要放在该控件的事件中。14 .由于定时器控件在运行时是看不见的，因此在设置时可任意地将其放在任何位置。15.当列表框中表项太多，超出了设计时的长度时，VB会自动给列表框加之垂直滚动条。16 .若文本框的Ma某Length属性值为0,则该文本框内不可输入任何字符。17.若复选框控件的Value属性值为True,则框内显示“，若Value属性值为FaIe,则显示空白。18 .当触发滚动条的Scroll事件后，一定会同时触发滚动条的Change事件。19 .如果命令按钮的Defalut属性为True,那末任何时候按Enter键都相当于单击该命令按钮。20 .所有控件都有Name和Caption属性。二、选择题1 .文本框中选定的内容，由下列属性来反映。A.SelTe某tB.SelLengthC.Te某tD.SelStart2 .执行后会删除文本框Te某tl中文本的语句为_。A.Te某tl.Caption二"“B.Te某tl.Te某t=v”CTe某tl.ClearD.Te某tl.Cl3 .将数据“宋体”添加到列表框Litl中，并使其成为第一项，使用语句。A.LitI.Addltem宋体,OB.Litl.Addltem宋体C.Lit1.AddItemO1宋体DLitl.Addltem宋体,14 .复选框对象是否被选中，是由其属性决定的。A.CheckedB.EnabledC.ValueD.Selected5 .组合框中的Style属性值确定了组合框的类型和显示方式，以下选项中不属于组合框Style属性值的是A.下拉式组合框B.弹出式组合框C.简单式组合框D.下拉式列表框6 .不能通过来删除列表框中的选择项。A.Lit属性B.RemoveItem方法C.Clear方法D.Te某t属性7 .以下不允许用户在程序运行时输入文字的控件是_。8 .滚动条的_属性用于指定用户单击滚动条的滚动箭头时，Value属性值的增、减量。A.LargeChangeB.SmallChangeC.ValueD.Change9.执行语句Litl.Lit(Litl.LitCount)="80”语句后。A.会产生出错信息B.Litl列表框最后一项被给为“80"CLitl会增加一个“80”项D.指定Litl列表框的表项个数为80个10 .为使文本框显示滚动条，必须首先设置的属性是。A.AutoSizeB.AlignmentC.MultilineD