vfp6.0表单设计程序填空.doc

《vfp6.0表单设计程序填空.doc》由会员分享，可在线阅读，更多相关《vfp6.0表单设计程序填空.doc（5页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、vfp6.0表单设计程序填空表单设计1设计如下图所示的表单，表单运行时，在文本框中输入字符，单击“红色”按钮，文本框中的文本变成红色；单击“蓝色”按钮，文本框中的文本变成蓝色；单击“还原”按钮，将文本框中的文本颜色还原成输入时的颜色。以下为该表单设计的相关代码，有多处空，请补充完整：l form的init事件代码为：public xl 设计文本框text1的LostFocus事件代码为：x = this。 l 编写命令按钮组commandgroup1的click事件代码为:do case case this。value=1 thisform。text1。forecolor= rgb(255，0

2、,0) case this.value=2 thisform.text1.forecolor= case this。value=3 thisform.text1.forecolor= endcasethisform.refreshl “退出按钮的click事件代码为： THISFORM. 2根据成绩表(考号,笔试，上机）设计如下所示的表单,在文本框text1中输入考号后，单击“确定”按钮在表中按文本框中输入的考号进行查询。如果找到了就显示，并在标签label1上显示相关的信息（如果该同学上机和笔试都在60分以上,显示“祝贺你，考试通过了!；如果该同学笔试和上机有不及格的则显示“很遗憾,你几科不

3、及格，请继续努力!”），如果未找到就在label1上显示“该考号不存在,请重新输入考号!”，并将焦点设置到文本框上。 表单数据环境和相关对象属性设置已完成，相关代码设计如下，有多处空，请补充完整：l 为了使得表单运行时,标签label1上不显示任何信息，应将标签label1的init代码设置为: THISFORM. =” l “确定”按钮的click事件代码为：locate for 考号= ALLTRIM（ ) if found（） n=0 str1=” if 笔试60 n=n+1 str1=str1+笔试” endif if 上机60 n=n+1 str1=str1+上机 endif if

4、n= thisform.label1.caption=”祝贺你,考试通过了！” else thisform。label1。caption=”很遗憾,你”+ STR1+STR（N，1) +科不及格，请继续努力 endifelse thisform。label1.caption=”该考号不存在，请重新输入考号！” endifthisform.refresh 3以下是一通话计费的表单:表单运行时，表单的标题为“通话计费;单击text1，在text1显示通话开始的时间；单击text2,在text2中显示通话结束时间;单击text3，在text3中显示通话时间，通话时间单位为分钟;单击text4，在te

5、xt4中显示通话的费用，每分钟按3角进行计算，费用的单位为元,小数点后保留两位.运行结果如下右图：相关代码设计如下，其中有多处空，请补充完整： l 表单的init代码为：PUBLIC t1，t2,t3，t4this.caption = l text1的 事件代码为：this.value=time（）t1=second() &second(）返回以秒为单位的自午夜以来经过的时间l text2的click事件代码为：this.value=time（)t2=second（)l text3的click事件代码为：t3= this.value= STR(T3,5，1) +分钟”l text4的clock

6、事件代码为：if t31 endift4=t3*0。3this.value=str( ，7, 2)+”元”4设计一文字动态移动的表单，表单运行时，文字从窗体的左边移动到右边，当标签右边界移动到窗体右边界时，标签又从左边向右边移动。表单上的标签（label1)和计时器（timer1）的相关属性设置已完成l 为了使得表单运行时，标签从窗体的最左边出现，应设置其init代码为：thisform。label1.left= l 计时器timer1的 代码为:thisform.label1。left=thisform。label1.left + 10if thisform。label1.left= -th

7、isform.label1.widththisform.label1.left= 0 endif5、用标签、文本框、命令按钮构成一个表单FORM1.运行时：1） 单击“清除“按钮，将清空文本框中的内容；“清除“按钮的Click事件代码是： ThisForm。Text1. = ” 2） 用鼠标左键单击文本框,将在文本框中显示当前日期，文本框TEXT1的Click事件代码是This.Value = 3) 用鼠标右键单击文本框，将在文本框中显示当前时间，则文本框TEXT1的 事件： This。Value = TIME（) 4） 退出按钮的Click事件代码为: ThisForm. 5)要使命令按钮C

8、ommand1上面显示“清除两个字,应设置： = 清 除” 6、标签、文本框、命令按钮构成一个表单FORM1。SCX，运行时：1）表单自动居中；则表单的AutoCenter属性应设置为 2） 单击“大写“按钮,将文本框中的内容全部转换为大写字母；“大写”按钮的Click事件代码为：x=ThisForm。Text1。Value ThisForm.Text1。 = Upper(x） 3) 单击“小写“按钮，将文本框中的内容全部转换为小写字母。则“小写按钮的Click事件代码为： x=Lower( ) ThisForm。Text1.Value = x 4) 单击“退出“按钮，退出表单，“退出”按钮的 事件代码为： 。Release