表单设计 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 thisform.text1.forecolor= case this.value=3 thisform.text1.forecolor= endcase thisform.refresh ? “退出”按钮的 click 事件代码为: THISFORM. 2.根据成绩表(考号,笔试,上机)
设计如下所示的表单,在文本框 text1 中输入考 号后,单击“确定”按钮在表中按文本框中输入的考号进行
查询。如果找到了就显示, 并在标签 label1 上显示相关的信息(如果该同学上机和笔试都在 60 分以上,显示“祝 贺你,考试通过了!;如果该同学笔试和上机有不及格的则显示“很遗憾,你××几 ” 科不及格,请继续努力!) ”,如果未找到就在 label1 上显示“该考号不存在,请重新输 入考号!,并将焦点设置到文本框上。 ”
表单数据环境和相关对象属性设置已完成,相关代码设计如下,有多处空,请补充完 整: ? 为了使得表单运行时,标签 label1 上不显示任何信息,应将标签 label1 的 init 代码 设置为: THISFORM. =”” ? “确定”按钮的 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 n= thisform.label1.caption="祝贺你,考试通过了!" else thisform.label1.caption="很遗憾,你"+ STR1+STR(N,1) +"科不及格,请继续努力 " endif else thisform.label1.caption="该考号不存在,请重新输入考号!" endif thisform.refresh * 3.以下是一通话计费的表单:表单运行时,表单的标题为“通话计费” ;单击 text1, 在 text1 显示通话开始的时间;单击 text2,在 text2 中显示通话结束时间;单击 text3,在 text3 中显示通话时间,通话时间单位为分钟;单击 text4,在 text4 中显示通话的费用, 每分钟按 3 角进行计算,费用的单位为元,小数点后保留两位。运行结果如下右图: 相关代码设计如下,其中有多处空,请补充完整:
endif t4=t3*0.3 this.value=str( ,7, 2)+”元” 4.设计一文字动态移动的表单,表单运行时,文字从窗体的左边移动到右边,当标签 右边界移动到窗体右边界时,标签又从左边向右边移动。
表单上的标签(label1)和计时器(timer1)的相关属性设置已完
成 ? 为了使得表单运行时,标签从窗体的最左边出现,应设置其 init 代码为: thisform.label1.left= ? 计时器 timer1 的 代码为: thisform.label1.left=thisform.label1.left + 10 if thisform.label1.left>= -thisform.label1.width thisform.label1.left= 0 endif
? 表单的 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
5、用标签、文本框、命令按钮构成一个表单 FORM1。运行时: 1) 单击“清除“按钮,将清空文本框中的内容; “清除“按钮的 Click 事件代码是: ThisForm.Text1. = " " 2) 用鼠标左键单击文本框, 将在文本框中显 示当前日期,文本框 TEXT1 的 Click 事件代码 是 This.Value = 3) 用鼠标右键单击文本框, 将在文本框