Private Sub Command1_Click()
Dim a, b, c As Integer
Dim s As Long
a = CInt(InputBox("输入三角形三边之一"))
b = CInt(InputBox("输入三角形三边之二"))
c = CInt(InputBox("输入三角形三边之三"))
If a + b > c Or a + c > b Or b + c > a Then
s = (a + b + c) / 2
MsgBox "三边为:" + CStr(a) + "、" + CStr(b) + "、" + CStr(c) + "的三角形面积为:" + CStr(Sqr(s * (s - a) * (s - b) * (s - c)))
Else
MsgBox "必须2边之和大于第3边", vbOKOnly, "输入错误"
End If
End Sub
该博客展示了一段计算三角形面积的代码。通过输入三角形三边长度,判断是否满足两边之和大于第三边,若满足则计算并输出三角形面积,不满足则提示输入错误,涉及算法和整数类型的运用。
858

被折叠的 条评论
为什么被折叠?



