1、新建表单，将其AutoCenter属性值设置为.t.，保存为“表单1.scx”。
2、向表单上添加5个标签控件label1～label5，将它们的caption属性值依次设置为“编”、“程”、“入”、“门”、“网”。
3、向表单上添加一个命令按钮command1，将其caption属性值设置为“显示字符”。
4、适当调整各控件的位置
5、、表撮劝丛食单的Activate事件代码：public top,n local fs,fb,fc n=1 top=thisform.label1.t泠贾高框op for i=1 to 5 t="label"+str(i,1)+".top" fs="label"+str(i,1)+".fontsize" fb="label"+str(i,1)+".fontbold" fc="label"+str(i,1)+".forecolor" thisform.&t=-50 &&依次把5个标签的top属性值设为-50，实际是把它们隐藏起来 thisform.&fs=12 &&依次把5个标签的fontsize属性值设为12 thisform.&fb=.t. &&依次把5个标签的fontbold属性值设为.t. thisform.&fc=rgb(255,0,0) &&依次把5个标签的forecolor属性值设为rgb(255,0,0) endfor
6、命令按钮command1的click事件代码：t="挢旗扦渌;label"+str(n,1)+".t泠贾高框op" if thisform.&t<=top-50 thisform.&t=top n=n+1 if n=6 n=1 this.enabled=.f. messagebox("字符已经全部显示完毕!") return endif endif
7、运行“表单1.scx”。本例代码在Win2003+VFP6.0环境下调试通过。
