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

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

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

　　（1）在名称为 Form1的窗体上画一个标签，其名称为Label1，标题为“等级考试”，BorderStyle属性为1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为Command1，编写适当的事件过程。程序运行后，其界面如图1所示，此时如果单击命令按钮， 则标签消失，同时用标签的标题作为命令按钮的标题，如图2所示。

　　注意：

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

　　解题思路：

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

　　在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“等级考试”，BorderStyle属性为1，标题大小自动调整（AutoSize属性）设为True。画一个命令按钮控件，通过其属性窗口将名称设为Command1。

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

　　Private Sub Command1_Click()

　　Command1.Caption = Label1

　　Label1.Visible = False

　　End Sub

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

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

　　（2）在名称为Form1的窗体上画一个文本框，其名称为Text1，初始内容为空白；然后再画三个单选按钮，其名称分别为Op1、Op2和Op3，标题分别为北京、西安和杭州，编写适当的事件过程。程序运行后，如果选择单选按钮Op1，则在文本框中显示“颐和园”； 如果选择单选按钮Op2，则在文本框中显示“兵马俑”； 如果选择单选按钮Op3，则在文本框中显示“西湖”。程序的运行情况如图所示。要求程序中不得使用变量，事件过程中只能写一条语句。

　　注意：

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

　　解题思路：

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

　　在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1，文本内容（Text属性）设为空。画三个单选按钮控件，通过属性窗口将名称设为Op1、Op2、Op3，标题（Caption属性）分别设为“北京”、“西安”、“杭州”。

　　选择单选按钮Op1（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Op1_Click()

　　Text1 = "颐和园"

　　End Sub

　　选择单选按钮Op2（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Op2_Click()

　　Text1.Text = "兵马俑"

　　End Sub

　　选择单选按钮Op3（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Op3_Click()

　　Text1.Text = "西湖"

　　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。

　　在窗体上有一个名称为Command1、标题为“计算”的命令按钮；两个水平滚动条， 名称分别为Hscroll1和Hscroll2，其Max属性均为100，Min属性均为1； 四个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“运算数1”、“运算数2”、“运算结果”和空白；此外还有一个包含四个单选按钮的控件数组， 名称为Option1，标题分别为“+”、“-”、“*”和“/”， 如图1所示。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选钮，然后单击命令按钮，相应的计算结果将显示在Label4中， 程序运行情况如图2所示。这个程序不完整，请把它补充完整，并能正确运行。

　　要求：

　　去掉程序中的注释符，把程序中的 ？改为正确的内容， 使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。

　　解题思路：

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

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

　　1) 将语句

　　'If ? = True Then

　　改为

　　If Option1(i) = True Then

　　2) 将语句

　　'Select Case ?

　　改为

　　Select Case opt

　　3) 将语句

　　'? = Str(HScroll1.Value) & " " & opt & Str(HScroll2.Value) & " =" & Str(Result)

　　改为

　　Label4 = Str(HScroll1.Value) & " " & opt & Str(HScroll2.Value) & " =" & Str(Result)

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

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

　　（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。在窗体上有一个命令按钮， 其名称为Command1，标题为“输入/显示”；此外还有一个文本框，其名称为Text1，初始内容为空白。程序的功能是，程序运行后，单击命令按钮，显示输入对话框，在对话框中输入某个月份的数值（1～12）， 然后单击“确定”按钮，即可在文本框中输出该月份

　　所在的季节。例如输入5，将输出“5月份是夏季”，如图所示。该程序不完整，请把它补充完整。

　　要求：

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

　　解题思路：

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

　　1) 将语句

　　'Loop Until ? And n < 13

　　改为

　　Loop Until n > 0 And n < 13

　　2) 将语句

　　'Select Case ?

　　改为

　　Select Case n

　　3) 将语句

　　'Select Case ?

　　改为

　　Select Case m

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

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

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

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

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

　　在窗体上有两个命令按钮，其名称分别为Command1和Command2，标题分别为“写文件”和“读文件”，如图1所示。 其中“写文件”命令按钮事件过程用来建立一个通信录，以随机存取方式保存到文件t5.txt中；而“读文件”命令按钮事件过程用来读出文件t5.txt中的每个记录，并在窗体上显示出来。通信录中的每个记录由3个字段组成，结构如下：

　　姓名（Name） 电话（Tel） 邮政编码（Pos）

　　LiuMingliang (010)62781234 100082

　　...... ...... ......

　　各字段的类型和长度为：

　　姓名（Name）： 字符串 15

　　电话（Tel）： 字符串 15

　　邮政编码（Pos） 长整型（Long）

　　程序运行后，如果单击“写文件”命令按钮，则可以随机存取方式打开文件t5.txt，并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答“Y”（或“y”）则输入新记录，回答“N”（或“n”）则停止输入；如果单击“读文件”命令按钮，则可以随机存取方式打开文件t5.txt，读出文件中的全部记录，并在窗体上显示出来， 如图2所示。该程序不完整，请把它补充完整。

　　要求：

　　1）去掉程序中的注释符，把程序中的 ？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。

　　2）文件t5.txt中已有3个记录（如图2所示），请运行程序，单击“写文件”命令按钮，向文件t5.txt中添加以下两个记录（全部采用西文方式）：

　　LiDaqing (027)87348765 430065

　　ChenQingshan (022)26874321 300120

　　3）运行程序，单击“读文件”命令按钮，在窗体上显示全部记录（共5个）。

　　4）用原来的文件名保存工程文件和窗体文件。

　　解题思路：

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

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

　　1) 将语句

　　'RecNum = ?

　　改为

　　RecNum = RecNum + 1

　　2) 将语句

　　'Put #1, ?

　　改为

　　Put #1, RecNum, Pers

　　3) 将语句

　　'Loop While UCase(asp) ?

　　改为

　　Loop While UCase(asp) <> "N"

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

　　1) 将语句

　　'RecNum = ?

　　改为

　　RecNum = LOF(1) / Len(Pers)

　　2) 将语句

　　'Get #1, ?

　　改为

　　Get #1, i, Pers

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

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