VB试题及答案（二）
一、 填空题
1. 在Visual 中，按变量作用域的不同可将变量分为 全局变量 和 局部变量 两种；声明静态变量的关键字为 Static ; 2. 在Viual 中，程序结构有 顺序 、 选择 、 循环 3种结构。
3. 控制控件是否可见的属性为 Visible ；控制控件是否可用的属性为 Enabled ；控件的位置是
由 Left 和 Top 属性来确定的；控件的大小是由 Width 和 Height 属性来确定；控件上所显示的文本是由 Caption 属性来设定的；
4. 与鼠标有关的事件包括 Click 、 DblClick 、 MouseDown 、 MouseUp MouseMove ，其中 Click 事件在单击控件时被激发， MouseDown 事件在鼠标键被按下时被激发， MouseUp 事件在鼠标被松开时被激发。 5. 与键盘有关的事件包
括 KeyPress 、 KeyDown 、 KeyUp ，其中 KeyPress 事件在单击键盘键时被激
发， KeyDown 事件在按下键盘键时被激发， KeyUp 事件在松开键盘键时被激发。
6. 向列表框和组合框中添加列表时，可使用 AddItem 方法；删除选定的列表，可使用 RemoveItem 方法；删除全部列表
项，可使用 Clear 方法。
7. 定时器控件能够响应的唯一事件为 Timer ，并且该事件被激发的时间间隔由 Interval 属性来给定。 8. 弹出式菜单一般不直接显示在窗体上，因此菜单
的 Visible 属性一般设为False。要显示弹出式菜单可以用 PopupMenu 方法。
9. 工具栏一般显示在 菜单栏 下面，由 命令按钮 组成；状态栏一般显示在窗体的 底部 ，由 窗格（Panels） 组成。
10. 在图片框绘图之前，除了要建立好坐标系之外，还必须设置好线条的类型、线条的宽度、绘图的模式、填充的样式和填充的颜色，其中线条类型由 DrawStyle 属性来设置，线条宽度 DrawWidth 属性来设置，绘图模式由 DrawMode 属性来设置，填充样式由 FillStyle 属性来设置。
11. 要想让一个标准的窗体变为多文档窗体的子窗体，必须将标准窗体的 MDIChild 属性设为True。
12. 顺序文件可以通过 Write 语句或 Print 语句将数据写入文件，而读取文件中的数据可以使用 Line Input# 语句、 Input# 语句或 Input 函数来实现。随机文件和二进制文件的读操作可以通
过 Get 语句来实现，写操作可以通过 Put 语句
来实现。
13. 在Visual 中，程序共有 设计 、 运行 、 中断 3种工作模式。错误有 编译错误 、 实时错误 、 逻辑错误 3种类型。 14. 关键数据分为 主关键字 和外部关键字。其中 主关键字 是对数据表内一个记录进行唯一表示的信息，而 外部关键字 是把一个记录与另外某个数据表中的关键字联系起来的信息。 二、 选择题
1. 以下关键字中，不能定义变量的是（A）
A．Declare B．Dim C．Public D．Private
2. 下面变量不合法的是（C）
A.. a2(2) B. abcd C. a$x D. CDE
3. 以下事件中，命令按钮不能响应的事件为（C） A．Click事件 B．MouseDown事件 C．Change事件 D．GotFocus事件
4. 如果要使文本框控件带有水平滚动条（假设MultiLine已设为
True），则ScrollBar属性必须设为（B）
A．0 B．1 C．2 D．3 5. 在列表框、组合框中，当前被选中的列表项由（C）返回。 A．List B．ListIndex C．Text D．ListCount
6. 组合框所能响应的事件与下面哪个属性有关（D）。
A．List B．ListIndex C．Text D．Style
7. 当拖动滚动条的滚动框时，便会激发（A）事件
A．Scroll B．Change C．DropDown D．Click
8. 定时器控件唯一能够响应的事件为（B） A．Click事件 B．Timer事件 C．Change事件 D．DblClick事件
9. 含有子菜单的菜单不能设置（B ）
A．访问键 B．快捷键 C．菜单标题 D．菜单名称
10. 要使一个菜单项变为分隔线，必须将其标题属性设为（C ） A．下划线 B．& C．上划线 D．减号
11. 在设置MsgBox函数的参数值时，如果buttons值为5，则下面
组合正确的是（A）
A．vbOKonly+vbRetryCancel （0＋5） B．vbOKCancel+vbYesNo （1＋4）
C．vbAbortRetryIgnore+vbYesNoCancel （2＋3） D．vbRetryCancel （5）
12. 图片框和图像框都是通过以下哪个属性来设置显示的图片的（C）
A．MouseIcon B．Image C．Picture D．Icon
13. 在图片框中所画图形的颜色与下面哪个属性有关（B） A．DrawStyle B．DrawMode C．DrawWidth D．ScaleMode
14. 要想获得使用Open语句所打开的文件的大小可以使用（A） A．LOF函数 B．Len函数 C．FileLen函数 D．EOF函数
15. 下面哪个语句只能从顺序文件中读出英文字符，非英文字符不能读出（B）
A．Input＃语句 B．Input函数 C．Line Input＃语句 D．Get语句
16. Data控件的很多属性，（ ）属性用于指定Data控件所要操作的一个表或一个查询。 A. DatabaseName属性
B. RecordsetType属性 C. Exclusive属性 D. RecordSource属性 三、 程序填空题
1． 以下程序是为了在窗体上显示1＋2＋3＋4＋…….＋100的和，请将程序填写完整。
Private Sub Form_Load() = True Dim i As Integer Dim sum As Integer sum = 0
For i = 1 To 100 sum = sum +i Next i Print sum End Sub
2． 窗体的Load事件中有以下代码： Private Sub Form_Load() = True
Dim a As Integer Dim b As Integer Dim c As Integer
a = 300 b = 45 c = a * b Do While a <> b If a > b Then a = a - b Else
b = b - a End If Loop Print c / b End Sub
运行程序后，程序的输出为 900 。
3． 以下程序是一个密码检验程序，程序界面如图1所示。当在文本框中输入密码，然后单击【确定】按钮。这是如果输入的密码为“1234”，则弹出如图2所示的消息框；如果输入的密码不为“1234”，则弹出如图3所示的消息框。在图3所示的消息框中，如果单击“确定”按钮，则重新输入密码；如果单击“取消”，则退出程序。
图1 程序界面
图2 【密码正确】消息
框 图3 【密码不正确】消息框 Private Sub Command1_Click() Dim Ret As Integer '密码正确，弹出“密码正确”消息框 If = \"1234\" Then
MsgBox \"密码正确\密码正确\" '密码不正确，则弹出\"密码不正确\"消息框 Else
Ret = MsgBox(\"密码不正确，请重新输入\vbOKCancel + vbCritical, _
\"密码不正确\")
'根据所单击的按钮，执行不同的操作 Select Case Ret
'单击”确定“按钮，重新输入密码 Case 1 = \"\"
'单击”取消“按钮，退出程序 Case 2
Unload Form1 End Select
End If End Sub
4． 在某个工程中，已用【菜单编辑器】设计了4个菜单：【颜色】、【红色】、【蓝色】、【绿色】，其中【颜色】为一级菜单，其“名称”属性为mnuColor，“Visible”属性为True，菜单【红色】、【蓝色】、【绿色】为菜单【颜色】的子菜单。以下程序用来实现以下功能：
（1） 菜单【颜色】不显示在窗体上，即让菜单【颜色】成为弹出式菜单。
（2） 在窗体上单击鼠标左键，弹出菜单【颜色】的子菜单。 （3） 在弹出的菜单中，单击某个菜单项，窗体的背景颜色变为相应的颜色。
Private Sub Form_Load() '菜单【颜色】不可见 = False End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, _ Y As Single)
'单击鼠标左键，弹出弹出式菜单 If Button = 2 Then PopupMenu mnucolor
End If End Sub
Private Sub mnucolor1_Click() '单击菜单【红色】，窗体的底色变为红色 = vbRed End Sub
Private Sub mnucolor2_Click() '单击菜单【蓝色】，窗体的底色变为蓝色 = vbBlue End Sub
Private Sub mnucolor3_Click() '单击菜单【绿色】，窗体的底色变为绿色 = vbGreen End Sub
5． 以下程序用图像框控件来实现编辑图片的功能。 Option Explicit
Private Const small As Single = Private Const large As Single = -1
Private Sub cmdLarge_Click() Zoom imgCar, large End Sub
Private Sub cmdSmall_Click() Zoom imgCar, small End Sub
'放大、缩小处理过程
Private Sub Zoom(ByVal img As Image, ByVal ratio As Single) = True
'通过改变图片框的尺寸和位置来实现对图片的放大和缩小 = + * ratio / 2 = + * ratio / 2 = - * ratio = - * ratio End Sub
6． 以下程序是将驱动器列表控件、文件夹列表控件、文件列表控件3个控件组合在一起，以便实现对文件的管理，并且在文件列表控件中只显示文本文件，即扩张名为txt的文件。 Private Sub Drive1_Change() = Drive1. Drive End Sub
Private Sub Dir1_Change() = Path End Sub
Private Sub Form_Load() '在文件列表中只显示文本文件 File1. Pattern = \"*.txt\" End Sub
7． 以下程序为了在程序运行时，在不中断程序的前提下，直接将变量i的值显示在立即窗口中。 Private Sub Form_Load() Dim i As Integer = True
'调用显示数字的子过程 for i＝0 to 10 i Next i
Debug .Print \"i=\"; i End Sub
四、 程序改错题
在某个工程中，已为工程设计了两个菜单【文件】/【打开】、【文
件】/【另存为】和一个文本框控件Text1，并已向工程窗体中添加了通用对话框控件。以下程序用来实现以下功能：
（1） 单击【文件】/【打开】子菜单，弹出【打开】对话框，从对话框中选择要打开的文件。文件中的内容显示到文本框中。 （2） 单击【文件】/【另存为】子菜单，弹出【另存为】对话框，在对话框中输入要保存的文件名，然后保存文件。 Private Sub mnuFileOpen_Click() Dim fName As String Dim text As String Dim textbuff As String '设置文件过滤器
= \"文本文件(*.txt)|*.txt\" '显示“打开”对话框 fName =
If fName <> \"\" Then '打开顺序文件
Open fName For OutPut As #1 改为：Open fName For Input As #1
'读取顺序文件中的内容，并将它显示到文本框中 Do While Not EOF(1) Line Input #1, text
textbuff = textbuff + text = textbuff 加入：Loop Close #1 End If End Sub
Private Sub mnuSaveAs_Click() Dim fName As Interger Dim text As String Dim textbuff As String = \"文本文件(*.txt)|*.txt\" '显示“另存为”对话框 fName =
If fName <> \"\" Then '打开顺序文件
Open fName For Input As #1 Open fName For Output As #1 '将文本框中的内容写入文件 Print #1,
加入：Close #1
改为： End If End Sub
