[问答题] 完成下列问题:在名称为Form1的窗体上画一个名称为Shape1的形状控件,位置在窗体的顶部,在属性窗口中将其设置为圆形。画一个名称为Timer1的计时器,在属性窗口中将其设置为不可用,时

13 查阅

[问答题] 完成下列问题:

在名称为Form1的窗体上画一个名称为Shape1的形状控件,位置在窗体的顶部,在属性窗口中将其设置为圆形。画一个名称为Timer1的计时器,在属性窗口中将其设置为不可用,时间间隔为0.5s,窗体如图2所示。请编写窗体的Load事件过程和计时器的事件过程,使得程序一开始运行.计时器即变为可用,且每隔0.5s形状控件向下移动100。

[*]

注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

参考答案:

[操作步骤] 第1步:新建一个标准的EXE工程,保持现有窗体默认属性值不变。 第2步:在窗体上画一个形状控件,保持其名称Shape1不变,修改其Top属性值为0,修改其Shape属性值为3-Circle。 第3步:在窗体上画一个计时器控件,修改其Enabled属性值为False,修改其Interval属性值为500。 第4步:编写代码。在代码编写窗口中,分别编写窗体的Load事件过程和计时器的Timer事件过程。 Private Sub Form_Load() Timer1.Enabled=T

形状控件的位置由其Left和Top属性控制,将其Top属性设置为0可使形状控件紧贴窗体的上边界;形状控件的形状由Shape属性控制,要显示为圆形,则需要将Shape属性设置为3-Circle。计时器控件的是否可用由Enabled属性控制,在计时器控件的Timer事件过程中改变形状控件的Top属性可以使得形状控件在竖直方向连续移动。

计算机考试