(1)新建一个工程，包含两个窗体，窗体文件名为sjll．frm和sjl2．frm，名称分别为Forml和Form2，Forml上包含一个计时器Timerl，两个窗体上均包含一个标签。运行后，在Forml的标签上显示“祝您”，时间为3秒，3秒后，Forml消失，Form2出现，在标签上面显示“考试成功”。程序中不得使用任何变量，程序运行时的窗体界面如图23—1所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为sj11．frm和sj12．frm工程文件名为sj1．vbp。 (2)在窗体上绘制一个命令按钮，名称为Commandl、标题为“剪切粘贴”．两个名称分别为Textl和Text2的文本框控件。请编写适当的事件过程，使得程序在运行时，单击“剪切粘贴”按钮，Textl中的内容将在Text2中显示，同时将Text1中的内容删除。程序中不得使用任何变量，程序运行时的窗体界面如图23—2所示。
【正确答案】正确答案： (1)本题主要考查窗体设计和Timer控件的使用。根据题意，新建“标准EXE”工程，将一个Label添加到窗体Forml中，其Caption属性为“祝您”，再添加一个Timer控件，设置其Interval属性为3 000毫秒，名称为Timerl，再添加一个名为Form2的窗体，并添加一个标签，其Caption属性为“考试成功”。在Forml的Timerl控件中编写如下代码： Private Sub Timerl_Timer() Forml．Hide Form2．Show '调用Form2 End Sub 单击
按钮运行程序，并按要求保存。 (2)根据题意，新建“标准EXE”工程，将一个Command控件和两个Text控件添加到窗体上，Command的名称为Commandl、Caption属性为“剪切粘贴”，Text的名称分别为Textl和Text2，Text属性都为空。双击Commandl命令按钮， 编写如下代码： Private Sub Commandl_Click() Text2．Text=Textl．Text'在Text2中显示Textl的内容 Textl．Text""'清空Textl中的内容 End Sub 单击
按钮运行程序，并按要求保存。 (2)根据题意，新建“标准EXE”工程，将一个Command控件和两个Text控件添加到窗体上，Command的名称为Commandl、Caption属性为“剪切粘贴”，Text的名称分别为Textl和Text2，Text属性都为空。双击Commandl命令按钮， 编写如下代码： Private Sub Commandl_Click() Text2．Text=Textl．Text'在Text2中显示Textl的内容 Textl．Text""'清空Textl中的内容 End Sub 单击【答案解析】