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

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

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

　　（1）在名称为 Form1的窗体上画一个文本框，其名称为T1，宽度和高度分别为1400为400； 再画两个命令按钮，其名称分别为C1和C2，标题分别为“显示”和“扩大”，编写适当的事件过程。程序运行后，如果单击C1命令按钮，则在文本框中显示“等级考试”，如图1所示；如果单击C2命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小扩大到原来的3倍，如图2所示。

　　注意：

　　要求程序中不得使用变量。

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

　　解题思路：

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

　　在该窗体上画一个文本框控件，通过其属性窗口将名称设为T1，高（Height属性）设为400，宽（Width属性）设为1400。画二个命令按钮控件，通过其属性窗口将名称分别设为C1、C2，标题（Caption属性）分别设为“显示”、“扩大”。

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

　　Private Sub C1_Click()

　　T1 = "等级考试"

　　End Sub

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

　　Private Sub C2_Click()

　　T1.Height = 2 * Me.T1.Height

　　T1.Width = 2 * T1.Width

　　T1.FontSize = 3 * Form1.T1.FontSize

　　End Sub

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

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

　　（2）在名称为Form1的窗体上画一个命令按钮，其名称为C1，标题为“转换”；然后再画两个文本框，其名称分别为Text1和Text2，初始内容均为空白，编写适当的事件过程。 程序运行后，在Text1中输入一行英文字符串，如果单击命令按钮，则Text1文本框中的字母都变为小写，而Text2中的字母都变为大写。 例如，在Text1中输入Visual Basic Programming，则单击命令按钮后，结果如图所示。

　　要求：

　　不得使用任何变量。

　　*注意：

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

　　解题思路：

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

　　在该窗体上画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“转换”。画二个文本框控件，通过其属性窗口将名称分别设为Text1、Text2，Text属性均设为空。

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

　　Private Sub C1_Click()

　　Text1.Text = LCase(Text1.Text)

　　Text2.Text = UCase(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，包含了所有控件和部分程序，如图所示。

　　要求：

　　1）利用属性窗口向列表框添加四个项目： Visual Basic，Turbo C，C++，Java；

　　2）请编写适当的程序完成以下功能：当选择列表框中的一项和单选按钮Option1，然后单击“确定”命令按钮，则文本框中显示“XXX笔试”； 当选择列表框中的一项和单选按钮Option2，然后单击“确定”命令按钮，则文本框中显示“XXX上机”。其中“XXX”是在列表框中所选择的项目。

　　注意：

　　考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一次选择操作（包括列表框和单选按钮），否则不得分。最后把修改后的文件按原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。由于所提供的窗体控件不完整，向列表框控件添加项目（List属性），添加的项目分别为Visual Basic，Turbo C，C++，Java，每个项目为一行。

　　由于所提供的窗体程序不完整，单击“确定”命令按钮（即运行Click事件过程），在该Click事件过程中

　　加入语句：

　　Private Sub Command1_Click()

　　If Option1.Value And List1.Text <> "" Then

　　Text1.Text = List1.Text & Option1.Caption

　　Else

　　If Option2.Value And List1.Text <> "" Then

　　Text1.Text = List1.Text & Option2.Caption

　　End If

　　End If

　　End Sub

　　另外需注意：在结束程序运行之前，必须至少要进行一次选择操作（包括列表框和单选按钮），退出程序时需单击窗体右上角的关闭按钮，这样就运行了Private Sub Form_Unload(Cancel As Integer)事件过程。

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

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

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

　　在窗体上有一个命令按钮，其名称为Command1，标题为“计算并输出”。程序运行后，如果单击命令按钮，程序将计算500以内两个数之间（包括开头和结尾的数）所有连续数的和为1250的正整数， 并在窗体上显示出来。这样的数有多组， 程序输出每组开头和结尾的正整数，并用“～”连接起来，如图所示。该程序不完整，请把它补充完整。

　　要求：

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

　　解题思路：

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

　　1) 将语句

　　'iSum = ?

　　改为

　　iSum = 0

　　2) 将语句

　　'iSum = ?

　　改为

　　iSum = iSum + j

　　3) 将语句

　　'If iSum = ? Then

　　改为

　　If iSum = 1250 Then

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

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

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

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

　　在窗体上画一个文本框，其名称为Text1，初始内容为空白， 并设置成多行显示格式；然后再画两个命令按钮，其名称分别为Command1和Command2，标题分别为“显示”和“保存”，如图所示，编写适当的事件过程。程序运行后，如果单击“显示”命令按钮，则读取考生文件夹下的in5.txt文件， 并在文本框中显示出来， 该文件是一个用随机存取方式建立的文件，共有5个记录，要求按记录号顺序显示全部记录，每个记录一行；如果单击“保存”命令按钮，则把所有记录保存到考生文件夹下的顺序文件out5.txt中。

　　随机文件in5.txt中的每个记录包括3个字段，分别为姓名、性别和年龄，其名称和长度分别为：

　　Name 字符串 8

　　Sex 字符串 4

　　Age Integer

　　其类型定义为：

　　Private Type StudInfo

　　Name As String * 8

　　Sex As String * 4

　　Age As Integer

　　End Type

　　要求：

　　1）文件out5.txt以顺序存取方式建立和保存。

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

　　解题思路：

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

　　在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1，文本内容（Text属性）设为空，多行（MultiLine属性）设为True。画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题（Caption属性）分别设为“显示”、“保存”。

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

　　Private Sub Command1_Click()

　　Dim RecNum As Long

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

　　RecNum = 1

　　Do While Not EOF(1)

　　Get #1, RecNum, Stud

　　Text1.Text = Text1.Text & Stud.Name

　　Text1.Text = Text1.Text & Stud.Sex

　　Text1.Text = Text1.Text & Str(Stud.Age)

　　Text1.Text = Text1.Text + vbCrLf

　　RecNum = RecNum + 1

　　Loop

　　Close 1

　　End Sub

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

　　Private Sub Command2_Click()

　　Open App.Path & "\out5.txt" For Output As #1

　　Print #1, Text1.Text

　　Close 1

　　End Sub

　　声明部分定义一个存放“姓名”、“性别”和“年龄”纪录的结构，具体内容：

　　Private Type StudInfo

　　Name As String * 8

　　Sex As String * 4

　　Age As Integer

　　End Type

　　在声明部分还定义一个结构变量，其语句：

　　Dim Stud As StudInfo

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

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