VFP表单设计实验报告.doc

佛山科学技术学院实验报告实验名称 表单程序设计 实验项目 使用面向对象程序设计知识设计“计算器”程序 专业班级 姓名 学号 指导教师 王伟勤 成绩 日期 2009-11-5 一、 实验目的1了解面向对象程序设计的基本概念。2掌握常用对象、属性、事件的使用。3掌握对象的引用及用代码设置属性的方法。4掌握普通表单的设计、调试和运行。二、 实验内容设计如下图所示的计算器表单程序，并实现要求的功能。要求：（1）可连续进行算术运算； （2）当输入新的数学式时，会自动清除文本框的原有内容； （3）当用户输入的数学式子有误时，可给出相应的提示，并要求重新输入，同时使文本框获得焦点，并将原有内容反选。三、 设计步骤及相关按钮代码建立一个CommandGroup，按钮数为16，然后编辑对象，排列按钮和调整按钮的大小，然后在Form的Init行为新增声明和快捷对16个按钮的Caption进行修改：PUBLIC TT=for i=1 to 9mandgroup1.buttons(i).caption=alltrim(str(i)mandgroup1.buttons(10).caption=0mandgroup1.buttons(11).caption=*mandgroup1.buttons(12).caption=+mandgroup1.buttons(13).caption=-mandgroup1.buttons(14).caption=mandgroup1.buttons(15).caption=.mandgroup1.buttons(16).caption=/然后统一在CommandGroup的Click行为部署各按钮相应的行为：do casecase this.value=1t=t+1thisform.text1.value=tcase this.value=2t=t+2thisform.text1.value=tcase this.value=3t=t+3thisform.text1.value=tcase this.value=4t=t+4thisform.text1.value=tcase this.value=5t=t+5thisform.text1.value=tcase this.value=6t=t+6thisform.text1.value=tcase this.value=7t=t+7thisform.text1.value=tcase this.value=8t=t+8thisform.text1.value=tcase this.value=9t=t+9thisform.text1.value=tcase this.value=10t=t+0thisform.text1.value=tcase this.value=11t=t+*thisform.text1.value=tcase this.value=12t=t+thisform.text1.value=tcase this.value=13t=t+-thisform.text1.value=tcase this.value=14thisform.text1.value=alltrim(str(&t,20,6)case this.value=15t=t+.thisform.text1.value=tcase this.value=1