搜索
VB模拟5一、单项选择。1.将焦点主动设置到指定的控件或窗体上,应采用(A)方法.A、SetFocusB、SetDataC、SetTextD、GetGata2.以下叙述中错误的是(D).A、VisualBasic中控件的某些属性只能在运行时设置B、VisualBasic应用程序不具有明显开始和结束语句C、VisualBasic是事件驱动型可视化编程工具D、VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性3.以下控件中不属于容器的是(B).A、FormB、ImageC、PictureBoxD、Frame4.要使文本框中的文本显示掩码(密码)符,在属性设置时,首先必须设置(A)属性为False.A、MultilineB、TextC、VisibleD、Enabled5.下列哪个变量的取法是不正确的(B).A、TNameB、T32#C、T32D、T_Temp6.删除字符串前导和尾随空格的函数是(A).A、Trim()B、LcaseC、Rtrim()D、Ltrim()7.组合框有三种风格,它们由Style属性所决定,其中为下拉列表框时,Style属性值应为(A).A、2B、1C、3D、08.假设变量BOOLVAR是一个布尔型变量,则下面正确的赋值语句是(B).A、BOOLVAR=#TRUE#B、BOOLVAR=34C、BOOLVAR=.TRUE.D、BOOLVAR='TRUE'9.下列(B)是窗体的扩展名.A、basB、frmC、dllD、cls10.组合框控件是将(A)组合成一个控件.A、列表框控件和文本框控件B、标签控件和文本框控件C、复选框控件和选项按钮控件D、标签控件和列表框控件11.RGB函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB(红,绿,蓝),括号中红、绿、蓝三基色的成分使用0~255之间的整数.若使用三个滚动条分别输入三种基色,为保证输入数值有效,则应设置(C)属性.A、Smallchange和LargeChangeB、ValueC、Max和MinD、Scroll和Change12.改变控件在窗体中的左右位置应修改该控件的(D)属性.A、RightB、WidthC、TopD、Left13.以下不具有Picture属性对象是(D).A、图片框B、窗体C、图像框D、文本框14.为了把焦点移到某个指定的控件,所使用的方法是(A).A、SetFocusB、VisibleC、GetFocusD、Refresh15.MSGBOX函数中有4个参数,其中必须写明的参数是(D).A、指定对话框中显示按钮的数目B、设置对话框标题C、所有参数都是可选的D、提示信息16.在文本框中欲使掩码符(如*)起作用,必须设置MultiLine属性值为(B).A、-1B、FalseC、1D、True17.欲使某命令按钮失效,应修改命令按钮的(C)属性.A、CaptionB、VisibleC、EnabledD、Enable18.决定控件上文字的字体、字形、大小及效果的属性是(C).A、TEXTB、CAPTIONC、FONTD、NAME19.表达式4+5\6*7/8Mod9的值是(B).A、4B、5C、7D、620.如果要在菜单中添加一个分隔线,则应将其Caption属性设置为(D).A、&B、*C、=D、-21.若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的(A)属性.A、BACKSTYLEB、BORDERSTYLEC、FORECOLORD、BACKCOLOR22.在一个语句行内写多条语句时,语句之间应该用(C)分隔.A、冒号B、分号C、逗号D、顿号23.用鼠标拖动滚动条中滚动块并释放,将触发滚动条的(A)事件.A、ScrollB、ChangeC、DragOverD、A和B24.要使标签能够显示所需要的东西,则在程序中应设置其哪一属性的值(B).A、TextB、CaptionC、NameD、AutoSize25.标准工具箱中的控件(D).A、数目是固定不变的B、数目可以增加或减少C、包含了VisualBasic所有控件D、在窗体建立对象时不一定被使用26.退出VisualBasic的快捷键是(D).A、Ctrl+QB、Shift+QC、Ctrl+Alt+QD、Alt+Q27.不能通过(D)来删除列表框中的选项.A、List属性B、Clear方法C、RemoveItem方法D、Test属性28.下列方法中可用于列表框动态添加数据的是(D).A、removeitemB、addC、addlistD、additem29.在VisualBasic环境中,请问标准模块的扩展名是(B).A、clsB、basC、vbpD、frm30.要在图片框P1中打印字符串HowAreYou,应使用语句(A).A、P1.PrintHowAreYouB、PrintHowAreYouC、P1.Picture=LoadPicture(HowAreYou)D、Picture1.Print=HowAreYou二、多项选择。1.为了取消窗体最大化功能,需要把它的1个属性设置为False,这个属性不是(ABD)A、ControlBoxB、MinButtonC、MaxButtonD、Enabled2.假定Picture1和Text1分别为图片框和文本框的名称,则下列正确的语句是(BCD)A、Text1.Print25B、Print25C、Debug.Print25D、Picture1.Print253.假设有如下变量声明,DimTestDateAsDate,则为变量TestDate错误赋值的表达式是(ACD)A、TestDate=date(1/1/2004)B、TestDate=#1/1/2004#C、TestDate=#1/1/2004#D、TestDate=Format(m/d/yy,1/1/2004)4.下面的语句用Array函数为数组a的各元素赋整数值:a=Array(1,2,3,4,5,6,7,8,9),对数组变量a的错误定义是(ABC)A、DimaasIntegerB、Dima()AsIntegerC、Dima(9)AsIntegerD、Dima5.以下关系表达式中,其值为真的是(ACD)A、thethereB、VisualBasic=visualbasicC、IntegerIntD、XYZXYz6.以下关于窗体的描述中错误的是(AD)A、当窗体的Enabled属性为False时,通过鼠标和键盘对窗体上的控件的操作不受影响B、窗体的Load事件在加载窗体时发生C、窗体的Height、Width属性用于设置窗体的高和宽D、执行UnloadForm1的语句后,窗体Form1消失,但仍在内存中7.VB6.0集成环境的主窗口中包括(ABC)A、工具栏B、标题栏C、菜单栏D、状态栏8.确定控件在窗体上的位置的属性是(BD)A、WidthB、LeftC、HeightD、Top9.下列描述中正确的是(ABD)A、当单选按钮的Value属性值为True时表示选中B、单选按钮可以接收Click事件C、在1组单选按钮中,可以选择1个,也可以选择多个D、复选框中为空白时表示未选中10.假定窗体的名称(Name属性)为Form1,则把窗体的标题设置为VBTest的语句为(A)A、Caption=VBtestB、Form1.Name=VBtestC、form1.Text=VBtestD、Form1=VBtest三、判断。1.过程中的静态变量是局部变量,当过程再次被执行时,静态变量的初值是上一次过程调用后的值.（对）2.Shape控件和Line控件可以在窗体中移动,因此它们具有Move方法.（错）3.当窗体的ScaleTop=0,ScaleLeft=0时,这个窗体Top和Left值也是0.（错）4.如果没有使用Public、Private或者Friend,Sub过程在缺省情况下是公用的、（错）5.用dim语句声明的局部变量能保存上一次过程调用后的值.（错）6.方法是VB对象可以响应的用户操作.（错）7.图片框的属性Enabled设置为FALSE,图片框上的控件仍可响应用户操作.（错）8.在VB中将一些通用的过程和函数编写好并封装作为方法供用户直接调用.（对）9.Frame控件是一种容器控件,因此它可有它自己的坐标系.（对）10.VB支持弹出菜单,所谓弹出菜单是指单击鼠标后打开的菜单.（错）四、程序改错。1.程序改错】'------------------------------------------------'题目:使用顺序文件读写方式编写一个简单的记事本应用程序，'基本逻辑是：假设在考生目录中有一个名为exam.txt的文'本文件。当点击打开按钮(Command1)时，程序将exam.Txt'文件中的内容显示在文本框(Text1)中，当点击新建按钮'(Command2)时，清空Text1中的内容；用户可以在Text1中进行'编辑操作，当点击保存按钮(Command3)时，将Text1中的内容'保存在exam.txt文件中。当点击退出按钮(Command4)时关闭本窗体。'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------PrivateSubCommand1_Click()DimAAsStringText1=Openexam.txtForInputAs#1DoWhileNotEOF(1)'**********ERROR**********Input#0,AText1=Text1+ALoop'**********ERROR**********Close#0EndSubPrivateSubCommand2_Click()Text1=EndSubPrivateSubCommand3_Click()Openexam.TxtForOutputAs#1'**********ERROR**********Input#1,Text1Close#1EndSubPrivateSubCommand4_Click()UnloadMeEndSub答案：Input#1,AInput1,AClose#1Close1Write#1,Text1Write1,Text12.'【程序改错】'------------------------------------------------'题目：已知C的公式表示如下:'n!'C=------------------'(n-m)!*m!'函数过程fac()求k！函数,在Fomr_Click事件中完成运算，'请修正程序中错误。'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------PrivateFunctionfac(kAsInteger)AsSingleDimxAsSingle,jAsInteger'**********ERROR**********x=0Forj=1Tok'**********ERROR**********x=x^jNextjfac=xEndFunctionPrivateSubForm_Click()DimCAsSingleDimmAsInteger,nAsIntegerm=Val(InputBox(请输入一个整数(m)：))n=Val(InputBox(请输入一个整数(n)：))'**********ERROR**********C=fac(n)/fac(n-m)*fac(m)PrintC=;CEndSub答案：x=1x=x*jx=j*xC=fac(n)/fac(n-m)/fac(m)C=fac(n)/(fac(n-m)