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

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

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

　　（1）在名称为Form1的窗体上画两个命令按钮，其名称分别为C1和C2，标题分别为“命令按钮1”和“命令按钮2”， 通过属性窗口设计适当的属性，使得程序运行后，“命令按钮2”隐藏。编写适当的事件过程，使得单击“命令按钮1”，则“命令按钮2”出现，“命令按钮1”隐藏；而如果单击“命令按钮2”，则“命令按钮1”出现，“命令按钮2”隐藏。程序的运行情况如图所示。

　　注意：

　　程序中不得使用变量。

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

　　解题思路：

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

　　在该窗体上画二个命令按钮控件，通过其属性窗口将名称分别设为C1和C2，标题（Caption属性）分别设为“命令按钮1”和“命令按钮2”，将C2的Visible属性为False。\单击命令按钮1（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub C1_Clickk()

　　C2.Visible = True

　　C1.Visible = False

　　End Sub

　　单击命令按钮2（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub C2_Clickk()

　　C1.Visible = True

　　C2.Visible = False

　　End Sub

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

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

　　（2）在名称为Form1的窗体上画一个列表框，其名称为L1；一个水平滚动条，其名称为HS1，SmallChange属性为2， LargeChange属性为10，Min属性为0，Max属性为100，编写适当的事件过程。 程序运行后，如果把滚动框移到某个位置，然后单击窗体， 则在列表框中添加一个项目，其内容是“xx”，其中xx是滚动框所在的位置，如图所示。

　　注意：

　　程序中不要使用变量；存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

　　解题思路：

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

　　在该窗体上画一个列表框控件，通过其属性窗口将名称设为L1。画一个水平滚动条控件，通过其属性窗口将名称设为HS1，Min属性设为0，Max属性设为100，SmallChange属性设为2，LargeChange属性设为10。

　　单击窗体（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Form_Click()

　　L1.AddItem Str$(Form1.HS1)

　　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， 相应的窗体文件为sjt3.frm，在窗体上有一个命令按钮和一个文本框。 程序运行后，单击命令按钮，即可计算出数组arr中每个元素与其下标相除所得的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算数组arr中每个元素与其下标相除所得的和的操作在通用过程Fun中实现，请编写该过程的代码。

　　要求：

　　请勿改动程序中的其他部分，只在Function Fun()和End Function之间填入你编写的若干语句并运行程序。最后把修改后的文件按原文件名存盘。

　　说明：

　　数组arr中共有40个元素，所谓“数组arr中每个元素与其下标相除所得

　　的和”，指的是：

　　arr(1)/1 + arr(2)/2 + arr(3)/3 + ... + arr(40)/40

　　解题思路：

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

　　由于提供的Fun()函数不完整，需添加语句，具体内容：

　　Function Fun(a() As Single) As Single

　　Sum = 0

　　For i = 1 To UBound(a)

　　Sum = Sum + a(i) / i

　　Next i

　　Fun = Sum

　　End Function

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

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

　　（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。在窗体上有两个命令按钮，其名称分别为Command1、Command2，一个标签控件，其名称为Label1，一个计时器控件，其名称为Timer1，如图1所示。程序运行后，在命令按钮Command1中显示“开始”，在命令按钮Command2中显示“停止”，在标签中用字体大小为16的粗体显示“热烈欢迎”（标签的AutoSize属性为True ）， 同时把计时器的Interval属性设置为50，Enabled属性设置为True。 此时如果单击“开始”命令按钮，则该按钮变为禁用，标题变为“继续”，同时标签自左至右移动，每个时间间隔移动20，如图2所示， 移动出窗体右边界后，自动从左边界开始向右移动；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签停止移动；再次单击“继续”命令按钮后，标签继续移动。

　　这个程序不完整，请把它补充完整，并能正确运行。

　　要求：

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

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。由于所提供的窗体程序不完整，在窗体的Private Sub Command1_Click()事件过程中，有二处地方需要修改。

　　1) 将语句

　　'Timer1.Enabled = ?

　　改为

　　Timer1.Enabled = True

　　2) 将语句

　　'Command1.Enabled = ?

　　改为

　　Command1.Enabled = False

　　在窗体的Private Sub Command2_Click()事件过程中，有一处地方需要修改。

　　1) 将语句

　　'Timer1.Enabled = ?

　　改为

　　Timer1.Enabled = False

　　在窗体的Private Sub Timer1_Timer()事件过程中，有一处地方需要修改。

　　1) 将语句

　　'Label1.Left = ?

　　改为

　　Label1.Left = Label1.Left + 20

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

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

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

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

　　在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件。其功能是：单击“显示”命令按钮，则把考生目录下的 in5.txt文件中的所有字符放入Text1（可多行显示），如图所示；如果单击“统计”命令按钮，则统计文本框中字母A、B、C、D各自出现的次数，并依次放到窗体变量an，bn，cn，dn之中（放在其他变量中将无成绩）；如果单击“保存”命令按钮，则把统计结果存入考生文件夹下的out5.txt文件中。文件中已给出了“显示”和“保存”按钮的Click事件过程。请编写“统计”按钮的Click事件过程。

　　要求：

　　统计每个字母出现的次数时，不区分大小写。

　　注意：

　　不能修改已经给出的程序部分；在结束程序运行之前，必须单击“保存”按钮，把结果存入out5.txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。

　　解题思路：

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

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

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

　　Private Sub Command2_Click()

　　n = Len(Text1)

　　For k = 1 To n

　　ch = Mid(Text1, k, 1)

　　If UCase(ch) = "A" Then

　　an = an + 1

　　End If

　　If UCase(ch) = "B" Then

　　bn = bn + 1

　　End If

　　If UCase(ch) = "C" Then

　　cn = cn + 1

　　End If

　　If UCase(ch) = "D" Then

　　dn = dn + 1

　　End If

　　Next k

　　Text1 = an & " " & bn & " " & cn & " " & dn

　　End Sub

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

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