作业帮 > 综合 > 作业

设计个vb 计算三角形面积,格式如下、、、、、

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/14 08:57:02
设计个vb 计算三角形面积,格式如下、、、、、

求代码= =不是面积公式、、、、、、、、

Private Sub Command1_Click()
Dim a As Single,b As Single,c As Single,p As Single,s As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
p = (a + b + c) / 2
If a >= p Or b >= p Or c >= p Then
Label1.Caption = "不能构成三角形"
Else
s = Sqr(p * (p - a) * (p - b) * (p - c))
Label1.Caption = "面积为" & s
End If
End Su