VFP表单设计题

1VFP程序设计题第2题：编制一个表单完成计数器计数显示功能（界面如图例所示，图例文件为*.JPG）。具体要求如下：1．表单的边框为固定对话框，运行时自动居中，不可移动；2．表单初始显示状态为全零“00:00:00”；3．按“计数”按钮后，自动以秒为单位从零开始计数（设：时的计数属性名为F，分的计数属性名为H，秒的计数属性名为S）并在表单上动态显示；4．按“停止”按钮后暂停计数，按“计数”按钮可以继续计数；参考答案：1．表单的标题属性Caption设置为“计数器”；2．表单的BorderStyle属性为“2—固定对话框”，自动居中属性AutoCenter为.T.。3．表单的Movable属性为.F.；4．时钟控件Timer1的Interval属性为1000。5．表单的Form1的Init事件代码：THIS.TIMER1.INTERVAL=1000THISFORM.TIMER1.ENABLED=.F.STOR0TOTHIS.S,THIS.F,THIS.HTHIS.TEXT1.VALUE='00:00:00'6．“计数”按钮Command1的Click事件代码：THISFORM.TIMER1.ENABLED=.T.7．“停止”按钮Command2的Click事件代码：THISFORM.TIMER1.ENABLED=.F.8．时钟控件Timer1的Timer事件代码：THISFORM.S=THISFORM.S+1IFTHISFORM.S=60THISFORM.F=THISFORM.F+1THISFORM.S=0ENDIFIFTHISFORM.F=60THISFORM.H=THISFORM.H+1THISFORM.F=0ENDIF2IFTHISFORM.H=60THISFORM.S=THISFORM.S+1THISFORM.H=0ENDIFHH=IIF(THISFORM.H=10,STR(THISFORM.H,2),'0'+STR(THISFORM.H,1))FF=IIF(THISFORM.F=10,STR(THISFORM.F,2),'0'+STR(THISFORM.F,1))SS=IIF(THISFORM.S=10,STR(THISFORM.S,2),'0'+STR(THISFORM.S,1))THISFORM.TEXT1.VALUE=HH+':'+FF+':'+SS第3题：编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能（界面如图例所示）。具体要求如下：1．表单的边框为固定对话框，运行时自动居中，不可移动；2．表单初始显示内容为表文件“学生.dbf”的首记录；3．表单内容将以10秒为间隔自动刷新，即自动顺序向后翻记录，当翻至表底时，将自动回到首记录循环翻动。参考答案：1．表单的标题属性Caption设置为“学生表内容只读浏览”；2．表单的BorderStyle属性为“2—固定对话框”，自动居中属性AutoCenter为.T.;3．表单的Movable属性为.F.；4．时钟控件Timer1的Interval属性为10000。5．表单的Form1的Init事件代码：THIS.SETALL(READONLY,.T.,TEXTBOX)GOTOPTHISFORM.REFRESH6．时钟控件Timer1的Timer事件代码：SKIPIFEOF()GOTOPENDIFTHISFORM.REFRESH第4题：编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能（界面如图例所示）。具体要求如下：1．表单的边框为单线边框，运行时自动居中；2．表单初始显示内容为表文件“学生.dbf”的首记录；3．当按“前翻”“后翻”“首记录”“末记录”按钮时，表单将自动显示相应记录的内容；4．当翻至表头或表底时，将自动设置相应按钮不可访问。参考答案：31．表单的标题属性Caption设置为“学生表内容只读浏览”；2．表单的BorderStyle属性为“1—单线边框”；自动居中属性AutoCenter为.T.3．表单的Form1的Init事件代码：THIS.SETALL(READONLY,.T.,TEXTBOX)GOTOPTHISFORM.REFRESH4．“首记录”按钮Command1的Click事件代码：gotopthisform.command2.enabled=.t.thisform.command3.enabled=.t.thisform.command4.enabled=.t.thisform.command1.enabled=.f.thisform.refresh5．“前翻”按钮Command2的Click事件代码：skip-1ifbof()thisform.command1.enabled=.f.this.enabled=.f.endifthisform.command3.enabled=.t.thisform.command4.enabled=.t.thisform.refresh6．“后翻”按钮Command3的Click事件代码：skipifeof()thisform.command3.enabled=.f.thisform.command4.enabled=.f.endifthisform.command1.enabled=.t.thisform.command2.enabled=.t.thisform.refresh7．“末记录”按钮Command4的Click事件代码：gobottomthisform.command1.enabled=.t.thisform.command2.enabled=.t.thisform.command3.enabled=.t.thisform.command4.enabled=.f.thisform.refresh第7题：编制一个表单完成表文件“成绩.dbf”内容的查询显示功能（界面如图例所示）。具体要求如下：1．表单的边框为固定对话框，运行时自动居中；42．当用户在组合框（下拉列表）选择班级（学号的左三位）后，表单将自动显示对应班级的所有学生的总平均成绩；3．按“退出”按钮时，自动关闭表单。参考答案：1．表单的标题属性Caption设置为“查询并显示指定班级的总平均成绩”；2．表单的BorderStyle属性为“2—固定对话框”；自动居中属性AutoCenter为.T.。3．组合框Combo1的Init事件代码：SETTALKOFFINDEXONLEFT(学号,3)TOXHUNIQUESCANTHIS.ADDITEM(LEFT(学号,3))ENDSCANSETINDEXTO4．组合框Combo1的Click事件代码：BJ=THIS.VALUEAVERAGEFORLEFT(学号,3)=BJ成绩TOCJTHISFORM.TEXT1.VALUE=CJ5．“退出”按钮Command1的Click事件代码：thisform.release第8题：编制一个表单完成数字时钟显示功能（界面如图例所示）。具体要求如下：1．表单的位置在左上角，可移动，表单的边框为无边框；2．表单将自动以1秒间隔动态显示系统时间；参考答案：1．表单的标题属性Caption设置为“数字时钟”；2．表单的位置属性Left为0；Top为0；Movable为.T.；3．表单的BorderStyle属性为“0—无边框”；4．时钟控件Timer1的Interval属性为1000。5．文本框Text1的背景色Backcolor为RGB(255,255,255)；FONTNAME为“隶书”。6．时钟控件Timer1的Timer事件代码：s=substr(time(),1,2)f=substr(time(),4,2)m=substr(time(),7,2)thisform.text1.value=s+时+f+'分'+m+'秒'第10题：编制一个表单完成表文件“成绩.dbf”和“课程.dbf”内容的查询显示功能（界面如图所示）。具体要求如下：51．表单运行时自动居中，不可移动；2．当用户在组合框（下拉列表）选择课程后，表单将自动显示该课程的总平均成绩；3．按“退出”按钮时，自动关闭表单。参考答案：1．表单的标题属性Caption设置为“查询并显示指定课程的总平均成绩”；2．表单的自动居中属性AutoCenter为.T.;3．表单的Movable属性为.F.；4．组合框Combo1的RowSouceType属性为“6-字段”，RowSouce属性为“课程.课程名”。5．组合框Combo1的Click事件代码：SETTALKOFFSELECT课程KCH=课程号SELECT成绩AVERAGEFOR课程号=KCH成绩TOCJTHISFORM.TEXT1.VALUE=CJ6.“退出”按钮Command1的Click事件代码：thisform.release第11题：编制一个表单完成表文件“学生.dbf”内容的信息查询功能（界面如图例所示）。具体要求如下：1．表单的边框为固定对话框，运行时自动居中，不可移动；2．表单的文本框中输入需查询学生的学号。参考答案：1．表单的标题属性Caption设置为“学生表信息查询”；2．表单的BorderStyle属性为“2—固定对话框”，自动居中属性AutoCenter为.T.;3．表单的Movable属性为.F.；4．标签Label2的Forecolor属性为“255,255,255”；FontSize属性为“16”；5．表单的Form1的Init事件代码：use学生thisform.setall(visible,.f.)thisform.label1.visible=.t.thisform.text1.visible=.t.6．表单的Form1的destroy事件代码：use7.文本框Text1的Valid事件代码：locaforalltrim(学号)=alltrim(this.value)iffound()thisform.label2.caption=thisform.setall(visible,.t.)elsethisform.setall(visible,.f.)6thisform.label1.visible=.t.thisform.text1.visible=.t.thisform.label2.visible=.t.thisform.label2.caption=您所指定的学生并不存在！endifthisform.refreshreturn.t.第12题：根据要求，用表单设计器建立一个“按钮组调色板”表单（界面如图例所示）。具体要求如下：1．表单的标题为“按钮组调色板”，表单运行时，当按某个命令按钮后，表单的背景色就会变成按钮指定的对应颜色。参考答案：1．表单的标题属性Caption设置为“按钮组调色板”；2．命令按钮组Commandgroup1的Click事件代码：docasecasethis.value=1thisform.backcolor=rgb(225,0,0)casethis.value=2thisform.backcolor=rgb(0,255,0)casethis.value=3thisform.backcolor=rgb(0,0,255)casethis.value=4thisform.backcolor=rgb(0,0,0)casethis.value=5thisform.backcolor=rgb(225,255,255)endcasethisform.refresh第13题：根据要求，用表单设计器建立一个“按钮组调色板”表单（界面如图例所示）。具体要求如下：1.表单的标题为“按钮组调色板”，表单运行时，当按某个命令按钮后，命令按钮组的背景色就会变成按钮指定的对应颜色。参考答案：1.表单的标题属性Caption设置为“按钮组调色板”；2.命令按钮组Commandgroup1的Click事件代码：docasecasethis.value=1this.backco