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

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

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

　　（1）在名称为Form1的窗体上画二个文本框，名称分别为T1、T2，初始情况下都没有内容。请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中（如图所示）。程序中不得使用任何变量。

　　*注意：

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

　　解题思路：

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

　　在该窗体上画二个文本框控件，通过其属性窗口将名称分别设为T1、T2，Text属性均设为空。

　　为实现T1中输入字符立即显示在T2中的功能（即运行T1_Change事件过程），在该Change事件过程中加入语句：

　　Private Sub T1_Change()

　　T2.Text = T1.Text

　　End Sub

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

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

　　（2）在名称为Form1的窗体上画一个文本框，名称为Text1；再画一个命令按钮，名称为C1，标题为“移动”（如图所示）。请编写适当的事件过程，使得在运行时，单击“移动”按钮，则文本框水平移动到窗体的最左端。程序中不得使用任何变量。

　　*注意：

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

　　解题思路：

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

　　在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1。画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“移动”。

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

　　Private Sub C1_Click()

　　Text1.Left = 0

　　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，其窗体上有一个名称为 Text1的文本框；一个名称为 L1 的列表框；一个命令按钮，名称为 C1 ，标题为“添加”（如图所示）。程序的功能是，在运行时，如果在文本框中输入一行内容并单击“添加”按钮，则把文本框中的内容作为列表项添加到列表中。如果单击列表中的某一项，则立即从列表中删除该项。

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

　　解题思路：

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

　　1) 将语句

　　'L1.AddItem ?

　　8

　　改为

　　L1.AddItem Text1

　　在列表框的Private Sub L1_Click()事件过程中，有一处地方需要修改。

　　1) 将语句

　　'L1.RemoveItem ?

　　改为

　　L1.RemoveItem L1.ListIndex

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

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

　　（2）在考生文件夹下有一个工程文件sjt4.vbp，请在窗体上画一个文本框，名称为 Text1；画一个命令按钮，名称为C1，标题为“确定”；再画三个单选按钮，名称分别为 Op1、Op2、Op3，标题分别为“飞机”、“火车”、“汽车”（如图所示）。请编写适当的事件过程，使得在运行时，选中一个单选按钮并单击“确定”按钮后，按照下表在文本框中显示相应内容。

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

　　解题思路：

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

　　由于所提供的窗体控件不完整，需在该窗体上画一个文本框控件，通过属性窗口将名称设为Text1。画一个文本框控件，通过属性窗口将名称设为C1，标题（Caption属性）设为“确定”。画三个单选按钮控件，通过属性窗口将名称分别设为 Op1、Op2、Op3，标题（Caption属性）分别设为“飞机”、“火车”、“汽车”。

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

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

　　Private Sub C1_Click()

　　If Op1.Value Then

　　Text1.Text = "需要1小时"

　　ElseIf Op2.Value Then

　　Text1.Text = "需要10小时"

　　ElseIf Op3.Value Then

　　Text1.Text = "需要15小时"

　　End If

　　End Sub

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

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

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

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

　　解题思路：

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

　　由于所提供的窗体程序不完整，需在"计算"命令按钮的Click事件过程中加入语句：

　　Private Sub Command2_Click()

　　'考生应完成的程序

　　Dim s As Long, n As Integer

　　For i = 1 To 100

　　If isnarc(a(i)) Then

　　s = s + a(i)

　　n = n + 1

　　End If

　　Next i

　　Text1.Text = Fix(s / n)

　　End Sub

　　编写一个通用函数：

　　Function isnarc(p As Integer)

　　x = Fix(p / 100)

　　y = Fix((p - x * 100) / 10)

　　z = p - x * 100 - y * 10

　　If p = x ^ 3 + y ^ 3 + z ^ 3 Then

　　isnarc = True

　　Else

　　isnarc = False

　　End If

　　End Function

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

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