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

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

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

　　（1）在名称为Form1的窗体上画一个水平滚动条，其名称为HScroll1，Min属性为1000，Max属性为1500，LargeChange属性为50，SmallChange属性为2；然后再画一个文本框，其名称为Text1， 初始内容为空白，编写适当的事件过程。 程序运行后， 移动滚动框，则在文本框中显示滚动框的当前位置。程序的运行情况如图所示。

　　要求：

　　1）不得使用任何变量

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

　　解题思路：

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

　　在该窗体上画一个水平滚动条控件，通过其属性窗口将名称设为HScroll1，将Min属性设为1000，将Max属性设为1500，将LargeChange属性设为50，将SmallChange属性设为2。画一个文本框控件，通过其属性窗口将名称设为Text1，文本内容（Text属性）设为空白

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

　　Private Sub HScroll1_Change()

　　Text1 = HScroll1

　　End Sub

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

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

　　（2）在名称为Form1的窗体上画一个命令按钮，其名称为C1，标题为“移动”，位于窗体的左上部，如图1所示，编写适当的事件过程。程序运行后，每单击一次窗体，都使得命令按钮同时向右、向下移动100。程序的运行情况如图2所示。

　　要求：

　　1）不得使用任何变量；

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

　　解题思路：

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

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

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

　　Private Sub Form_Click()

　　C1.Left = 100 + C1.Left

　　C1.Top = 100 + C1.Top

　　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。

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

　　1) 将语句

　　'For i = ? To

　　改为

　　For i = 0 To

　　2) 将语句

　　'To ?

　　改为

　　To 2

　　3) 将语句

　　'If Op1(i).? = True Then

　　改为

　　If Op1(i).Value = True Then

　　4) 将语句

　　'Print "我是" + Op1(i).?

　　改为

　　Print "我是" + Op1(i).Caption

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

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

　　（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。

　　窗体上有一个名称为Command1的命令按钮和一个名称为Timer1的计时器。

　　请在窗体上画一个标签（名称为Label1，标题为“请输入一个正整数”）0、再画一个文本框（名称为 Text1，初始内容为空白）。已经给出了相应的事件过程。程序运行后，在文本框中输入一个正整数，此时如果按回车键，则可使文本框中的数字每隔0.3秒减 1（倒计数）；当减到0时，倒计数停止，清空文本框，并把焦点移到文本框中。

　　要求：

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

　　解题思路：

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

　　由于所提供的窗体控件不完整，在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“请输入一个正整数”。画一个文本框控件，通过属性窗口将文本内容（Text属性）设为空。

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

　　1) 将语句

　　'If Val(?) = 0 Then

　　改为

　　If Val(Text1.Text) = 0 Then

　　2) 将语句

　　'Timer1.? = False

　　改为

　　Timer1.Enabled = False

　　3) 将语句

　　'Text1.?

　　改为

　　Text1.SetFocus

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

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

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

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

　　在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt，文件中的每个记录包括3个字段，分别为姓名、电话号码和邮政编码，其名称、类型和长度分别为：

　　Name 字符串 8

　　Tel 字符串 10

　　Post Long

　　窗体中有一个文本框和两个命令按钮。程序运行后，如果单击“读入并显示记录”命令按钮， 则从考生文件夹下的in5.txt文件中读入所有记录并显示在文本框中（每条记录占一行，数据项的顺序是姓名、电话、邮编，见图，可使用符号常量vbCrLf表示回车换行）；若单击“保存”按钮则把文本框中的内容存入out5.txt文件中。

　　要求：

　　1

　　1）编写“读入并显示记录”按钮的Click过程。

　　2）在文本框中把所有字母改为大写字母（可以手工修改）。

　　3）单击“保存”按钮把修改后的文本框内容存盘，否则无成绩！（ 过程已给出，不能修改）。 最后以原文件名将程序存放在考生文件夹下。

　　解题思路：

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

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

　　单击“读入并显示记录”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Command1_Click()

　　'考生应编写的程序

　　Open App.Path & "\in5.txt" For Random As #1 Len = Len(pal)

　　For i = 1 To 5

　　Get #1, i, pal

　　Text1.Text = Text1.Text & pal.Name

　　Text1.Text = Text1.Text & pal.Tel

　　Text1.Text = Text1.Text & Str(pal.Post)

　　Text1.Text = Text1.Text + vbCrLf

　　Next

　　Close 1

　　End Sub

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

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