（1）在名称为Form1的窗体中绘制一个名称为Label1的标签，其标题为空，BorderStyle属性为1；再添加一

为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，每隔一秒钟标签中的数字加1。如下图所示的是程序刚启动时的情况。

注意：

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

组，含有3个单选按钮，其标题分别为“71”、“81”、“91”，Index属性分别为0、1、2；再绘制一个名称为Cmd1的命令按钮，标题为“计算”；绘制一个名称为Text1的文本框，如图所示，

程序的功能是在选定一个单选按钮并单击“计算”按钮后，可以计算出相应的阶乘值，在Text1中显示该阶乘值。请绘制出上述控件并编写程序。

注意：

不得修改工程中已经存在的内容，在结束程序运行之前，必须进行一次计算。必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。

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

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

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

C．Private Sub Command1_Click() Text.Caption=“计算机等级考试” End Sub

D．Private Sub Command1_Click() Textl．Text=-"计算机等级考试” End Sub

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

Min 500

Max 2000

LargeChange 50

SmallChange 20

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

注意：

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

在名为Form1的窗体上绘制一个垂直滚动条(名称为VS1)和一个水平滚动条(名称

为HS1)。在属性窗口中对两个滚动条设置如下属性：

Min 2000

Max 8000

LargeChange 500

SmallChange 50

编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小窗体。运行后的窗体如下图所示。

注意：

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

框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“输入”）。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个“输入”对话框，在两个“输入”对话框中分别输入长和宽，并分别在两个文本框中显示出来，运行后的窗体如图21-1所示。

注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj1．vbp，窗体文件名为sj1．frm。

（2）在名为Form1的窗体上绘制一个标签（名称为Label1，标题为“输入”）、一个文本框（名称为Text1，Text属性为空白）和一个命令按钮（名称为Command1，标题为“显示”）。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入内容，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。

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

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

Min 10

Max 100

LargeChange 5

SmallChange 2

编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小文本框中的“京”字。运行后的窗体如下图所示。

注意：

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

一个名称为Cmd1的命令按钮(标题为“开始倒计数”)和一个名称为 Timer1的计时器。请在窗体上绘制一个标签(名称为Lab1，标题为“请输入一个正整数”)、一个文本框(名称为Text1，初始内容为空白) (如下图所示)。已经给出了相应的事件过程。

程序运行后，在文本框中输入一个正整数，此时如果按回车键，则可使文本框中的数字每隔1秒减1(倒计数)：当减到0时，倒计数停止，清空文本框，并把焦点移到文本框中。

要求：

去掉程序中的注释符“'”，把程序中的问号“？”改为正确的内容，使其能正确运行，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。

置为True，然后编写如下的事件过程：

Private Sub Form. Click()

Open "d：\test\smtext1.txt" For Input As 1

Do While Not

Line Input 1，aspects

whole$=whole$+aspect$+Chr$(13)+Chr$(10)

Loop

Text1.Text=whole$

Close 1

Open "d：\test\smtext2.txt" For Output As 1

Print 1, ______

Close 1

End Sub

上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。

一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是。A．Private Sub Tex1_Change() Command1.Caption="计算机等级考试" End SubB．Private Sub Command1_Click() Caption="计算机等级考试"C．Private Sub Command1_Click() Text.Caption="计算机等级考试" End SubD．Private Sub Command1_Click() Text1.Text="计算机等级考试" End Sub