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

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

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

　　（1）在名称为Form1的窗体上建立一个名称为Op1的单选按钮数组，含三个单选按钮，它们的标题依次为“选择1”、“选择2”、“选择3”，其下标分别为0，1，2，初始状态下，“选择2”为选中状态。运行后的窗体如图所示。

　　 *注意：

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

　　解题思路：

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

　　在该窗体上画一个单选按钮控件，通过对单选按钮控件的复制产生单选按钮控件数组，共有三个单选按钮， 通过属性窗口将名称设为Op1，Index属性分别设为0、1、2，标题（Caption属性）分别设为“选择1”、“选择2”、“选择3”，“选择2”的Value属性设为True。

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

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

　　（2）在窗体上建立一个二级菜单，第一级含2个菜单项，标题分别为“编辑”、“帮助”，名称分别为edit、help。其中“编辑”菜单含有子菜单，共有3个菜单项，其标题依次为“剪切”、“复制”、“粘贴”，名称分别为“cut”、“copy”、“paste”（如图所示）。

　　 *注意：

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

　　解题思路：

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

　　在该窗体上通过菜单编辑器建立二个主菜单，在菜单编辑器的标题处分别输入“编辑”、“帮助”，名称处分别输入edit、help，在“编辑”菜单下有三个子菜单，在菜单编辑器的标题处分别输入“剪切”、“复制”、“粘贴”，名称处分别输入cut、copy、paste。

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

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

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

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

　　（1）在考生文件夹下有一个工程文件sjt3.vbp，它的功能是在运行时只显示名为 Form2的窗体，单击Form2上的“C2”按钮，则显示名为Form1的窗体；单击Form1上的“C1”按钮，则Form1的窗体消失。这个程序并不完整，要求：

　　 1）把Form2设为启动窗体；把Form1上按钮的标题改为“隐藏”，把Form2上按钮的标题改为“显示”。

　　 2）去掉程序中的注释符，把程序中的 ？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件存盘。

　　 3）工程文件和窗体文件仍以原来的文件名存盘。

　　正确程序运行后的界面如图所示。

　　解题思路：

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

　　由于所提供的Form1窗体控件不完整，通过其属性窗口将标题（Caption属性）设为“隐藏”。

　　提供的Form2窗体控件不完整，通过其属性窗口将标题（Caption属性）设为“显示”。

　　选择“工程”菜单下的“工程1属性”选项，打开该工程的属性窗口，在通用选项卡中将启动对象选为Form2即可。

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

　　1) 将语句

　　 ’Form1.Visible = ?

　　改为

　　Form1.Visible = False

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

　　1) 将语句

　　 ’Form1.Visible = ?

　　改为

　　Form1.Visible = True

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

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

　　（2）在考生文件夹下有一个工程文件sjt4.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，滚动条中的滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”，如图所示。

　　要求：去掉程序中的注释符，把程序中的 ？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的程序以原来的文件名存盘。

　　解题思路：

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

　　由于所提供的窗体程序不完整，在“移动”按钮的Private Sub C1_Click()事件过程中，有三处地方需要修改。

　　 1) 将语句

　　 ’If HS1.Value + Text1.Text > HS1.? Then

　　改为

　　 If HS1.Value + Text1.Text > HS1.Max Then

　　 2) 将语句

　　 ’ElseIf HS1.Value + Text1.Text < ? Then

　　改为

　　 ElseIf HS1.Value + Text1.Text < HS1.Min Then

　　 3) 将语句

　　 ’? = HS1.Value + Text1.Text

　　改为

　　 HS1.Value = HS1.Value + Text1.Text

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

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

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

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

　　在名称为Form1的窗体上画一个文本框，名称为Text1，允许多行显示；再画三个命令按钮，名称分别为C1、C2、C3，标题分别为“输入”、“转换”、“存盘”（如图所示）。请编写适当的事件过程，使得在运行时，单击“输入”按钮，则从考生文件夹中读入in5.txt文件（文件中只有字母和空格）， 放入Text1中；单击“转换”按钮，则把Text1中的所有小写字母转换为大写字母；单击“存盘”按钮，则把Text1中的内容存入out5.txt文件中。

　　注意：

　　考生必须把转换后的内容用“存盘”按钮存入out5.txt文件，否则无成绩。考生的工程文件以文件名sjt5.vbp存盘，窗体文件以文件名sjt5.frm存盘。

　　解题思路：

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

　　在该窗体上画一个文本框，通过其属性窗口将名称设为Text1，多行显示（Multiline属性）设为True，即允许多行显示。画三个命令按钮，通过其属性窗口将名称分别设为C1、C2、C3，标题（Caption属性）分别设为“输入”、“转换”、“存盘”。

　　单击“输入”按钮（即运行Click事件过程），在Click事件过程中加入语句：

　　 Private Sub C1_Click()

　　 Open App.Path & "\in5.txt" For Input As #1

　　 Input #1, a$

　　 Text1.Text = a$

　　 Close #1

　　 End Sub

　　单击“输入”按钮（即运行Click事件过程），在Click事件过程中加入语句：

　　 Private Sub C2_Click()

　　 a$ = Text1.Text

　　 b$ = ""

　　 n = Len(a$)

　　 For i = 1 To n

　　 b$ = b$ + UCase$(Mid$(a$, i, 1))

　　 Next

　　 Text1.Text = b$

　　 End Sub

　　单击“输入”按钮（即运行Click事件过程），在Click事件过程中加入语句：

　　 Private Sub C3_Click()

　　 Open App.Path & "\out5.txt" For Output As #1

　　 Print #1, Text1.Text

　　 Close #1

　　 End Sub

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

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