vfp6.0表单设计程序填空

表单设计

1．设计如下图所示的表单，表单运行时，在文本框中输入字符，单击“红色”按钮，文本框中的文本变成红色；单击“蓝色”按钮，文本框中的文本变成蓝色；单击“还原”按钮，将文本框中的文本颜色还原成输入时的颜色。

以下为该表单设计的相关代码，有多处空，请补充完整： form的init事件代码为：

public x

设计文本框text1的LostFocus事件代码为：

x = this.

编写命令按钮组commandgroup1的click事件代码为：

do case

case this.value=1

thisform.text1.forecolor= rgb(255,0,0) case this.value=2

case this.value=3

endcase

thisform.refresh

“退出”按钮的click事件代码为： THISFORM. 2．根据成绩表（考号，笔试，上机）设计如下所示的表单，在文本框text1中输入考号后，单击“确定”按钮在表中按文本框中输入的考号进行查询。如果找到了就显示，并在标签label1上显示相关的信息（如果该同学上机和笔试都在60分以上，显示“祝贺你，考试通过了！”；如果该同学笔试和上机有不及格的则显示“很遗憾，你××几科不及格，请继续努力！”），如果未找到就在label1上显示“该考号不存在，请重新输入考号！”，并将焦点设置到文本框上。

表单数据环境和相关对象属性设置已完成，相关代码设计如下，有多处空，请补充完

整：

为了使得表单运行时，标签label1上不显示任何信息，应将标签label1的init代码

设置为：

THISFORM. =”” “确定”按钮的click事件代码为：

locate for 考号 ) if found() n=0 str1="" if 笔试<60 n=n+1

str1=str1+"笔试" endif

if 上机<60 n=n+1

str1=str1+"上机"

endif

if n= http://www.77cn.com.cnbel1.caption="祝贺你，考试通过了！" else

http://www.77cn.com.cnbel1.caption="很遗憾，你"+ STR1+STR(N,1) +"科不及格，请继续努力"

endif else

http://www.77cn.com.cnbel1.caption="该考号不存在，请重新输入考号！" endif

thisform.refresh

* 3．以下是一通话计费的表单：表单运行时，表单的标题为“通话计费”；单击text1，在text1显示通话开始的时间；单击text2,在text2中显示通话结束时间；单击text3，在text3中显示通话时间，通话时间单位为分钟；单击text4，在text4中显示通话的费用，每分钟按3角进行计算，费用的单位为元，小数点后保留两位。运行结果如下右图： 相关代码设计如下，其中有多处空，请补充完整：

表单的init代码为：

PUBLIC t1,t2,t3,t4

this.caption =

text1的 this.value=time()

t1=second() &&second()返回以秒为单位的自午夜以来经过的时间 text2的click事件代码为： this.value=time() t2=second()

text3的click事件代码为： t3=

this.value= STR(T3,5,1) +”分钟” text4的clock事件代码为： if t3<1

endif t4=t3*0.3

this.value=str( ,7, 2)+”元”

4．设计一文字动态移动的表单，表单运行时，文字从窗体的左边移动到右边，当标签右边界移动到窗体右边界时，标签又从左边向右边移动。

表单上的标签(label1)和计时器（timer1）的相关属性设置已完成

为了使得表单运行时，标签从窗体的最左边出现，应设置其init代码为：

http://www.77cn.com.cnbel1.left=

计时器timer1的代码为：

http://www.77cn.com.cnbel1.left=http://www.77cn.com.cnbel1.left + 10

if http://www.77cn.com.cnbel1.left>= http://www.77cn.com.cnbel1.width

http://www.77cn.com.cnbel1.left= 0 endif

5、用标签、文本框、命令按钮构成一个表单FORM1。运行时： 1) 单击“清除“按钮，将清空文本框中的内容；“清除“按钮的Click事件代码是： ThisForm.Text1. = " " 2) 用鼠标左键单击文本框，将在文本框中显示当前日期，文本框TEXT1的Click事件代码是

This.Value = 3) 用鼠标右键单击文本框，将在文本框中显示

当前时间，则文本框TEXT1的事件：

This.Value = TIME()

4) 退出按钮的Click事件代码为：

ThisForm.

5）要使命令按钮Command1上面显示“清除” 两个字，应设置：

清 除"

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