VB试题及答案.docx

1、VB试题及答案VB试题及答案（二）一、填空题1.在Visual Basic6.0中，按变量作用域的不同可将变量分为 全局变量 和 局部变量 两种；声明静态变量的关键字为 Static ;2.在Viual Basic6.0中，程序结构有 顺序 、 选择 、 循环 3种结构。3.控制控件是否可见的属性为 Visible ；控制控件是否可用的属性为 Enabled ；控件的位置是由 Left 和 Top 属性来确定的；控件的大小是由 Width 和 Height 属性来确定；控件上所显示的文本是由 Caption 属性来设定的；4.与鼠标有关的事件包括 Click 、 DblClick 、 Mous

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

3、Timer ，并且该事件被激发的时间间隔由 Interval 属性来给定。8.弹出式菜单一般不直接显示在窗体上，因此菜单的 Visible 属性一般设为False。要显示弹出式菜单可以用 PopupMenu 方法。9.工具栏一般显示在 菜单栏 下面，由 命令按钮 组成；状态栏一般显示在窗体的 底部 ，由 窗格（Panels） 组成。10.在图片框绘图之前，除了要建立好坐标系之外，还必须设置好线条的类型、线条的宽度、绘图的模式、填充的样式和填充的颜色，其中线条类型由 DrawStyle 属性来设置，线条宽度 DrawWidth 属性来设置，绘图模式由 DrawMode 属性来设置，填充样式由 F

4、illStyle 属性来设置。11.要想让一个标准的窗体变为多文档窗体的子窗体，必须将标准窗体的 MDIChild 属性设为True。12.顺序文件可以通过 Write 语句或 Print 语句将数据写入文件，而读取文件中的数据可以使用 Line Input# 语句、 Input# 语句或 Input 函数来实现。随机文件和二进制文件的读操作可以通过 Get 语句来实现，写操作可以通过 Put 语句来实现。13.在Visual Basic6.0中，程序共有 设计 、 运行 、 中断 3种工作模式。错误有 编译错误 、 实时错误 、 逻辑错误 3种类型。14.关键数据分为 主关键字 和外部关键字

5、。其中 主关键字 是对数据表内一个记录进行唯一表示的信息，而 外部关键字 是把一个记录与另外某个数据表中的关键字联系起来的信息。二、选择题1.以下关键字中，不能定义变量的是（A）ADeclare BDim CPublic DPrivate2.下面变量不合法的是（C）A. a2(2) B. abcd C. a$x D. CDE3.以下事件中，命令按钮不能响应的事件为（C）AClick事件 BMouseDown事件 CChange事件 DGotFocus事件4.如果要使文本框控件带有水平滚动条（假设MultiLine已设为True），则ScrollBar属性必须设为（B）A0 B1 C2 D35.

6、在列表框、组合框中，当前被选中的列表项由（C）返回。AList BListIndex CText DListCount 6.组合框所能响应的事件与下面哪个属性有关（D）。AList BListIndex CText DStyle7.当拖动滚动条的滚动框时，便会激发（A）事件AScroll BChange CDropDown DClick8.定时器控件唯一能够响应的事件为（B）AClick事件 BTimer事件 CChange事件 DDblClick事件9.含有子菜单的菜单不能设置（B ）A访问键 B快捷键 C菜单标题 D菜单名称10.要使一个菜单项变为分隔线，必须将其标题属性设为（C ）A下划

7、线 B& C上划线 D减号11.在设置MsgBox函数的参数值时，如果buttons值为5，则下面组合正确的是（A）AvbOKonly+vbRetryCancel （05）BvbOKCancel+vbYesNo （14）CvbAbortRetryIgnore+vbYesNoCancel （23）DvbRetryCancel （5）12.图片框和图像框都是通过以下哪个属性来设置显示的图片的（C）AMouseIcon BImage CPicture DIcon13.在图片框中所画图形的颜色与下面哪个属性有关（B）ADrawStyle BDrawMode CDrawWidth DScaleMode1

8、4.要想获得使用Open语句所打开的文件的大小可以使用（A）ALOF函数 BLen函数 CFileLen函数 DEOF函数15.下面哪个语句只能从顺序文件中读出英文字符，非英文字符不能读出（B）AInput语句 BInput函数 CLine Input语句 DGet语句16. Data控件的很多属性，（ ）属性用于指定Data控件所要操作的一个表或一个查询。A.DatabaseName属性B.RecordsetType属性C.Exclusive属性D.RecordSource属性三、程序填空题1以下程序是为了在窗体上显示1234.100的和，请将程序填写完整。 Private Sub Form

9、_Load()Form1.AutoRedraw = True Dim i As IntegerDim sum As Integersum = 0For i = 1 To 100sum = sum +i Next iPrint sumEnd Sub2窗体的Load事件中有以下代码：Private Sub Form_Load()Form1.AutoRedraw = 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 =

10、b - a End IfLoopPrint c / bEnd Sub运行程序后，程序的输出为 900 。3以下程序是一个密码检验程序，程序界面如图1所示。当在文本框中输入密码，然后单击【确定】按钮。这是如果输入的密码为“1234”，则弹出如图2所示的消息框；如果输入的密码不为“1234”，则弹出如图3所示的消息框。在图3所示的消息框中，如果单击“确定”按钮，则重新输入密码；如果单击“取消”，则退出程序。图1 程序界面 图2 【密码正确】消息框 图3 【密码不正确】消息框Private Sub Command1_Click()Dim Ret As Integer 密码正确，弹出“密码正确”消息框

11、If Text1.Text = 1234 ThenMsgBox 密码正确, vbOKOnly + vbInformation, 密码正确密码不正确，则弹出密码不正确消息框ElseRet = MsgBox(密码不正确，请重新输入, vbOKCancel + vbCritical, _密码不正确)根据所单击的按钮，执行不同的操作Select Case Ret 单击”确定“按钮，重新输入密码Case 1Text1.Text = Text1.SetFocus单击”取消“按钮，退出程序Case 2Unload Form1End SelectEnd IfEnd Sub4在某个工程中，已用【菜单编辑器】设计

12、了4个菜单：【颜色】、【红色】、【蓝色】、【绿色】，其中【颜色】为一级菜单，其“名称”属性为mnuColor，“Visible”属性为True，菜单【红色】、【蓝色】、【绿色】为菜单【颜色】的子菜单。以下程序用来实现以下功能：（1）菜单【颜色】不显示在窗体上，即让菜单【颜色】成为弹出式菜单。（2）在窗体上单击鼠标左键，弹出菜单【颜色】的子菜单。（3）在弹出的菜单中，单击某个菜单项，窗体的背景颜色变为相应的颜色。Private Sub Form_Load()菜单【颜色】不可见mnucolor.Visible = False End SubPrivate Sub Form_MouseDown(Bu

13、tton As Integer, Shift As Integer, X As Single, _Y As Single)单击鼠标左键，弹出弹出式菜单If Button = 2 Then PopupMenu mnucolorEnd IfEnd SubPrivate Sub mnucolor1_Click()单击菜单【红色】，窗体的底色变为红色Form1.BackColor = vbRedEnd SubPrivate Sub mnucolor2_Click()单击菜单【蓝色】，窗体的底色变为蓝色Form1.BackColor = vbBlueEnd SubPrivate Sub mnucolor

14、3_Click()单击菜单【绿色】，窗体的底色变为绿色Form1.BackColor = vbGreenEnd Sub5以下程序用图像框控件来实现编辑图片的功能。Option ExplicitPrivate Const small As Single = 0.5Private Const large As Single = -1Private Sub cmdLarge_Click()Zoom imgCar, largeEnd SubPrivate Sub cmdSmall_Click()Zoom imgCar, smallEnd Sub放大、缩小处理过程Private Sub Zoom(ByV

15、al img As Image, ByVal ratio As Single)img.Stretch = True 通过改变图片框的尺寸和位置来实现对图片的放大和缩小img.Left = img.Left + img.Width * ratio / 2img.Top = img.Top + img.Height * ratio / 2img.Width = img.Width - img.Width * ratioimg.Height = img.Height - img.Height * ratioEnd Sub6以下程序是将驱动器列表控件、文件夹列表控件、文件列表控件3个控件组合在一起，以

16、便实现对文件的管理，并且在文件列表控件中只显示文本文件，即扩张名为txt的文件。Private Sub Drive1_Change()Dir1.Path = Drive1. Drive End SubPrivate Sub Dir1_Change()File1.Path = Path End SubPrivate Sub Form_Load()在文件列表中只显示文本文件File1. Pattern = *.txtEnd Sub7以下程序为了在程序运行时，在不中断程序的前提下，直接将变量i的值显示在立即窗口中。Private Sub Form_Load()Dim i As IntegerForm

17、1.AutoRedraw = True调用显示数字的子过程for i0 to 10 Form1.Print iNext iDebug .Print i=; iEnd Sub四、程序改错题在某个工程中，已为工程设计了两个菜单【文件】/【打开】、【文件】/【另存为】和一个文本框控件Text1，并已向工程窗体中添加了通用对话框控件。以下程序用来实现以下功能：（1）单击【文件】/【打开】子菜单，弹出【打开】对话框，从对话框中选择要打开的文件。文件中的内容显示到文本框中。（2）单击【文件】/【另存为】子菜单，弹出【另存为】对话框，在对话框中输入要保存的文件名，然后保存文件。Private Sub mnu

18、FileOpen_Click()Dim fName As StringDim text As StringDim textbuff As String设置文件过滤器CommonDialog1.Filter = 文本文件(*.txt)|*.txt显示“打开”对话框CommonDialog1.ShowOpenfName = CommonDialog1.FileNameIf fName Then打开顺序文件Open fName For OutPut As #1 改为：Open fName For Input As #1读取顺序文件中的内容，并将它显示到文本框中Do While Not EOF(1)L

19、ine Input #1, texttextbuff = textbuff + textText1.Text = textbuff 加入：LoopClose #1End IfEnd SubPrivate Sub mnuSaveAs_Click()Dim fName As IntergerDim text As StringDim textbuff As StringCommonDialog1.Filter = 文本文件(*.txt)|*.txt显示“另存为”对话框CommonDialog1.ShowSavefName = CommonDialog1.FileNameIf fName Then打开顺序文件Open fName For Input As #1 改为：Open fName For Output As #1将文本框中的内容写入文件Print #1, Text1.text 加入：Close #1End IfEnd Sub