VB求三角形面积的编码（高中生）

1、打开VB建立一个工程，设计一个界面（下图是我简单的示范）

2、把text1的属性名改成a=

3、依次修改text2，text3，text4，button的属性名（如下图）

1、双击button进入编辑

2、输入代码

Dim a, b, c, q, s As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If (a + b > c) And (a + c > b) And (c + b > a) Thenq = (a + b + c) / 2s = Sqr(q * (q - a) * (q - b) * (q - c))Text4 = Format(s, "0.##")Elsems = MsgBox("不能构成三角形，重新输入边长:", 0, "提示:")Text1 = ""Text2 = ""Text3 = ""Text1.SetFocusEnd If

1、单击运行启动开始测试

2、输入任意一个不能构成三角形的值，测试效果

3、输入任意一个能构成三角形的值，测试效果

1、保存工程

2、打开exe文件进行计算