五套二级VB考试模拟试题

VB模拟试卷一一、单选题1.VisualBasic变量命名不超过个字符。A.255B.256C.125D.1262.跳出FORNEXT循环程序，可使用语句。A.EXITB.ENDC.EXITFORD.EXITDO3.表达式169+196+200的值是。A.169196100B.565C.169396D.3652004.窗体的BORDERSTYLE属性取值种类为。A.3B.4C.5D.65.利用SHAPE控件可设置种形状。A.5B.6C.7D.86.以下是“计时器”控件的重要属性。A.BACKCOLORB.STRETCHC.TIMERD.INTERVAL7.VisualBasic代码中用到“水平滚动条”的“CHANGE”事件的同时，也会用到事件。A.CLICKB.LOADC.SCROLLD.MOUSEMOVE8.结束当前打印作业的方法为。A.ENDDOCB.KILLDOCC.NEWPAGED.END9.打开“APIVIEWER外接程序”应使用菜单。A.视图B.外接程序C.工具D.工程10.以下控件不属于DATA控件绑定的内部控件。A.CHECKBOXB.TEXTBOXC.LABELD.TIMER11.MOUSEPOINTER属性取值，可设置鼠标的自定义图标。A.3B.8C.15D.9912.以下不属于表达式Chr(Int(89+Rnd*5))的生成范围。A.\B.[C.AD.]13.以下代码，循环执行次。DimnForn=1To50Step5Txtresult.Text=Str(n)NextA.12B.10C.50D.1114.以下各种高级语言中，不是面向对象的程序设计语言。A.VISUALC++B.PASCALC.DELPHID.VISUALBASIC15.下列命令中可实现对随机文件的读操作。A.WRITEB.GETC.INPUTD.PUT16.VisualBasic中“剪贴板”对象的名称为。A.COPYB.CLIPBOARDC.CLIPD.BOARD二、填空题1.通过数据控件Data1连接C:\vb6\Students.mdb数据库，则需设置Connect为，DatabaseName为。2.“计时器”控件常用的两个属性为、。3.Shape控件的属性取值为时，形状为“圆”。4.代数式9e6ln6的VisualBasic表达式为。5.表达式CHR(ASC(*))的值为。6.以下代码执行的循环次数为。DimnumNum=200DoTxtresult.text=Str(num)Num=num+1LoopWhilenum1097.代码Picture1.Circle(1200,1000),750实现的功能为。8.代码RetVal=Shell(CALC.EXE,1)实现的功能为。9.文件系统控件主要包括、、。10.ActiveX控件的扩展名为。三、程序填空1.以下代码用于实现：从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第1个元素与第10个元素互换，第2个元素与第9个元素互换……第5个元素与第6个元素互换。分别输出数组原来各元素的值和对换后各元素的值。OptionBase1PrivateSubForm_Click()Arr=Array(1,2,3,4,5,6,7,8,9,10)ForI=1to10PrintArr(I);NextIPrintForI=1to5For(1)T=Arr(I)(2)(3)NextjNextIFor(4)PrintArr(I)NextIEndSub2.利用文件系统控件DrivelistBox、DirlistBox、FilelistBox、ComboBox控件设计如图1所示的窗体，要求：改变DrivelistBox内容，DirlistBox、FilelistBox发生相应改变；改变ComboBox内容，FilelistBox发生响应改变。按要求填写如下代码：PrivateSubDrive1_Change()(1)EndSubPrivateSubDir1_Change()(2)EndSubPrivateSubCombox1_Change()(3)EndSubPrivateSubCombox1_click()(4)EndSub3.利用“文本框”、“水平滚动条”、“命令按钮”设计如图2所示的窗体。要求：水平滚动条发生滚动，文本框内的数据在0km/hr~100km/hr之间变化；单击“结束”按钮，退出程序执行。图1图2按要求完成如下代码填空：PrivateSubcmdexit_Click()Beep(1)EndSubPrivateSubhsbspeed_Change()(2)EndSubPrivateSubhsbspeed_Scroll()(3)EndSub四、编程题1.编程：如图3所示布局控件（图像、标签、文本框、命令按钮）当分别按下鼠标左、右键时，在文本框中依次出现“按下鼠标左键”，“按下鼠标右键”，按“结束”按钮将退出运行。保存为文件名“按键”。2.如图4、图5所示建立菜单“色彩”，“大小”以及子菜单。要求：当选择“红色”，“蓝色”，“白色”时，窗体背景色分别变为红、蓝、白。当选择“小”，“大”时，窗体在正常和最大化之间切换。当选择“结束”时，退出程序运行。保存文件名为“颜色”。图3图4图5VB模拟试卷一参考答案一、单选题1.A2.C3.C4.D5.B6.D7.C8.B9.B10.D11.D12.C13.B14.B15.B16.B二、填空题1.ACCESSC:\vb6\Students.mdb2.ENABLEDINTERVAL3.SHAPE34.9*EXP（6）*LOG（6）5.*6.17.画圆，圆心坐标为(1200,1000)，半径为7508.执行CALC.EXE文件，打开“计算器”9.DrivelistBoxDirlistBoxFilelistBox10.OCZ三、程序填空1.（1）j=6To10（2）Arr(I)=Arr(j)（3）Arr(j)=T（4）I=1To102.（1）Dir1.path=Drive1.Drive（2）File1.Path=Dir1.Path（3）File1.Pattern=Combox1.Text（4）File1.Pattern=Combox1.Text3.（1）End（2）txtspeed.Text=Str(hsbspeed.Value)+km/hr（3）hsbspeed_Change四、编程题1.程序参考答案：OptionExplicitPrivateSubcmdexit_Click()EndEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Thentxtresult.Text=鼠标左键被按下EndIfIfButton=2Thentxtresult.Text=鼠标右键被按下EndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)txtresult.Text=EndSub2.程序参考答案：OptionExplicitPrivateSubForm_Load()MNUWHITE.Enabled=FalseMNUSMALL.Enabled=FalseEndSubPrivateSubMNUBLUE_Click()FRMCOLOR.BackColor=QBColor(1)MNUBLUE.Enabled=FalseMNURED.Enabled=TrueMNUWHITE.Enabled=TrueEndSubPrivateSubMNUEXIT_Click()EndEndSubPrivateSubMNULARGE_Click()FRMCOLOR.WindowState=2MNULARGE.Enabled=FalseMNUSMALL.Enabled=TrueEndSubPrivateSubMNURED_Click()FRMCOLOR.BackColor=QBColor(4)MNURED.Enabled=FalseMNUBLUE.Enabled=TrueMNUWHITE.Enabled=TrueEndSubPrivateSubMUNSMALL_Click()FRMCOLOR.WindowState=0MNUSMALL.Enabled=FalseMNULARGE.Enabled=TrueEndSubPrivateSubMNUWHITE_Click()FRMCOLOR.BackColor=QBColor(15)MNUWHITE.Enabled=FalseMNURED.Enabled=TrueMNUBLUE.Enabled=TrueEndSubVB模拟试卷二一、单选题（15分，每小题1分）1.类是对象的抽象，对象则是类的具体化。VisualBasic集成开发环境中的工具箱中各类图标对应的是，而在窗体上建立的一个控件对应的是。A.对象，类B.对象，实体C.类，对象D.实体，类2.下面关于对象的描述中，是错误的。A.“对象就是自定义结构变量”B.“对象代表系统中所创建的的一个实体”C.“对象是一个状态和操作（或方法）的封装体”D.“对象之间通过消息进行通信”3.表达式123+A&&100的值是。A.123100B.123A100C.123A100D.12301004.设CurrentX=50，CurrentY=100，执行指令“Line(100,20)-Step(300,500)”后，CurrentY=。A.400B.500C.520D.6005.若要设置命令按钮具有图形特性可通过属性来进行。A.AppearanceB.BackStyleC.BordestyleD.Style6.下面的四个VisualBasic逻辑表达式语法中，正确的是。A.xy.And.xyB.xy~zC.xyAndzD.xyAndyz7.数组声明DimX(5,-2to3,2)共有个元素。A.50B.60C.90D.1088.数据类型中的变体型可以包括数值型、日期型、对象型和字符型等数据，此外，它还含4个特殊的数据：和Empty。A.Null、Error、ObjectB.Null、Error、NothingC.Null、Error、TypeD.Null、Error、Data9.从函数子过程退出，并返回到主调过程，可使用语句。A.ExitB.ReturnC.ExitSubD.ExitFunction10.下列命令中可实现对顺序文件的写操作。A.PrintB.LineInputC.InputD.Put11.在VisualBasic中要将一个窗体从内存中释放，应该使用以下语句中的。A.CloseB.HideC.StopD.UnLoad12.设置窗体中鼠标指针的形状可通过属性来进行。A.IconB.MouseIconC.MousePointerD.Picture13.引用列表框List1最后一个数据项应使用。A.List1.List(List1.ListCount)B.List1.List(List1.ListCount-1)C.List1.List(ListCount)D.List1.List(ListCount-1)14.Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，可通过以下属性。A.Enabled=False或Interval=0B.Visible=False或Interval=0C.Enabled=False或Visible=FalseD.Enabled=False且Interval=015代数式Ln(1+tg2x)所对应的VisualBasic表达式是。A.Log(1+tan(x)^2)B.Log(1+tg(x)^2C.Ln(1+tan(x)^2)D.Ln(1+tg(x)^2)二、填