VFP程序设计 表单设计 例题 计算三角形面积.docVIP

VFP程序设计 表单设计 例题 计算三角形面积 要求：如图1、图2和图3所示，编制一个表单完成如下功能：文本框TEXT1、TEXT2、TEXT3用于接收用户输入三角形的边长，文本框TEXT1、TEXT2、TEXT3的初值为0（通过程序代码实现），按下“判断计算”按钮后，如果用户数据能构成三角形，则窗口中显示对应信息和面积值。如果不能构成三角形，则显示“不能构成三角形”。 图1 设计界面 图2 运行时界面 图3 运行时界面 属性窗口设置 属性窗口设置： FORM1的CAPTION=求三角形面积 LABEL1的CAPTION=请输入三角形的三个边长 LABEL2的CAPTION=A LABEL3的CAPTION=B LABEL4的CAPTION=C LABEL5的CAPTION= COMMAND1的CAPTION=判断计算 事件 代码 FORM1 的INIT事件 THISFORM.TEXT1.VALUE=0 THISFORM.TEXT2.VALUE=0 THISFORM.TEXT3.VALUE=0 COMMAND1的CLICK事件 A=THISFORM.TEXT1.VALUE B=THISFORM.TEXT2.VALUE C=THISFORM.TEXT3.VALUE IF A0 AND B0 AND C0 AND A+BC AND A+CB AND B+CA S=(A+B+C)/2 AREA=SQRT((S*(S-A)*(S-B)*(S-C)) THISFORM.LABEL5.CAPTION=能构成三角形，面积为：+ ; ALLT(STR(AREA,10,2)) ELSE THISFORM.LABEL5.CAPTION=不能构成三角形 ENDIF COMMAND2的CLICK事件 THISFORM.RELEASE