1. 基本操作（2小题，每小题15分，共计30分）

　　注意：下面出现的“考生文件夹”均为%USER%

　　请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

　　（1）在名称为Form1 的窗体上建立一个二级下拉菜单（菜单项见下表），运行时的窗体如图所示。

　　*注意：

　　存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

　　解题思路：

　　启动Visual Basic系统，创建一个Form1窗体。

　　在该窗体上通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“文件”，名称处输入File，在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“打开”、“关闭”，名称处分别输入Open和Close，将“关闭”按钮的“有效”单选按钮设为不选状态。

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt1.vbp文件并运行。

　　（2）在名称为Form1 的窗体上画两个文本框，名称分别为Text1、Text2，均无初始内容。要求：

　　1）通过属性窗口设置适当的属性，使Text1、Text2 中显示的文本的字体为“隶书”；

　　2）编写适当的事件过程，使得在 Text1 中输入每一个字符时，立即在Text2中显示Text1中的内容，如图所示。

　　*注意：

　　要求程序中不得使用变量，事件过程中只能写一条语句。

　　存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

　　解题思路：

　　启动Visual Basic系统，创建一个Form1窗体。

　　在该窗体上画二个文本框控件，通过其属性窗口将名称分别设为Text1和Text2，文本内容（Text属性）均设为空，点击文本框的Font属性，其弹出的字体对话框中将字体均设为“隶书”。改变Text1的内容（即运行Change事件过程），在该Change事件过程中加入语句：

　　Private Sub Text1_Change()

　　Text2 = Text1

　　End Sub

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.vbw

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt2.vbp文件并运行。

2. 简单应用（2小题，每题20分，计40分）

　　注意：下面出现的“考生文件夹”均为%USER%

　　（1）在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字做相应的设置，如图所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。

　　*注意：

　　不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。

　　由于所提供的窗体程序不完整，需添加事件过程。

　　执行“确定”命令（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Command1_Click()

　　If Op1.Value Then

　　Text1.FontName = Op1.Caption

　　ElseIf Op2.Value Then

　　Text1.FontName = Op2.Caption

　　End If

　　If Ch1.Value = 1 Then

　　Text1.FontUnderline = True

　　Else

　　Text1.FontUnderline = False

　　End If

　　If Ch2.Value = 1 Then

　　Text1.FontItalic = True

　　Else

　　Text1.FontItalic = False

　　End If

　　End Sub

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.vbw、out3.dat

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt3.vbp文件并运行。

　　（2）在考生文件夹下有一个工程文件sjt4.vbp。窗体中已经给出了所有控件。程序运行时，单击“读入文件”按钮，将显示一个“打开”对话框，可以在该对话框中选择考生文件夹下的文本文件in4.txt，并把该文件的内容显示到Text1文本框中。给出的程序不完整。

　　要求：

　　请去掉程序中的注释符，并把程序中的 ？改为正确的内容， 使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。

　　由于所提供的窗体程序不完整，在窗体的Private Sub Command1_Click()事件过程中，有四处地方需要修改。

　　1) 将语句

　　'CD1.? = "所有文件|*.*|文本文件|*.txt|Word文档|*.doc"

　　改为

　　CD1.Filter = "所有文件|*.*|文本文件|*.txt|Word文档|*.doc"

　　2) 将语句

　　'CD1.?

　　改为

　　CD1.ShowOpen

　　3) 将语句

　　'Open ? For Input As #1

　　改为

　　Open CD1.FileName For Input As #1

　　4) 将语句

　　'?

　　改为

　　Close #1

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.vbw

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt4.vbp文件并运行。

3. 综合应用（1小题，计30分）

　　注意：下面出现的“考生文件夹”均为%USER%

　　在考生文件夹下有一个工程文件sjt5.vbp，在窗体上给出了所有控件和不完整的程序，请去掉程序中的注释符，把程序中的 ？改为正确的内容。

　　本程序的功能是：如果单击“取数”按钮，则把考生目录下的 in5.txt文件中的15个姓名读到数组a中，并在窗体上显示这些姓名；当在Text1中输入一个姓名，或一个姓氏后，如果单击“查找”按钮，则进行查找，若找到，就把所有与Text1中相同的姓名或所有具有Text1中姓氏的姓名显示在Text2中；（如图所示）若未找到，则在Text2中显示“未找到！”；若Text1中没有查找内容，则在Text2中显示“未输入查找内容！”。

　　*注意：

　　考生不得修改程序的其他部分和控件的属性，最后把修改后的文件按原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。

　　由于所提供的窗体程序不完整，在窗体的Private Sub C1_Click事件过程中，有一处地方需要修改。

　　1) 将语句

　　'Close ?

　　改为

　　Close #1

　　另外在窗体的Private Sub C2_Click事件过程中，有四处地方需要修改。

　　2) 将语句

　　'n = Len( ? )

　　改为

　　n = Len(Text1.Text)

　　3) 将语句

　　'If Left(a(k), ? ) = Text1.Text Then

　　改为

　　If Left(a(k), n) = Text1.Text Then

　　4) 将语句

　　'c = c + " " + ?

　　改为

　　c = c + " " + a(k)

　　5) 将语句

　　'Text2.Text = ?

　　改为

　　Text2.Text = c

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt5.vbp文件并运行。