vb二级考试练习题及答案

vb习题 PAGEPAGE9工程文件的扩展名是 。VB中若要产生一个消息框用 实现。若要获得滚动条的当前位置，可以通过 属性来实现。关闭正在运行的VB窗口将自动触发的事件是 .窗体的标题栏属性由窗体对象的 属性决定。1、VB程序设计的主要特点是 和 。2、在VB中，最主要的两种对象是 和 。5、浮点类型数据包括单精度型数据。6、事件是窗体或控件对象识别动。7、可用窗体

_ 方法在窗体中显示文字。9、在VB中，修改窗体的 和 属性值，可改变窗体的大小。10、双击工具箱中的控件图标，可在窗体的 出现一个尺寸为缺省值的控件。11、在MsgBox函数中，如果缺省title参数，则使用 作为消息框的标题。12、设x＝34.58，语句PrintFormat(x,“000.0”)的输出结果是 。13在VB中数值型变量的初值为 型变量的初值为 布尔型变量的初值为 FALSE 。14、设置窗体的 属性，可在窗体上显示图片二、选择题1、菜单控件只包括一个事件，即 ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条外的所有菜单控件都能识别该事件。A、GotFocus 、Load 、Click 、2、滚动条控如图所的Max属性所设置的是 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D、滚动条控件无该属性4、以下选项中，不属于标签的属性是 。A、Enabled 、Caption 、Default Font5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 。ACaption 、Name 、Text Label6、设置一个单选按(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 。A、Caption 、Name 、Text 、Value7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？ 。A、在标题项中输&，然后打勾 、在索引项中打勾C、在有效项中打勾 、在复选项中打8、当执行以下过程时，在窗体上将显示 。PrivateSubCommand1_Click()Print"VB";Print"Hello!";Print"VB"EndSubA、VBHello!VB 、VB 、VB 、VBHello!VB Hello! VB Hello!VB9、语句Print"Theansweris:";20/4-2的结果为 。A、Theansweris20/4-2 、TheanswerisC、Theansweris"20/4-2" 、非法语句10、下列哪个控件是容器控件 。AImage 、Picture 、ComboBox 、FileListBox11、若要将窗体从内存中卸载出去，其实现的方法是 。A.Show B.Hide C.Load 12、以下选项中，不是VisualBasic控件的是 。A.窗体 定时器 C.单选框 D.命令按13、双击窗体中的对象后，VisualBasic将显示的窗口是 。A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗14、可决定窗体的左上角是否有控制菜单的属性是 。A.ControlBox B.MinButtonC.MaxButton 15、设有如下语句：Strl＝InputBox（"输人"，""，"练习"）从键盘上输人字符“示例”后，Strl的值是 。A．“输入” B．“” C．“练习” D．“示例16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 。Form1_Click B.Form_Click C.Frm1_Click D.17、窗体的hide属性的含义是 。A.隐藏 展现 装入 卸18、若要设置定时器控件的定时时间，需设置的属性是 。A．Enabled B．Value C．Interval 19、能够改变复选框中背景颜色的属性是 。A．Value B．FontColor C．BackColor 20、窗体能响应的事件是 。A．ActiveForm B．Load C．Drive D．Change三、判断题(判断下列正确与否，正确的打√，错误的打ⅹ。)1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。2、图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图象控件。3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。4、通过改变属性窗口中的Name属性，来改变窗体的标题。5、创建VB应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3)编写代码。6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。7、已知P＝MsgBox(“Howareyou?"，VbYesNo+VbQuestion，“Hello!”)，变量PInteger9、VB10、OptionButtonDblCliek15、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除（真正删除）。16、如果列表框的ListConut的属性为10，则列表框最后一项的ListIndex值为10。17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。18、使用数组定义语句：DimD$（10），则数组D中各元素的值为空。19、如果在一行中输入多条语句，各语句之间用使用；分隔。20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。四、读程序题，写出程序运行结果1、PrivateSubForm_Click()StaticSUMAsIntegerI=1DoWhileSUM=SUM+II=I+1LoopPrintEndSub运行程序，第一次单击窗体： 55第二次单击窗体： 1102、PrivateSubForm_Click()Print"*";Tab(6);2,Tab(15);5PrintForI=15To16PrintI;Forj=2To6Step3PrintTab(3*j);j*NextjPrintNextIEndSub程序运行结果： *25153075163280五、编程题（一）(Picture1)(Timer1)2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip（20分之一像素）。请填空：PrivateSubForm_load()Picture1.picture =loadPicture(“c:picball.ico”)Timer1 .Interval=200EndSubPrivateSubTimer1_Timer(Staticx,yAsIntegerx=x+100y=y+100Picture1.Move x,yEndSub（二）有一个单击按钮过程，其作用是产生5060～10062这些数输出。请填空：PrivateSubCommand1_Click()DimxAsInteger,N%DimCounterAsrandomize TimerForN=1To50X=Rnd()* If xMod6 =2PrintxCounter= EndifNextNPrintCounterEndSub六、随机产生30100（包括30、100）的10个正整数，求最大值、最小值、平均值、和。PrivateSubForm_click()Dimi%,s%,aver%,max%,Dima%(10)min100:maxPrint"10Fori=1To10a(i)=Int(Rnd*71+30)Ifmax<a(i)Thenmax=Ifmin>a(i)Thenmin=a(i)s=s+a(i)Printa(i);Nextiaver=s/(i-PrintPrint"10Print"10minPrint"10sPrint"10EndSub答案填空1.vbp2.msgbox3.value4.unload5.caption 1.面向对象事件驱动 2.窗体（form）控件5.双精度动7.print 9.height width 10.中央 工程1 12.34.6 13.FALSE 14.picture选择1.C 2.A 4.C 5.A 6-10DDABB 11-15DAAAB16-20CAC1-5XXXXX 7.√9.√ 10.X15.X16.X17. 19.X20.√一、填空题VB（1）函数来实现。Msgbox常量是指在程序运行过程中， （2） 的量 其值不能改变整数类型数据分别包括整型和 （3） 数据。长整型4、在VB集成开发环境中，运行应用程序的方法有三种：一是_(4)；二是_(5)_；三是_(6)。“运行”菜单下的启动 单击工具栏上人启动按钮 按F5键5、在VB中若要让某对对象获取焦点，则可通过(7)_方法来实现。Setfocus列表框（ListBox控件）显示 (8) ，用户可从中选择一个或多个项目项目列表框架（Frame控件）可以用来 (9) 进行分组，以便于用户识别，主要用于为单选按钮分组对其他按钮8、在VB_(10)。属性9“取消(C)”“Alt＋C”键或按“ESC”Caption(11)(12)&CCancleTure10、在过程内用_（14）声明的变量为静态变量，在执行一个过程结束时，过程中所用到的Static变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被保留的值。Static11、在模块文件中的声明部分用Global或（15）关键字声明的变量为全局变量。Public12、在模块文件中的声明部分（16）或（17）定义的变量为模块级变量Dim Private13．计时器控件通过定期激活Timer事件，使得Timer控件 （18） 就执行一次Timer件中的代码。 每隔一个时间段14．要获得滚动条的当前位置，可以访问通过（19）Value值15．关闭正在运行的VB窗口将自动触发的事件是（20）。Unload二、选择题工程文件的扩展名是（ ）。A．vbg B.vbp C.vbwD.vbl2.在以下窗体中没有采用的控件是（）。A.文本框 B垂直滚动条 C．框架 D命令按钮3．滚动条控件（如图所示）的Largechange属性所设置的是（ ）单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量滚动条中滚动块的最大移动位置滚动条中滚动块的最大移动范围滚动条控件无该属性4、用于从字符串左边截取字符的函数是（）A、Ltrim()B、Trim() CLeft() D、Instr(5、可获得当前系统日期的函数是（）ADate() B、Time() C、IsDate() D、Year(6、退出For循环可使用的语句为（）AExitFor B、ExitDo C、EndFor DEndDo7、窗体的标题栏显示内容由窗体对象的（）属性决定。ABackColorBackStyleText D、Caption8、程序运行时，若要通过回车键调用某命令按钮的Click事件过程，则可设置该命令按钮的（）属性值为True来实现。AValue BEnabled CDefault DCancel9、当用户在窗体上单击鼠标时，不会触发的事件是（）AClick B、MouseDownC、MouseUp D、DblClick10、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是A、工程资源管理器窗口B、工具箱窗口C、代码窗口D、属性窗口11、设a=“VisualBasic”，下面使b=“Visual”的语句是A、b=Left(a,8,12)、b=Mid(a,8,5)C、b=Rigth(a,6)D、b=Left(a,6)12、若要使命令按钮不可用，则可设置其（）属性为False来实现。AValueBCancelCEnabledDDefault13．允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？（ A．在标题项中输&然后打勾 B在索引项中输“√”C．在复选项中输“√” D在有效项中输“√”14．当执行以下过程时，在窗体上将显示（ ）。Private Sub Commandl_Click()Print“VB”Print“Hello!”；Print“VB”EndSubVB Hello!VBVBHello!VBVBHello!VBHello!VBE、VBHello!VB15、以下不属于键盘事件的是（）AKeyDown B、KeyUp CUnload DKeyPress16、以下叙述中正确的是（）A、窗体的Name属性指定窗体的名称，用来标识一个窗体B、窗体的Name属性的值是显示在窗体标题栏中的文本C、可以在运行期间改变对象的Name属性的值D、对象的Name属性值可以为空17、图像框或图片框中显示的图形文件，由它们的（）属性值决定。ADownPicture B、Picture C、Image D、Icon18、文本框的（）属性用于设置或返回文本框中的文本内容。AText B、(名称) C、Caption DName19、复选框或单选钮的当前状态可通过（）属性来返回或设置。AChecked B、Value C、Selected D20VB提供（ ）属性用于控制对象是否可用。ADefault B、Cancel CEnabled DVisible三、判断题(判断下列正确与否，正确的打√，错误的打ⅹ。)1、设置属性的语句格式为对象名．属性名＝属性”． ( )2、若用户在键盘上按下一个键，则会产生一个单击事件事件）．( )3、VB的赋值语句只能给变量赋值．( )4、在VB中，字符型常量应使”＃”号将其括起来．( )5、窗体大小只能通过鼠标拖动窗体边框来设置)在定义了一个函数后，可以象调用任何一个VB内部函数一样使用它，即可以在任何表达式、语句或函中引用它。（ ）VisualBasic表达式为）VisualBasic表达式为：3*cos(c+d)^2或3*cos(c+d)*cos(c+d) ( 9.VB程序语言两个基本特点是：结构化和事件驱动编程。（）10．工程资源管理器用于查看和管理工程类的文件，不能删除文件。（四、读程序题，写出程序运行结果PrivateSubForm_Click(StaticSumAsIntegerForI=1To10Sum=Sum+INextIPrintSumEndSub 55PrivateSubForm_Click()Print"*"；Tab(9);3,Tab(18);6PrintForI=15to16PrintI;Forj=3To6Step3PrintTab(3*j);j*I;NextjPrintNextIEndSub* 3 615 45 9016 48 96PrivateFunctionFac(nAsInteger)AsIntegerDimfAsIntegerf=f+nFac=fEndFunctionPrivateSubForm_Click()DimIAsIntegerForI=1To5Print"∑"；I&"="&Fac(I)NextIEndSub∑1=1∑2=2∑3=3∑4=4∑5=5PrivateSubCommand1_Click(Text1.Text=努力EndSub“”PrivateSubCommand2_Click()Text1.Text="学习"EndSub 学习单击Command2按钮，又单击Command1按钮，在文本框中显示什么？五、编程题1． 1、在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1文本框中显示一次当前的时间。程序如下，请在下划线上填入恰当的内容。PrivateSubTimer1_ TxtTime.text= EndSubTimer 2、