vb三角形面积计算代码(vb三角形面积代码)
vb三角形面积计算代码,vb三角形面积代码相信很多小伙伴还不知道,现在让我们一起来看看吧!
1、Dim a As DoubleDim b As DoubleDim c As DoubleDim s As DoubleDim temp As DoublePrivate Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If ((a + b) > c) And ((a + c) > b) And ((b + c) > a) And ((a - b) < c) And ((a - c) < b) And ((b - c) < a) Then s = (a + b + c) / 2 temp = Sqr(s * (s - a) * (s - b) * (s - c)) Label4.Caption = "该三角形的面积是" & temp Else Label4.Caption = "该三条边不能构成一个三角形" End IfEnd Sub。
本文就为大家分享到这里,希望小伙伴们会喜欢。
本文由'太虚莹雪'发布,不代表演示站立场,转载/删除联系作者,如需删除请-> 关于侵权处理说明。