《VFP程序设计表单设计 例题计算三角形面积.doc》由会员分享，可在线阅读，更多相关《VFP程序设计表单设计 例题计算三角形面积.doc（3页珍藏版）》请在三一文库上搜索。
1、VFP程序设计 表单设计 例题 计算三角形面积要求：如图1、图2和图3所示，编制一个表单完成如下功能：文本框TEXT1、TEXT2、TEXT3用于接收用户输入三角形的边长，文本框TEXT1、TEXT2、TEXT3的初值为0（通过程序代码实现），按下“判断计算”按钮后，如果用户数据能构成三角形，则窗口中显示对应信息和面积值。如果不能构成三角形，则显示“不能构成三角形”。图1 设计界面 图2 运行时界面 图3 运行时界面属性窗口设置属性窗口设置：FORM1的CAPTION=求三角形面积LABEL1的CAPTION=请输入三角形的三个边长LABEL2的CAPTION=ALABEL3的CAPTION=
2、BLABEL4的CAPTION=CLABEL5的CAPTION=COMMAND1的CAPTION=判断计算事件代码FORM1 的INIT事件THISFORM.TEXT1.VALUE=0THISFORM.TEXT2.VALUE=0THISFORM.TEXT3.VALUE=0COMMAND1的CLICK事件A=THISFORM.TEXT1.VALUEB=THISFORM.TEXT2.VALUEC=THISFORM.TEXT3.VALUEIF A0 AND B0 AND C0 AND A+BC AND A+CB AND B+CAS=(A+B+C)/2AREA=SQRT(S*(S-A)*(S-B)*(S-C)THISFORM.LABEL5.CAPTION=能构成三角形，面积为：+ ;ALLT(STR(AREA,10,2)ELSETHISFORM.LABEL5.CAPTION=不能构成三角形ENDIFCOMMAND2的CLICK事件THISFORM.RELEASE