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

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

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

　　（1）在名称为 Form1的窗体上画一个名称为L1的标签，标题为“请确认”；再画两个命令按钮，名称分别为C1、C2，标题分别为“是”、“否”，高均为300、宽均为800。如图所示。

　　请在属性窗口中设置适当属性满足以下要求：

　　1）窗体标题为“确认”，窗体标题栏上不显示最大化和最小化按钮；

　　2）在任何情况下，按回车键都相当于单击“是”按钮；按ESC键都相当于单击“否”按钮。

　　*注意：

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

　　解题思路：

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

　　在该窗体上画一个标签控件，通过其属性窗口将名称设为L1，标题（Caption属性）设为“请确认”。画二个命令按钮，通过其属性窗口将名称分别设为C1和C2，标题（Caption属性）分别设为“是”和“否”，高（Height属性）均设为300，宽（Width属性）均设为800。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“确认”，最大化按钮（MaxButton属性）设为False，和最小化按钮（MinButton属性）设为False。激活“是”按钮，通过其属性窗口将Default属性设为“True”。激活“否”按钮，通过其属性窗口将Cancel属性设为“True”。

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

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

　　（2）在名称为Form1的窗体上画一个文本框，名称为Text1，其宽度为1000；再画一个滚动条，名称为HS1。其刻度值的范围是1000-2000。请编写滚动条的Change事件过程，程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文本框的宽度。运行时的窗体如图所示。程序中不能使用任何变量，事件过程中只能写一条语句。

　　*注意：

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

　　解题思路：

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

　　在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1，宽度（Width属性）设为1000。画一个滚动条控件，通过其属性窗口将名称设为HS1，最大值（Max属性）设为2000，最小值（Min属性）设为1000。

　　移动滚动条（即运行Change事件过程），在该Change事件过程中加入语句：

　　Private Sub HS1_Change()

　　Text1.Width = HS1.Value

　　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，窗体上有两个列表框，名称分别为List1、List2，在List2中已经预设了内容；还有两个命令按钮， 名称分别为C1、C2，标题分别为“添加”、“清除”。如图所示。程序的功能是在运行时，如果选中右边列标框中的一个列表项，单击“添加”按钮，则把该项移到左边的列表框中；若选中左边列表框中的一个列表项，单击“清除”按钮，则把该项移回右边的列表框中。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ？改为正确的内容。 但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。

　　解题思路：

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

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

　　1) 将语句

　　'While (k < List2.?)

　　改为

　　While (k < List2.ListCount)

　　2) 将语句

　　'If ?.Selected(k) = True Then

　　改为

　　If List2.Selected(k) = True Then

　　3) 将语句

　　'List2.RemoveItem ?

　　改为

　　List2.RemoveItem k

　　在“清除”按钮的Private Sub C2_Click()事件过程中，有一处地方需要修改。

　　1) 将语句

　　'List1.RemoveItem List1.?

　　改为

　　List1.RemoveItem List1.ListIndex

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

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

　　（2）在考生文件夹下有一个工程文件sjt4.vbp，请在Form1窗体上建立一个名称为Op1的单选按钮数组，含有三个单选按钮，其标题分别为“10！”、“11！”、“12！”，Index属性分别为0、1、2；再画一个名称为 C1的命令按钮，标题为“计算”；画一个名称为Text1的文本框，如图所示。

　　程序的功能是在选定一个单选按钮并单击“计算”按钮后， 可以计算出相应的阶乘值，在Text1中显示该阶乘值。请画出上述控件并编写程序。

　　注意：

　　考生不得修改工程中已经存在的内容， 在结束程序运行之前，必须进行一次计算。 必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。

　　解题思路：

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

　　由于所提供的窗体控件不完整，需画一个单选按钮控件，通过对单选按钮控件的复制产生单选按钮控件数组，共有三个单选按钮，通过属性窗口将名称设为Op1，Index属性分别设为0、1、2，标题（Caption属性）分别设为“10！”、“11！”、“12！”。画一个命令按钮控件，通过属性窗口将名称设为C1，标题（Caption属性）设为“计算”。画一个文本框控件，通过属性窗口将名称设为Text1。

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

　　Private Sub C1_Click()

　　Dim k As Integer

　　k = 0

　　'判断选择了哪个单选按钮

　　While Not Op1(k).Value And k < 3

　　k = k + 1

　　Wend

　　If k < 3 Then

　　Text1.Text = calculat(Val(Left$(Op1(k).Caption, 2)))

　　End If

　　End Sub

　　函数calculat()是求阶乘的函数，具体内容：

　　Function calculat(n As Integer)

　　Dim k As Integer, t As Long

　　t = 1

　　For k = 2 To n

　　t = t * k

　　Next k

　　calculat = t

　　End Function

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

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

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

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

　　在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有一个文本框，名称为Text1，可以多行显示；有一个名称为CD1的通用对话框；还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“打开文件”、“转换”、“存盘”，如图所示。

　　命令按钮的功能是：“打开文件”--弹出打开文件对话框，默认打开文件的类型为“文本文件”。选择考生文件夹下的 in5.txt文件后，该文件中的内容显示在Text1中；“转换”--把Text1中的所有小写英文字母转换成大写；“存盘”--把Text1中的内容存入考生文件夹下的out5.dat文件中。

　　在窗体中已经给出了部分程序，要求：

　　1）请去掉程序中的注释符，把程序中的 ？改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。

　　2）编写“转换”按钮的Click事件过程。最后把修改后的文件按原文件名存盘。

　　注意：

　　考生不得修改已有的程序和控件的属性，必须对考生文件夹下的in5.txt文件进行转换，并把转换结果通过“存盘”按钮存入考生文件夹下的out5.dat文件中，否则无成绩。

　　解题思路：

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

　　由于所提供的窗体程序不完整，在“打开文件”按钮的Private Sub C1_Click()中，有二处地方需要修改。

　　1) 将语句

　　'CD1.FilterIndex = ?

　　改为

　　CD1.FilterIndex = 2

　　2) 将语句

　　'Text1.Text = ?

　　改为

　　Text1.Text = a

　　在“存盘”按钮的Private Sub C3_Click()中，有一处地方需要修改。

　　1) 将语句

　　'CD1.Action = ?

　　改为

　　CD1.Action = 2

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

　　Private Sub C2_Click()

　　Dim a As String, b As String, c As String, k As Integer, n As Integer

　　a = Text1.Text

　　b = ""

　　n = Asc("a") - Asc("A")

　　For k = 1 To Len(a)

　　c = Mid$(a, k, 1)

　　If c >= "a" And c <= "z" Then

　　c = String(1, Asc(c) - n)

　　End If

　　b = b + c

　　Next k

　　Text1.Text = b

　　End Sub

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

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