1. 首页 / 帮助

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。

本文就为大家分享到这里,希望小伙伴们会喜欢。

本文由'太虚莹雪'发布,不代表演示站立场,转载/删除联系作者,如需删除请-> 关于侵权处理说明