问答题
在考生目录下有一个工程文件sj3.vbp，窗休中有一个命令按钮，标题为“向左移动”，名称为command1，还有一个计时器，名称为Timer1，并给出了两个事件过程，但并不完整，要求：
设置计时器的属性，使其在初始状态不计时；设置计时器的属性，使其每隔0.3秒调用Timer1事件过程一次。
去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使得在运行时单击“向左移动”按钮，则按钮每隔0.3秒向左移动一次，当移出窗体时返回窗体的右端，如下图所示。
注意：不能修改程序中的其他部分，最后把修改后的文件按原文件名存盘。
设置计时器的属性，使其在初始状态不计时；设置计时器的属性，使其每隔0.3秒调用Timer1事件过程一次。
去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使得在运行时单击“向左移动”按钮，则按钮每隔0.3秒向左移动一次，当移出窗体时返回窗体的右端，如下图所示。
注意：不能修改程序中的其他部分，最后把修改后的文件按原文件名存盘。
【正确答案】本题考查计时器控件(Timer)、命令按钮控件(Command Button)的常用属性和事件，以及编写简单事件过程。
计时器只在设计时可见，计时器是否启用由其Enabled属性设置，值为True或False。启用后间隔多长时间触发一次其Timer事件由其Interval属性设置，Interval属性的单位为毫秒，默认值为0，此时计时器也不启用。
控制命令按钮向左移动可通过修改其Left属性值实现，当Left属性值超过窗体的Width属性值时，表示按钮已移出窗体，此时Left属性值设为0，即可将按钮返回窗体右端。移动按钮的事件过程均在计时器的Timer中实现。
根据题意，将一个命令按钮和一个计时器控件添加到窗体中，命令按钮的名称为Command1、Caption属性为“向左移动”，Timer的名称为Timer1。双击Command1进入代码编写窗口，Timer1将隔一个周期调用Timer函数一次，而按下Command1将启动Timer1计时器，即设置其周期，补充后的具体代码如下：
Private Sub Command1_Click()
Timer1.Interval=300 '设置Timer的周期
End Sub
Private Sub Timer1_Timer()
Command1.Left=Command1.Left-100 'Command向左移动
If Command1.Left＜0 Then
Command1.Left=Form1.width-Command1.Width'当移动出最左端时，Command返回窗体最右端
End If
End Sub
单击
计时器只在设计时可见，计时器是否启用由其Enabled属性设置，值为True或False。启用后间隔多长时间触发一次其Timer事件由其Interval属性设置，Interval属性的单位为毫秒，默认值为0，此时计时器也不启用。
控制命令按钮向左移动可通过修改其Left属性值实现，当Left属性值超过窗体的Width属性值时，表示按钮已移出窗体，此时Left属性值设为0，即可将按钮返回窗体右端。移动按钮的事件过程均在计时器的Timer中实现。
根据题意，将一个命令按钮和一个计时器控件添加到窗体中，命令按钮的名称为Command1、Caption属性为“向左移动”，Timer的名称为Timer1。双击Command1进入代码编写窗口，Timer1将隔一个周期调用Timer函数一次，而按下Command1将启动Timer1计时器，即设置其周期，补充后的具体代码如下：
Private Sub Command1_Click()
Timer1.Interval=300 '设置Timer的周期
End Sub
Private Sub Timer1_Timer()
Command1.Left=Command1.Left-100 'Command向左移动
If Command1.Left＜0 Then
Command1.Left=Form1.width-Command1.Width'当移动出最左端时，Command返回窗体最右端
End If
End Sub
单击
【答案解析】