VB试题及答案Word文档下载推荐.docx

1、 、 DblClick 、 MouseDown 、 MouseUp MouseMove ，其中 事件在单击控件时被激发， MouseDown 事件在鼠标键被按下时被激发， MouseUp 事件在鼠标被松开时被激发。5.与键盘有关的事件包括 KeyPress KeyDown KeyUp 事件在单击键盘键时被激发， 事件在按下键盘键时被激发， 事件在松开键盘键时被激发。6.向列表框和组合框中添加列表时，可使用 AddItem 方法；删除选定的列表，可使用 RemoveItem删除全部列表项，可使用 Clear 方法。7.定时器控件能够响应的唯一事件为 Timer ，并且该事件被激发的时间间隔由 I

2、nterval 属性来给定。8.弹出式菜单一般不直接显示在窗体上，因此菜单的 属性一般设为False。要显示弹出式菜单可以用 PopupMenu9.工具栏一般显示在 菜单栏 下面，由 命令按钮 组成；状态栏一般显示在窗体的 底部 ，由 窗格（Panels） 组成。10.在图片框绘图之前，除了要建立好坐标系之外，还必须设置好线条的类型、线条的宽度、绘图的模式、填充的样式和填充的颜色，其中线条类型由 DrawStyle 属性来设置，线条宽度 DrawWidth 属性来设置，绘图模式由 DrawMode 属性来设置，填充样式由 FillStyle 属性来设置。11.要想让一个标准的窗体变为多文档窗体

3、的子窗体，必须将标准窗体的 MDIChild 属性设为True。12.顺序文件可以通过 Write 语句或 Print 语句将数据写入文件，而读取文件中的数据可以使用 Line Input# 语句、 Input# Input 函数来实现。随机文件和二进制文件的读操作可以通过 Get 语句来实现，写操作可以通过 Put 语句来实现。13.在Visual 中，程序共有 设计 运行 中断 3种工作模式。错误有 编译错误 实时错误 逻辑错误 3种类型。14.关键数据分为 主关键字 和外部关键字。其中 是对数据表内一个记录进行唯一表示的信息，而 外部关键字 是把一个记录与另外某个数据表中的关键字联系起来

4、的信息。二、选择题以下关键字中，不能定义变量的是（A）ADeclare BDim CPublic DPrivate下面变量不合法的是（C）A. a2（2） B. abcd C. a$x D. CDE以下事件中，命令按钮不能响应的事件为（C）AClick事件 BMouseDown事件CChange事件DGotFocus事件如果要使文本框控件带有水平滚动条（假设MultiLine已设为True），则ScrollBar属性必须设为（B）A0 B1 C2 D3在列表框、组合框中，当前被选中的列表项由（C）返回。AList BListIndex CText DListCount 组合框所能响应的事件与下

5、面哪个属性有关（D）。 DStyle当拖动滚动条的滚动框时，便会激发（A）事件AScroll BChange CDropDown DClick定时器控件唯一能够响应的事件为（B）BTimer事件DDblClick事件含有子菜单的菜单不能设置（B ）A访问键 B快捷键 C菜单标题 D菜单名称要使一个菜单项变为分隔线，必须将其标题属性设为（C ）A下划线 B& C上划线 D减号在设置MsgBox函数的参数值时，如果buttons值为5，则下面组合正确的是（A）AvbOKonly+vbRetryCancel （05）BvbOKCancel+vbYesNo （14）CvbAbortRetryIgnor

6、e+vbYesNoCancel （23）DvbRetryCancel （5）图片框和图像框都是通过以下哪个属性来设置显示的图片的（C）AMouseIcon BImage CPicture DIcon在图片框中所画图形的颜色与下面哪个属性有关（B）ADrawStyle BDrawMode CDrawWidth DScaleMode要想获得使用Open语句所打开的文件的大小可以使用（A）ALOF函数 BLen函数 CFileLen函数 DEOF函数15.下面哪个语句只能从顺序文件中读出英文字符，非英文字符不能读出（B）AInput语句 BInput函数 CLine Input语句 DGet语句16

7、. Data控件的很多属性，（ ）属性用于指定Data控件所要操作的一个表或一个查询。A.DatabaseName属性B.RecordsetType属性C.Exclusive属性D.RecordSource属性三、程序填空题1以下程序是为了在窗体上显示1234.100的和，请将程序填写完整。 Private Sub Form_Load（） = TrueDim i As IntegerDim sum As Integersum = 0For i = 1 To 100sum = sum +iNext iPrint sumEnd Sub2窗体的Load事件中有以下代码：Private Sub For

8、m_Load（） = TrueDim a As IntegerDim b As IntegerDim c As Integera = 300b = 45c = a * bDo While a b If a b Then a = a - b Else b = b - a End IfLoopPrint c / b运行程序后，程序的输出为 900 。3以下程序是一个密码检验程序，程序界面如图1所示。当在文本框中输入密码，然后单击【确定】按钮。这是如果输入的密码为“1234”，则弹出如图2所示的消息框；如果输入的密码不为“1234”，则弹出如图3所示的消息框。在图3所示的消息框中，如果单击“确定”按

9、钮，则重新输入密码；如果单击“取消”，则退出程序。图1 程序界面 图2 【密码正确】消息框 图3 【密码不正确】消息框Private Sub Command1_Click（）Dim Ret As Integer密码正确，弹出“密码正确”消息框If = 1234 ThenMsgBox 密码正确, vbOKOnly + vbInformation, 密码不正确，则弹出密码不正确消息框ElseRet = MsgBox（密码不正确，请重新输入, vbOKCancel + vbCritical, _）根据所单击的按钮，执行不同的操作Select Case Ret单击”确定“按钮，重新输入密码Case 1

10、 = 单击”取消“按钮，退出程序Case 2Unload Form1End SelectEnd If4在某个工程中，已用【菜单编辑器】设计了4个菜单：【颜色】、【红色】、【蓝色】、【绿色】，其中【颜色】为一级菜单，其“名称”属性为mnuColor，“Visible”属性为True，菜单【红色】、【蓝色】、【绿色】为菜单【颜色】的子菜单。以下程序用来实现以下功能：（1）菜单【颜色】不显示在窗体上，即让菜单【颜色】成为弹出式菜单。（2）在窗体上单击鼠标左键，弹出菜单【颜色】的子菜单。（3）在弹出的菜单中，单击某个菜单项，窗体的背景颜色变为相应的颜色。菜单【颜色】不可见 FalsePrivate S

11、ub Form_MouseDown（Button As Integer, Shift As Integer, X As Single, _Y As Single）单击鼠标左键，弹出弹出式菜单If Button = 2 mnucolorPrivate Sub mnucolor1_Click（）单击菜单【红色】，窗体的底色变为红色 = vbRedPrivate Sub mnucolor2_Click（）单击菜单【蓝色】，窗体的底色变为蓝色 = vbBluePrivate Sub mnucolor3_Click（）单击菜单【绿色】，窗体的底色变为绿色 = vbGreen5以下程序用图像框控件来实现编

12、辑图片的功能。Option ExplicitPrivate Const small As Single = Private Const large As Single = -1Private Sub cmdLarge_Click（）Zoom imgCar, largePrivate Sub cmdSmall_Click（）Zoom imgCar, small放大、缩小处理过程Private Sub Zoom（ByVal img As Image, ByVal ratio As Single）通过改变图片框的尺寸和位置来实现对图片的放大和缩小 = + * ratio / 2 = - * rati

13、o6以下程序是将驱动器列表控件、文件夹列表控件、文件列表控件3个控件组合在一起，以便实现对文件的管理，并且在文件列表控件中只显示文本文件，即扩张名为txt的文件。Private Sub Drive1_Change（） = Drive1. DrivePrivate Sub Dir1_Change（） Path在文件列表中只显示文本文件File1. Pattern*.txt7以下程序为了在程序运行时，在不中断程序的前提下，直接将变量i的值显示在立即窗口中。调用显示数字的子过程for i0 to 10 iDebug .Print i=;四、程序改错题在某个工程中，已为工程设计了两个菜单【文件】/【打

14、开】、【文件】/【另存为】和一个文本框控件Text1，并已向工程窗体中添加了通用对话框控件。单击【文件】/【打开】子菜单，弹出【打开】对话框，从对话框中选择要打开的文件。文件中的内容显示到文本框中。单击【文件】/【另存为】子菜单，弹出【另存为】对话框，在对话框中输入要保存的文件名，然后保存文件。Private Sub mnuFileOpen_Click（）Dim fName As StringDim text As StringDim textbuff As String设置文件过滤器文本文件（*.txt）|*.txt显示“打开”对话框fName = If fName 打开顺序文件Open fName For OutPut As #1 改为：Open fName For Input As #1读取顺序文件中的内容，并将它显示到文本框中Do While Not EOF（1）Line Input #1, texttextbuff = textbuff + text = textbuff 加入：Close #1Private Sub mnuSaveAs_Click（）Dim fName As Interger显示“另存为”对话框Open fName For Input As #1Open fName For Output As #1将文本框中的内容写入文件Print #1,