作业帮 > 综合 > 作业

三角形的三条边,判断能否构成三角形若能则求面积

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/03 14:04:54
三角形的三条边,判断能否构成三角形若能则求面积
Private Sub Command1_Click()
Dim a%,b%,c%
Dim ,area!
a = InputBox("请输入边长a")
b = InputBox("请输入边长b")
c = InputBox("请输入边长c")
If a + b > c And a + c > b And b + c > a Then
Print "能构成三角形"
s = (a + b + c) / 2
area = Sqr(s * (s - a) * (s - b) * (s - c))
Print "面积为:"; area
Else
Print "不能构成三角形"
End If
End Sub
……原来是basic
忘得差不多了