【答案解析】(1)从菜单栏里单击“文件”并选择“新建”,或直接单击工具栏上的“新建”图标,在弹出的对话框中文件类型选择“表单”,单击对话框右边的“新建文件”图标,弹出了Form1的表单设计器,单击工具栏上的“保存”图标,以my命名保存在考生文件夹下。
单击“表单控件”窗口中的“标签”控件,在表单上放置一个标签控件,将其FontSize属性值改为20,调整标签的大小,将其Alignment属性值改为“2-中央”,将其ForeColor属性值改为“255,0,0”,将其BackStyle属性值改为“0。透明”。
单击“表单控件”窗口中的“计时器”控件,在表单上放置一个计时器控件,修改其“Internal”属性值为1000(Internal属性值1000表示1秒),双击“计时器”控件,在其Timer事件中输入以下代码:
*******计时器控件的timer事件代码********
Thisform.Labell.Caption = time()
**************************************
保存表单设计并运行。
(2)在命令窗口输入命令:MODIPY FORM my,打开刚设计的表单文件,在属性窗口中(注意当前操作对象是“表单form1”)修改name属性值为my,修改Caption属性值为“变色时钟”。接着,单击“表单控件”工具栏中的“命令按钮”控件,在表单上放置三个命令按钮控件,将它们的Caption属性值分别改为“蓝色”(Command1),“绿色”(Command2)和“退出”(Command3)。双击“蓝色”命令按钮,在其Click事件中输入以入代码:
***命令按钮Command1(蓝色)的Click事件代码*****
Thisform.BackColor=rgb(0,0,255)
*************************************************
双击“绿色”命令按钮,在其Click事件中输入以入代码:
***命令按钮Command2(绿色)的Click事件代码*****
Thisform.BackColor=rgb(0,255,0)
*************************************************
双击“退出”命令按钮,在其Click事件中输入以入代码:
***命令按钮Command3(退出)的Click事件代码*****
Thisform.Release
*************************************************
在命令窗口输入命令:DO FORM my,表单运行结果如图3-35所示:
