用一个全局变量来定义计算的代码，不同的代码，选择不同的公式就OK了。
比如定义全局变量：
dim sL as integer
sL=1时计算长方形，sL=2时正方形
在不同的选择按钮里给sL赋值，然后在计算里用select case来判断计算类型进行不同的计算。
很简单啊 在长方形的事件里面写“text3.text=text1.text*text2.text
三角形就是在三角形的单机事件里面写公式啊 你加我QQ 624138488具体代码我要看清楚才知道
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024