止血与包扎术试题:求VB的一道小的程序题代码。

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/06 03:52:41
题目:
给定三角形三边。计算三角形面积。首先判断三边能否构成三角形,若能,则求面积。若不能,则重新输入。当输入-1时,程序结束。

首先若要判断能否构成三角形则要判断最小两边之和是否大于第三边以及最大边和最小边之差是否小于另一边。但是怎样判断三边的大小呢?求完整的代码。谢谢了。

判断三条边的大小代码:
Dim a As Single, b As Single, c As Single
a = InputBox("输入a")
b = InputBox("输入b")
c = InputBox("输入c")
If a + b > c And b + c > a And a + c > b Then
Print "可以组成三角形"
Else
Print "不可以组成三角形"
End If