问答题
在考生文件夹中有一个工程文件sj4.vbp及窗体文件sj4.frm。在名为Form1的窗体上有一个圆和一条直线(直线的名称为Line1)构成一个钟表的图案；有两个命令按钮，名称分别为Command1和Command2，标题分别为“开始”和“暂停”，还有一个名为Timer1的计时器。
程序运行时，钟表指针不动，单击“开始”按钮，则钟表上的指针(即Line1)开始顺时针旋转(每秒转6°，一分钟转一圈)；单击“暂停”按钮，则指针暂停旋转。运行时的窗体如下图所示。请设置计时器的适当属性，使得每秒激活计时器的Timer事件一次；编写两个按钮的Click事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后按原文件名并在原文件夹中保存修改后的文件。
程序运行时，钟表指针不动，单击“开始”按钮，则钟表上的指针(即Line1)开始顺时针旋转(每秒转6°，一分钟转一圈)；单击“暂停”按钮，则指针暂停旋转。运行时的窗体如下图所示。请设置计时器的适当属性，使得每秒激活计时器的Timer事件一次；编写两个按钮的Click事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后按原文件名并在原文件夹中保存修改后的文件。
【正确答案】本题主要考查计时器控件和形状控件和用法。计时器的Interval属性用于设置每次触发计时器的Timer事件的时间间隔，单位为毫秒。Enabled属性控制计时器是否开始启用，True表示启用，False表示不启用。形状控件用来绘制各种形状，其值有6种，0表示矩形，1表示正方形，2表示椭圆，3表示圆形，4表示圆角矩形，5表示圆角正方形。
根据题意，将计时器的Interval属性设为1000，双击Command1命令按钮，进入代码窗口，源程序给出的代码如下：
Dim lenth As Integer，q As Integer
Const PI=3.14159
Private Sub Form_Load()
lenth=Line1.Y2-Line1.Y1
q=90
End Sub
Private Sub Timer1_Timer()
q=q-6
Line1.Y1=Line1.Y2-lenth*Sin(q*PI/180)
Line1.X1=Line1.X2+lenth*Cos(q*PI/180)
End Sub
补充后的命令按钮事件如下：
Private Sub Command1_Click()
Timer1.Enabled=True
End Sub
Private Sub Command2_Click()
Timer1=False
End Sub
单击
根据题意，将计时器的Interval属性设为1000，双击Command1命令按钮，进入代码窗口，源程序给出的代码如下：
Dim lenth As Integer，q As Integer
Const PI=3.14159
Private Sub Form_Load()
lenth=Line1.Y2-Line1.Y1
q=90
End Sub
Private Sub Timer1_Timer()
q=q-6
Line1.Y1=Line1.Y2-lenth*Sin(q*PI/180)
Line1.X1=Line1.X2+lenth*Cos(q*PI/180)
End Sub
补充后的命令按钮事件如下：
Private Sub Command1_Click()
Timer1.Enabled=True
End Sub
Private Sub Command2_Click()
Timer1=False
End Sub
单击
【答案解析】