2.7 VFP 程序设计题程序设计题 一、一、与表无关的表单设计（与计时器无关）与表无关的表单设计（与计时器无关） 1要求：要求：(1)编制一个按钮组调色板编制一个按钮组调色板(2)当用户按了命令按钮组中的某个按钮后，表单的背景色就会变为按钮指定的当用户按了命令按钮组中的某个按钮后，表单的背景色就会变为按钮指定的 对应颜色。对应颜色。命令按钮组命令按钮组 Commandgroup1 的的 Click 事件代码：事件代码： do case case this.value=1 thisform.backcolor=rgb(225,0,0) case this.value=2 thisform.backcolor=rgb(0,255,0) case this.value=3 thisform.backcolor=rgb(0,0,255) case this.value=4 thisform.backcolor=rgb(0,0,0) case this.value=5 thisform.backcolor=rgb(225,255,255) endcase thisform.refresh2要求：要求：(1)编制一个按钮组调色板编制一个按钮组调色板(2)当用户按了命令按钮组中的某个按钮后，命令按钮组的背景色就会变为按钮当用户按了命令按钮组中的某个按钮后，命令按钮组的背景色就会变为按钮 指定的对应颜色。指定的对应颜色。(注意与上一题比较，注意与上一题比较，14 是设置表单的背景色，本题是设置命令按钮组是设置表单的背景色，本题是设置命令按钮组 的背景色。的背景色。命令按钮组命令按钮组 Commandgroup1 的的 Click 事件代码：事件代码： do case case this.value=1 this.backcolor=rgb(225,0,0) case this.value=2 this.backcolor=rgb(0,255,0) case this.value=3 this.backcolor=rgb(0,0,255)case this.value=4 this.backcolor=rgb(0,0,0) case this.value=5 this.backcolor=rgb(225,255,255) endcase thisform.refresh3要求：要求：(1)编制一个选项按钮组调色板编制一个选项按钮组调色板 (2)当用户按了某个选项按钮后，表单的背景颜色就会变为按钮指定的对应颜色。当用户按了某个选项按钮后，表单的背景颜色就会变为按钮指定的对应颜色。选项按钮组选项按钮组 Optiongroup1 的的 Click 事件代码：事件代码： do case case this.value=1thisform.backcolor=rgb(255,0,0) case this.value=2thisform.backcolor=rgb(0,255,0) case this.value=3thisform. backcolor=rgb(0,0,255) case this.value=4thisform.backcolor=rgb(0,0,0) case this.value=5thisform.backcolor=rgb(255,255,255) endcase 如果是设置选项按钮组的背景色，如下图如果是设置选项按钮组的背景色，如下图则颜色设置语句为：则颜色设置语句为：thisform.optiongroup1.backcolor=rgb(255,0,0)4要求：要求：(1)编制一个编制一个“选页调色板选页调色板”表单表单 (2) 当用户按了某页后，页框的背景色就会变成指定的对应颜色。当用户按了某页后，页框的背景色就会变成指定的对应颜色。选项按钮组选项按钮组 Pageframe1 的的 Click 事件代码：事件代码： do casecase this.activepage=1this.page1.backcolor=rgb(255,0,0) case this.activepage=2this.page2.backcolor=rgb(0,255,0) case this.activepage=3this.page3.backcolor=rgb(0,0,255) case this.activepage=4this.page4.backcolor=rgb(0,0,0) case this.activepage=5this.page5.backcolor=rgb(255,255,255) endcase thisform.refresh5.要求：（要求：（1）编制一个表单完成口令判定功能；（）编制一个表单完成口令判定功能；（2）用户从键盘输入口令时，表单的显）用户从键盘输入口令时，表单的显 示控件以示控件以“*”代替具体内容；（代替具体内容；（3）系统的口令存放在表文件）系统的口令存放在表文件“学生学生.dbf”的姓名字段中，的姓名字段中， 要求完全匹配；（要求完全匹配；（4）输入口令后，按回车，将自动在表单上显示）输入口令后，按回车，将自动在表单上显示“正确正确”或或“错误错误”信息。信息。*text1 的的 Valid 事件代码：事件代码： loca for alltrim(this.value)=alltrim(姓名姓名) if found()thisform.label2.caption=”正确！正确！” elsethisform.label2.caption=”错误！错误！” endif select 学生学生6要求：编制一个人工翻动日历牌，界面窗口中显示当前日期，但是可以通过界面提供的要求：编制一个人工翻动日历牌，界面窗口中显示当前日期，但是可以通过界面提供的 微调按钮任意地向前或向后翻动日期。微调按钮任意地向前或向后翻动日期。Text1 的的 dateformat 属性设为属性设为“14-汉语汉语”微调微调 Spinner1 的的 Downclick 事件代码：事件代码： thisform.text1.value=thisform.text1.value-1 thisform.refresh 微调微调 Spnnier1 的的 Upclick 事件代码：事件代码： thisform.text1.value=thisform.text1.value+1 thisform.refresh7要求要求(1)设计一个表单，接受用户输入的数字，生成相应的矩阵设计一个表单，接受用户输入的数字，生成相应的矩阵 (2)文本框内输入一个小于等于文本框内输入一个小于等于 10 的数字，生成一个相应的对称矩阵，且这个矩阵的的数字，生成一个相应的对称矩阵，且这个矩阵的 对角线的数字全部为对角线的数字全部为 0，其他的数字为，其他的数字为 1。“显示显示”按钮按钮 Command1 的的 click 事件的代码：事件的代码： n=val(thisform.text1.value) s=“ for i=1 to nfor j=1 to nif j=i or j+i=n+1s=s+“0“+space(2)elses=s+“1“+space(2)endifendfors=s+chr(13) a+cb,且且 b0; b+ca,且且 a0*判断计算按钮判断计算按钮 command1 的的 click 事件代码事件代码: a=val(thisform.text1.value) b=val(thisform.text2.value) c=val(thisform.text3.value) if (a+bc and c0) or (a+cb and b0) or (b+ca and a0) s=(a+b+c)/2area=sqrt(s*(s-a)*(s-b)*(s-c) endif thisform.label2.caption=”能构成三角形能构成三角形,面积等于面积等于:” +str(atea)14建立一个如图所示的表单建立一个如图所示的表单选项按钮组选项按钮组 Optiongroup1 的的 Click 事件代码：事件代码： do case case this.value=1create case this.value=2 create form case this.value=3modify command endcase二、二、与表无关的表单设计（计时器类表单设计）与表无关的表单设计（计时器类表单设计）15要求：编制一个信息显示要求：编制一个信息显示(时钟时钟)的界面，显示当前时间的界面，显示当前时间(每秒动态显示跳动一次每秒动态显示跳动一次) (2)并将表单的背景颜色设置为蓝、绿色自动变换并将表单的背景颜色设置为蓝、绿色自动变换(与时间同步切换与时间同步切换)Timer1 的的 Timer 事件代码：事件代码： s=substr(time(),1,2) f=substr(time(),4,2) m=substr(time(),7,2) mn=val(m) if int(mn/2)=mn/2thisform.backcolor=rgb(0,0,255) elsethisform.backcolor=rgb(0,255,0) endif thisform.text1.value=time()16要求：要求：(1)编制一个表单完成数字时钟显示功能编制一个表单完成数字时钟显示功能 (2)表单将自动以表单将自动以 1 秒为间隔动态显示系统时间秒为间隔动态显示系统时间 (3)时、分、秒要求用汉字说明时、分、秒要求用汉字说明文本框文本框 Text1 的背景色的背景色 Backcolor 为为 RGB(255,255,255)；FONTNAME 为为“隶书隶书” 。时钟控件时钟控件 Timer1 的的 Timer 事件代码：事件代码： s=substr(time(),1,2) f=substr(time(),4,2) m=substr(time(),7,2) thisform.text1.value=s+“时时“+f+分分+m+秒秒thisform.refresh17要求：要求：(1)编制一个表单完成计时器计数显示功能编制一个表单完成计时器计数显示功能 (2)表单初始显示状态为全零表单初始显示状态为全零“00：00：00” (3)按按“计数计数”按钮，将自动以秒为单位从零开始计数按钮，将自动以秒为单位从零开始计数(设：时的计数属性名为设：时的计数属性名为 S，分的计数，分的计数 属性名为属性名为 F，秒的计数属性名为，秒的计数属性名为 M。)并在表单上动态显示。按并在表单上动态显示。按“停止停止”按钮将显示最后一按钮将显示最后一 刻的计数时间。刻的计数时间。创建创建 1 个新建属性，个新建属性，clocknum 初值设为初值设为 0 表单的表单的 form1 的的 init 事件代码：事件代码： thisform.timer1.enabled=.f. thisform.text1.value=“00:00:00“ thisform.refresh “计数计数”按钮按钮 command1 的的 click 事件代码：事件代码： thisform.timer1.enabled=.t. “停止停止”按钮按钮 command2 的的 click 事件代码：事件代码： thisform.timer1.enabled=.f. 时钟控件时钟控件 timer1 的的 timer 事件代码：事件代码： js=thisform.clocknum s=int(js/3600) f=int(js/60) m=js%60 s1=iif(s1,dow(date()-1,