装货港和卸货港的表示方法，发票、产地证、海关发票等单据的这两部分内容的表达方法比较简单，一般按

示“AAAA”(如图2—1所示)；再建立一个名称为Cmd1，标题为“清除”的命令按钮，编写适当的事件过程。要求程序运行后，如果单击“清除”命令按钮，则清除文本框中所显示的信息。

注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sit3.vbp。

2．在考生文件夹中有工程文件sit4.vbp，它包含一个窗体文件form1。在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为Command1，标题为“复制”。要求程序运行后，在列表框中自动建立四个列表项，分别为“项目1”、“项目2”、“项目3”、“项目4”。如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中(程序运行结果如图2—2)。

要求：编写程序，以实现试题要求的功能。

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

注意：下面出现的“考生文件夹”均为C:\wexam\25160002。

在考生文件夹下有一个工程文件sjt5.vbp在名称为Form1的窗体上画一个文本框，名称为Text1，允许多行显示：再画3个命令按钮，名称分别为C1、C2和C3，标题分别为“输入”、“转换”和“存盘”，如图26-5所示。请编写适当的事件过程，使得在运行时，单击“输入”按钮，则从考生文件夹中读入in5.txt文件(文件中只有字母和空格)，放入Text1中；单击“转换”按钮，则把Text1中的所有小写字母转换为大写字母；单击“存盘”按钮，则把Text1中的内容存入out5.txt文件中。

注意：去掉程序中的注释符，把程序中的？改为正确的内容，考生必须把转换后的内容用“存盘”按钮存入out5.txt文件，否则无成绩。考生的工程文件以文件名sjt5.vbp存盘，窗体文件以文件名sjt5.frm存盘。

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。

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

(1) 在名称为Form1的窗体上添加一个计时器控件，名称为Timer1。请利用“属性”窗口设置适当属性，使得在运行时可以每隔1秒，调用计时器的Timer事件过程一次。另外，请把窗体的标题设置为“题目2”。设计阶段的窗体如图18-1所示。

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

(2) 在名称为Form1的窗体上画一个文本框，名称为Text1，无初始内容；再画一个图片框，名称为 P1。请编写Text1的Chang事件过程，不能使用任何变量，使得运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容。程序运行界面如图18-2所示。

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

在名为Form1的窗体上绘制一个文本框(名称为Text1)和一个水平滚动条(名称为 HSl)。在属性窗口中对滚动条设置如下属性：

Min 500

Max 2000

LargeChange 50

SmallChange 20

编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小文本框的高度，并使得文本框的宽度始终是其高度的1.2倍。运行后的窗体如下图所示。

注意：

要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为execise58.vbp，窗体文件名为execise58.frm。

在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是

A．Private Sub Text1_Change() Command1.Caption=“计算机等级考试” End Sub

B．Private Sub Command1_Cick() Caption=“计算机等级考试” End Sub

C．PrivateSubForm1_Click() Text1.Caption=“计算机等级考试” End Sub

D．PrivateSubCommand1_Click() Text1.Text=“计算机等级考试” End Sub

在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是______。

A．Prlvate Sub Text1_Change() Command1. Caption="计算机等级考试" End Sub

B．Private Sub Command1_Click() Caption="计算机等级考试" End Sub

C．Private Sub Form_Load() Text1. Caption="计算机等级考试" End Sub

D．Private SubCommand1_Click() Text1. Text="计算机等级考试" End Sub

在名为Form1的窗体上建立一个文本框(名称为Text1，MultiLine属性为True, SerollBars属性为2)和两个命令按钮(名称分别为Cmd1和Cmd2，标题分别为Read和Save)，如下图所示。

要求程序运行后，如果单击Read按钮则读入in4.txt文件中的100个整数，放入一个数组中(数组下界为1)；如果单击Save按钮，则挑出100个整数中的所有偶数，在文本框 Text1中显示出来，并把所有偶数之和存入考生文件夹中的文件out4.txt中。

在考生文件夹下有标准模块model.bas，其中putdata过程可以把一个整型数存入 out4.txt文件，考生可以把该模块文件添加到自己的工程中。

注意：

程序中对文件的操作统一使用相对路径：文件必须存放在考生文件夹中，窗体文件名为exeeise4.frm，工程文件名为execise4.vbp，结果存入out4.txt文件，否则没有成绩；

在名称为Form1的窗体上添加一个名称为Text1的文本框；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使程序运行时，单击“隐藏”菜单项，文本框消失；单击“显示”菜单项，文本框重新出现，程序运行后的窗体如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sit2．vbp，窗体文件名保存为sjr2．frm。

文本框的右边画一个垂直滚动条，名称为VScrolll。滚动条的高度为 3000，宽度为375。在图片框的下方画一个命令按钮，名称为Command1，标题为“清除”。文本框的宽度为2000，高度为600，如图3所示。编写一个事件过程，使程序运行后，单击“清除”按钮，文本框中的文字被清除。程序中不得使用任何变量。

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

在窗体上绘制一个文本框(名称为Text1)和一个命令按钮(名称为Cmd1，标题为 Display)。请编写Cmdl的Click事件过程，使得在程序运行后，按Esc键就调用这个事件过程且在文本框中显示Visual Basic，程序运行结果如下图所示。

注意：

在程序中不能使用任何变量：文件必须存放在考生文件夹中，工程文件名为 execise67.vbp，窗体文件名为execise67.frm。