6、添加事件代码：

（1）选项按钮组Optiongroup1的click事件代码：

thisform.label3.visible=.t.thisform.label4.visible=.t.a=2*(val(thisform.text1.value)+val(thisform.text2.value))b=val(thisform.text1.value)*val(thisform.text2.value)do case case this.value=1 thisform.label3.caption="长方形的周长为："+str(a) thisform.label4.caption="" case this.value=2 thisform.label4.caption="长方形的面积为："+str(b) thisform.label3.caption="" case this.value=3 thisform.label3.caption="长方形的周长为："+str(a) thisform.label4.caption="长方形的面积为："+str(b) endcase

（2）ming令按钮command1的click事件代码：thisform.release

7、运行“计算长方形周长及面积.scx”。

本例比较简单，代码在Win2003+VFP6.0环境下调试通过。

本文源自：翔宇亭——IT乐园（http://），转载请保留此信息！