一、基本操作题

(1)在名为 Form1 的窗体上建立一个名为 Pic1 的图片框，两个名称分别为 Cmd1 和 Cmd2 的命令按钮，标题分别为“显示”和“清除”，如图 56-1 所示。编写适当的事件过 程，要求程序运行后，每单击一次“显示”按钮，不使用任何变量，直接在图片框中显示 “计算机 VB 考试”;如果单击“清除”按钮，则清除图片框中的内容。

注意：文件必须存放在考生文件夹中，窗体文件名为 vbsj1.frm ，工程文件名为vbsj1.vbp。

(2)在窗体上绘制一个列表框，名为 Lst1，通过属性窗口向列表框中添加 4 个项目， 分别为“项目 1”、“项目 2”、“项目 3”和“项目 4”。编写适当的事件过程，使程序运行 后，若双击列表框中的某一项，则该项就从列表中消失。程序的运行情况如图 56-2 所示。

注意：文件必须存放在考生文件夹中，工程文件名为 vbsj2.vbp ，窗体文件名为vbsj2.frm。

二、简单应用题

(1)在考生文件夹中有工程文件vbsj3.vbp及窗体文件vbsj3.frm。在名为Form1的窗体 上有一个名为Lab1的标签数组，该数组有4个控件元素，它们的标题分别是Wait、Edit、 Aix和Move，如图56-3所示。

在程序运行后，将鼠标指针移动到各控件元素上，则鼠标指针的形状将变成各控件元 素的标题所代表的鼠标指针形状;离开控件元素，则鼠标指针又变成正常情况下的箭头形 状。本程序不完整，请补充完整，并能正确运行。

要求：去掉程序中的注释符“’”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。

(2)在考生文件夹中有一个工程文件 vbsj4.vbp 及其窗体文件 vbsj4.frm。请在名为 Form1 的窗体上绘制两个名称分别为 Txt1 和 Txt2 的文本框，文本框的内容分别设置为“计 算机考试”、“Visual Basic”;然后绘制一个名称为 Labl 的标签，其高度为 300，宽度为 2500; 再绘制两个名称分别为 Opt1 和 Opt2 的单选按钮，它们的标题分别为“交换”和“连接”; 最后再绘制一个名称为 Cmd1 的命令按钮，其标题为“确定”。

编写适当的事件程序。使得程序运行后，如果选中“交换”单选按钮并单击“确定”按钮，则 Txt1 文本框中内容与 Txt2 文本框中内容进行交换，并在标签处显示“交换完成”;如果选中“连接”单选按钮并单击“确定”按钮后，则把交换后的 Txt1 和 Txt2 的内容连接起来，并在标签处显示连接的内容，如图 56-4 所示。保存时，工程文件名为 vbsj4.vbp，窗体文件名为 vbsj4.frm。

注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击“确定”按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。

三、综合应用题

在名为 Form1 的窗体上建立一个名为 Txt1 的文本框(其 MultiLine 属性为 True， ScrollBars 属性为 2)和两个名称分别为 Cmd1 和 Cmd2 的命令按钮(其标题分别为“读取” 和“保存”)，如图 56-5 所示。

要求程序运行后，如果单击“读取”按钮，则读入 dr1.dat 文件中的 100 个整数，放 入一个数组中(数组下界为 1)，同时在文本框 Txt1 中显示出来;如果单击“保存”按钮，则计算其中前 50 个数之和，并把求和结果在文本框 Txt1 中显示出来，同时把结果存入考 生文件夹中的文件 dw2.dat 中。

在考生的文件夹下有标准模块 model.bas，其中的 writedata 过程可以把结果存入指定的文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程。

注意：文件必须存放在考生文件夹中，窗体文件名为 vbsj5.frm ，工程文件名为vbsj5.vbp，计算结果存入 dw2.dat 文件，否则没有成绩。

一、基本操作题

第 1 小题

【知识点播】①图片框(PictureBox)主要用于显示图片(支持的图形文件有位图(bmp)、图标(ico)、Windows 元文件(wmf))或在其上画图，也可用作其他控件的容器，还可在其上直接输出文本。

②用 Print 方法可以在窗体或图片框上输出文本，语法为：object.Print {Spc(n) | Tab(n)}[expression ][charpos]。其中各参数的含义见表 56-1。

③使用 Cls 方法可以清除图片框上的所有图形及用 Print 方法输出的文本。

【审题分析】要实现题中要求的功能，应在显示按钮的 Click 事件过程中，用图片框的 Print 方法输出字符串计算机 VB 考试，在清除按钮的 Click 事件过程中，用图片框的 Cls 方法清除图片框上的所有内容。

【操作步骤】

步骤 1：新建一个标准 EXE工程，在窗体 Form1 中加入一个图片框和两个命令按钮，分别设置它他们的相关属性，其属性及其值见表 56-2。

步骤 2：双击窗体 Form1 中的显示按钮，在打开的代码编辑窗口中，输入代码。

步骤 3：单击代码编辑窗口中的对象下拉列表框，从中选择 Cmd2，在其 Click 事件过程中输入代码：Pic1.Cls。

步骤 4：按要求将文件保存至考生文件夹中。

【考试误区】在图片框中显示文本，应使用 Print 方法，图片框没有 Caption 和 Text属性。

第 2 小题

【知识点播】①列表框控件(ListBox)用于显示可供单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其 List 属性设置加入，也可在程序运行时使用AddItem 方法加入。在程序运行时删除列表框中的项目可以使用 RemoveItem 方法，其语法为：列表框.RemoveItem 索引值，其中，索引值可以指定插入项在列表框中的位置，从 0 开始计数。

【审题分析】双击列表框中的某个项目，将触发其 DblClick 事件，要实现双击列表框中的某一项，该项就从列表中消失的功能，只需在 DblClick 事件过程中编写删除项目的语句即可。列表框的 ListIndex 属性可返回当前选择的项目的索引号，因此删除选中项目的语句为：Lst1.RemoveItem Lst1.ListIndex。

【操作步骤】

步骤 1：新建一个标准 EXE工程，在窗体 Form1 中加入一个列表框，在属性设置窗口中将其 Name 属性设置为 Lst1，在其 List 属性中添加四个项目，依次为项目 1、项目 2、项目 3和项目 4，注意：每输入完一项后按键换行再输入下一项。

步骤 2：打开代码编辑窗口，从窗口上方的对象下拉列表中选择 Lst1，从过程下拉列表中选择 DblClick，在该事件过程中输入代码。

步骤 3：按要求将文件保存至考生文件夹中。

【考试误区】本题应编写列表框控件的 DblClick 事件过程，而非 Click 事件;同时注意，删除某一列表项使用 RemoveItem，而不是 Cls 方法。

二、简单应用题

第 1 小题

MousePointer 属性的可选设置值及含义见表 56-3。

【审题分析】根据题目要求，要使鼠标指针移动到标签数组各元素上时，鼠标指针的形状变成各控件元素的标题所代表的鼠标指针形状，就需在标签数组的 MouseMove 事件过程中，根据鼠标当前所在标签数组元素的不同，将窗体的 MousePointer 属性设置为对应值。题目源程序使用 Select Case 语句来对标签数组不同索引号(即 Index 属性值)进行分别处理。要在鼠标指针离开控件元素时，鼠标指针又变成正常情况下的箭头形状，需在窗体的MouseMove 事件过程中，设置窗体的 MousePointer 属性值为 0。

【操作步骤】

步骤 1：打开考生文件中的本题工程文件 vbsj3.vbp，在代码编辑窗口，去掉程序中的注释符’，将问号?改为正确的内容。

参考代码：

Form1.MousePointer = 0

Select Case Index

步骤 2：按要求将文件保存至考生文件夹中。

第 2 小题

【知识点播】+可用于字符串的运算，用于连接两个字符串。

【审题分析】根据题目要求，本题程序设计思路：在确定按钮的 Click 事件过程中分别以 Opt1 和 Opt2 是否选中作为 If 语句的条件，当 Opt1 被选中时，将两个文本框中的内容通过一个中间变 进行交换;当 Opt2 被选中将两个文本框中的内容连接进来。

【操作步骤】

步骤 1：打开考生文件夹下的本题工程文件 vbs4.vbp。

步骤 2：在窗体 Form1 中加入两个文本框、一个标签、两个单选按钮和一个命令按钮，分别设置它们的相关属性，属性及其值见表 56-4。

步骤 3：打开代码编辑窗口输入如下代码：

参考代码：

Private Sub Cmd1_Click()

Dim str As String

If Opt1.Value = True Then

str = Txt1.Text

Txt1.Text = Txt2.Text

Txt2.Text = str

Lab1.Caption = 交换成功

End If

If Opt2.Value = True Then

Lab1.Caption = Txt1.Text + Txt2.Text

End If

End Sub

步骤 4：按要求将文件保存至考生文件夹中。

【考试误区】在一个容器中的多个单选按钮只能有一个被选中，由此分出不同分支，理清思路是关键。

三、综合应用题

【审题分析】在读取按钮的单击事件过程中，用 Open 语句以 Input 方式打开数据文件 dr1.dat，通过 For 循环语句(循环变i的初值为 1，终值为 100)将数据文件中的数据用 Input 语句依次读出并赋值给数组元素 a(i)，同时显示在文本框中，每个数据项后接 5 个空格(Space(5))以保持一定间隔。在保存按钮的单击事件过程中，使用 For 循环语句(循环变i 的初值为 1，终值为 50)将数组中前 50 个元素的值累加到变 Sum 中，循环结束后通过调用标准模块中的 writedata 过程(以 Sum 为参数)，将结果写入数据文件 dw2.dat。

【操作步骤】

步骤 1：新建一个标准 EXE工程。

步骤 2：在窗体 Form1 中加入一个文本框和两个命令按钮，并分别设置他们的相关属性，属性及其值见表 56-5。

步骤 3：选择【工程】?【添加模块】命令，打开添加模块对话框，将考生文件夹下的model.bas 添加到当前工程中。

步骤 4：打开代码编辑窗口输入如下代码：

Dim a(1 To 100) As Integer

Private Sub Cmd1_Click()

Open App.Path & \dr1.dat For Input As #1

Txt1.Text =

For i = 1 To 100

Input #1, a(i)

Txt1.Text = Txt1.Text & a(i) & Space(1)

Next i

Close #1

End Sub

Private Sub Cmd2_Click()

Txt1.Text =

s = 0

For i = 1 To 50

s

Next

= s + a(i)

Txt1.Text = s

writedata dw2.dat, s

End Sub

步骤 5：按要求将文件保存至考生文件夹中。

【考试误区】本题主要事件过程代码要求考生自己设计，因此理清程序运行流程是关键。