VB冲刺模拟试卷五

VB冲刺模拟试卷五一、选择题1．创建VB应用程序的主要步骤是：①创建应用程序界面②设置控件③设置属性④编写代码，其中正确的步骤是（）A．①③④B．①②④C．②③④D．①②③④2．下列各组常量的声明正确的是（）A．ConstCas3B．Constc=1/3C．PublicI=3D．PuclicI=1/33．每当窗体失去焦点时会触发的事件是（）A．ActiveB．LoadC．LostFocusD．GetFocus4．执行以下程序段后，变量C$的值为（）a$=”VisualBasic”b$=”Quick”c$=b$&Ucase(Mid$(a$,2,3))&Right$(a$,2)A．QuickVisualB．QuickBasicC．QuickisuicD．QuickISUic5．语句DimA&(10),B#(10,5)定义了两个数组，其类型分别为（）A．一维实型数组和二维双精度型数组B．一维整型数组和二维实型数组C．一维实型数组和二维整型数组D．一维长整型数组和二维双精度型数组6．如果变量a、b、c均为整型，下列程序段的输出结果为（）a=2b=3c=a*bPrinta&“*”&b&“=”&cA．c=6B．a*b=cC．2*3=6D．a*b=67．如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是（）ForI=atobPrintINextIA．0B．1C．2D．38．在程序运行期间，如果拖动滚动条上的滚动块，则触发的事件是（）A．MoveB．ChangerC．ScrollD．GetFocus9．假定窗体上有一个标签，名为Label，为了使该标签透明并且没有边框，则正确的属性设置为（）A．Label.Backstyle=0B．Label.Backstyle=1Label.Borderstyle=0Label.Borderstyle=1C．Label.Backstyle=TrueD．Label.Backstyle=FalseLabel.Borderstyle=TrueLabel.Borderstyle=False10．下列关于dowhile…loop和do…loopuntil循环执行循环体次数的描述正确的是（）A．dowhile…loop循环和do…loopuntil循环至少都执行一次B．dowhile…loop循环和do…loopuntil循环可能都不执行C．dowhile…loop循环至少执行一次，do…loopuntil循环可能不执行D．dowhile…loop循环可能不执行，do…loopuntil循环至少执行一次11．以下哪类控件能用来显示图形（）A．LabelB．PictureBoxC．TextBoxD．OptionButton12．为了在运行时能显示窗体左上角的控制框（系统菜单），必须（）A．把窗体的ControlBox属性设置为False，其他属性任意B．把窗体的ControlBox属性设置为True，并且把BorderStyle属性设置为数值1~5之一C．把窗体的ControlBox属性设置为False，同时把Boderstyle属性设置为非0值D．把窗体的ControlBox属性设置为True，同时把BoderStyle属性设置为0值13．下面的窗体中没含有的控件是（）A．单选钮B．复选框C．框架D．命令按钮14．下列关于属性设置的叙述正确的是（）A．所有的对象都有同样的属性B．控件的属性只能在设计时修改，运行时无法改变C．控件的属性都有同样的默认值D．引用对象属性的格式为：对象名称.属性15．在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：PrivateSubCommand1_Click()PrintTab(1);第一,PrintTab(6);第二;EndSub程序运行后，如果单击命令按钮，在窗体上显示的内容是（□表示空格）（）A．第一□□第二B．第一第二□□C．第一□□D．第一□□第二第二16．为了在CheckBox后面显示文本，需要设置的属性是（）A．VisibleB．CaptionC．EnabledD．Valua17．为清除PictureBox控件中的图形，下列方法正确的是（）A．SetPicture.Picture=LoadPicture(“c:\Win1.bmp”,vbLPLarge,vbLPColor)B．Picture.Picture=LoadPicture(“c:\Win1.bmp”,vbLPLarge,vbLPColor)C．SetPicture.Picture=LoadPictureD．Picture.Picture=LoadPicture18．假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为（）A．MenuItem.Enabled=FalseB．MenuItem.Enabled=TrueC．MenuItem.Visible=TrueD．MenuItem.Visible=False19．关于通用对话框控件叙述不正确的是（）A．CommonDialog控件是提供如打开和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框B．在运行Windows帮助引擎时，控件能够显示帮助信息C．控件显示的对话框由控件的方法决定D．设计时在窗体上将该控件显示成一个图标，此图标的大小可以调整20．下列关于文件的叙述正确的是（）A．二进制文件与随机文件类似，必须限制固定长度，可用喜欢的方式来存取文件B．按照文件的存取方式及组成结构可以分为两种类型：文本文件和随机文件C．文件是指存放在内部存储介质上的数据和程序等D．文件的基本操作指的是文件的删除、拷贝、移动、改名等21．在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：PrivateSubCommand1_Click()Fori=1To4a=1Forj=1To3a=2Fork=1To2a=a+6NextkNextjNextiPrintaEndSub程序运行后，单击命令按钮，则在窗体上显示的内容是（）A．14B．15C．16D．1722．设有如下程序：PrivateSubForm_Click()i=MsgBox(AAAAA,2,BB)EndSub程序运行后，单击窗体，则在窗体上显示的内容是（）23．在窗体中添加一个列表框List1、一个组合框Combo1、一个文本框Text1和一个命令按钮，编写如下代码：PrivateSubForm_Load()List1.AddItem11List1.AddItem22List1.AddItem33Combo1.AddItem44Combo1.AddItem55Combo1.AddItem66Text1.Text=EndSub程序运行后，单击命令按钮，要在文本框中显示“2255”。能满足要求的命令按钮的程序代码是（）A．PrivateSubCommand1_Click()Text1.Text=List1.ListIndex(1)+Combo1.ListIndex(1)EndSubB．PrivateSubCommand1_Click()Combo1.ListIndex=1List1.ListIndex=1Text1.Text=List1.Text+Combo1.TextEndSubC．PrivateSubCommand1_Click()Text1.Text=List1.ListIndex(2)+Combo1.ListIndex(2)EndSubB．PrivateSubCommand1_Click()Combo1.ListIndex=2List1.ListIndex=2Text1.Text=List1.Text+Combo1.TextEndSub24．设有如下程序：PrivateSubForm_Click()a=1Fori=1To3SelectCaseiCase1,3a=a+1Case2,4a=a+2EndSelectNextiPrintaEndSub程序运行后，单击窗体，则在窗体上显示的内容是（）A．6B．5C．4D．325．在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：subsub(b()asInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommand1_Click()Dima(1To4)AsIntegera(1)=5:a(2)=6a(3)=7:a(4)=8Suba()Fori=1To4Printa(i)NextiEndSub运行上面的程序，单击命令按钮，则在窗体上显示的内容是（）26．对窗体编写如下代码：OptionBase1PrivateSubForm_KeyPress(KeyAsciiAsInteger)a=Array(3,-4,2,6,5)m1=a(1):m2=1IfKeyAscii=13Then……EndIfPrintm1Printm2EndSub此程序的功能是求数组元素的最大值，并输出最大值的下标，为实现此功能，省略号处的程序段是（）A．Fori=0To4B．Fori=2To5Ifa(i)m1ThenIfa(i)m1Thenm1=a(i)m1=a(i)m2=im2=iEndIfEndIfNextINextIC．Fori=2To5D．Fori=2To5Ifa(i)m1Ifa(i)m1Thenm1=a(i)m1=a(i)m2=im2=iEndIfEndNextINextI27．在窗体中添加一个名称为Command1命令按钮和一个名称为text1的文本框，然后编写如下程序：PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5:y=7:z=0Text1.Text=Callp1(x,y,z)Text1.Text=Str(z)EndSubSubp1(ByValaAsInteger,ByValbAsInteger,cAsInteger)c=a+bEndSub程序运行后，如果单击命令按钮，文本框中显示的是（）A．0B．12C．Str(z)D．没有显示28．在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Functionfun(xAsInteger)Staticzy=y+1:z=z+1fun=x+y+zEndFunctionPrivateSubCommand1_Click()DimxAsIntegerx=1Fori=1To2Printfun(x)NextiEndSub程序运行后，如果单击命令按钮，窗体中显示的内容是（）A．33B．34C．3D．33429．窗体中有一组文件系统控件，分别是驱动器列表框drive1、目录列表框dir1和文件列表框file1。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，如Form1窗体所示。能够实现上述功能的程序的是（）A．PrivateSubDir1_Change()B．PrivateSubDir1_Change()File1.Path=Dir1.PathDir1.Path=Drive1.DriveEndSubEndSubPrivateSubDrive1_Change()PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveFile1.Path=Dir1.PathEndSubEndSubC．PrivateSubDir1_Change()D．PrivateSubDir1_Change()File1.Path=Dir1.PathFile1.FileName=Dir1.PathEndSubEndSubPrivateSubDrive1_Change()PrivateSubDrive1_Change()Dir1.Path=Drive1.PathDir1.Path=Drive1.DriveEndSubEndSub30．设在工程中有一个标准模块，其中定义了如下记录类型：TypeBooksNameAsStrin