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

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

　　（1）在名称为Form1的窗体上画1个名称为Shape1的圆角矩形，高、宽分别为1000、2000。请利用属性窗口设置适当的属性满足以下要求：

　　1）圆角矩形中填满绿色（颜色值为：&H0000FF00& 或 &HFF00&）；

　　2）窗体的标题为“圆角矩形”。

　　运行后的窗体如图所示。

　　注意：

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

　　解题思路：

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

　　在该窗体上画一个形状控件，通过其属性窗口将名称设为shape1，高（Height属性）设为1000，宽（Width属性）设为2000，Shape属性设为4，FillStyle属性设为0，FillColor属性设为&HFF00&。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“圆角矩形”。

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

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

　　（2）在考生文件夹下有一个工程文件 sjt2.vbp。窗体中已含有除计时器外的其他控件，还有一个过程sub1，其功能是按照Text1中的通话时间计算通话费，并将其显示在Text2中。

　　程序运行时，单击“通话开始”按钮，则在Text1中累加通话时间（每秒加1），单击“通话结束”按钮，则停止通话时间的累加；单击“计算通话费”按钮，则调用过程sub1。

　　要求：

　　1）在窗体上画一个计时器（见图），并通过属性窗口设置适当属性。

　　2）编写三个按钮的Click事件过程。

　　3）编写计时器的事件过程。

　　注意：

　　要求程序中不得使用变量，每个事件过程中只能写一条语句， “计算通话费”按钮的事件过程中只允许调用过程sub1。 不得修改已经存在的内容和控件属性，最后把文件按原文件名存盘。

　　解题思路：

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

　　由于所提供的窗体控件不完整，需在该窗体上画一个计时器控件，计时器开始不计时，即把（Enabled属性）设为False，Interval属性设为1000（每秒加1）。

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

　　Private Sub Command1_Click()

　　Timer1.Enabled = True

　　End Sub

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

　　Private Sub Command2_Click()

　　Timer1.Enabled = False

　　End Sub

　　单击“计算通话费”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Command3_Click()

　　sub1

　　End Sub

　　计时器的Timer事件过程，在该Timer事件过程中加入语句：

　　Private Sub Timer1_Timer()

　　Text1 = Text1 + 1

　　End Sub

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

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