,"其他民族") AS 民族,;
四、设计表单 (一)、 1.设置表单的 BorderStyle 属性: 2 — 固定对话框 2.形状控件的 BackColor 属性设置为:0,255,0 3.文本框控件的 BorderStyle 属性设置为:0—无;并将其拖至圆的中心 4.设置计时器控件 Timer1 的 Interval 属性为:1000 5. 添加命令按钮控件 Command1,并设置其 Caption 属性:开始; 设置其 Click 事件代码为: ThisForm.Timer1.Enabled = .T. 6.修改计时器控件 Timer1 的 Click 事件代码: 在第 1 个空行内输入代码:ThisForm.Text1.Value = t2 在第 2 个空行内输入代码:ThisForm.Text1.Value = t1 (二) 、 1.设置表单的 WindowState 属性:2 — 最大化 2.设置表单的 Picture 属性:Back.jpg 3.设置标签的以下属性: Backstyle 属性:0 – 透明 FontName 属性:楷体 FontBold 属性:.T. 4.添加计时器 Timer1,并设置其 Interval 属性为:60 5.修改表单的 ShowLab 方法,在代码的空白处增加命令: IF (三) 、 1.设置表单 Form1 的以下属性值: Caption 属性:交通灯控制 MaxButton 属性:.F. MinButton 属性:.F. 2.设置形状控件 Shap1 的 Curvature 属性:99 3.设置文本框 Text1 的 BackStyle 属性:0 — 透明,并将其拖至圆的中心 4.设置新添加的计时器 Timer1 的以下属性: Enabled 属性:.F. Interval 属性:1000 5.编写计时器 Timer1 的 Click 事件代码:ThisForm.Jtdkz 6.编写命令按钮 Command1 的 Click 事件代码:ThisForm.Timer1.Enabled = .T. ThisForm.Label1.Left = - ThisForm.Label1.Width 6.编写计时器 Timer1 的 Timer 事件代码:ThisForm.ShowLab
(四) 、 1.设置表单 Form1 的以下属性值: Caption 属性:SPACE(0)或“”或直接清除内容 Icon 属性:cddrive.ico MaxButton 属性:.F. MinButton 属性:.F. 2.设置新添加的计时器 Timer1
的 Interval 属性:50 3.设置标签 Label1 的以下属性: FontSize 属性:14 FontBold 属性:.T. 4.修改表单的 ShowLab 方法,在代码的空白处增加命令: ThisForm.Label1.Left = ThisForm.Width 5.编写计时器 Timer1 的 Timer 事件代码:ThisForm.ShowLab 五、程序改错 (一) 、 ①第 3 行:IF flag(i)=1 ②第 11 行:s=c4+c3+c2+cl (二) 、 ①倒数第 6 行:ENDFOR ②倒数第 3 行:FOR (三) 、 ①第 8 行:EXIT ②倒数第 7 行:IF n
m i = 0 TO 52 改为:ENDO 改为:FOR i = 0 TO 12 改为:IF flag(i)=.F.或!flag(i)或 not flag(i) 改为:s=VAL(c4+c3+c2+cl)