罒 灬
2019-01-18 11:58
采纳率: 0%
浏览 502
已采纳

vba中，按照书上用（if then...else)编了一个小程序，为什么返回不了正确值？

  • Sub 判别构成三角形() '该程序有错误，无法返回正确值
  • Dim a As Double, b As Double, c As Double
  • Dim area As Double, s As Double
  • Dim flagu As Boolean, flagl As Boolean
  • a = CDbl(InputBox("请输入三角形的第1条边", "求三角形面积", 0))
  • b = CDbl(InputBox("请输入三角形的第2条边", "求三角形面积", 0))
  • c = CDbl(InputBox("请输入三角形的第3条边", "求三角形面积", 0))
  • flagu = ((a + b) > c) And ((a + c) > b) And ((b + c) > a)
  • flagl = ((a - b) < c) And ((a - c) < b) And ((b - c) < a)
  • If (falgu And flagl) Then
  • s = (a + b + c) / 2
  • area = Math.Sqr(s * (s - a) * (s - b) * (s - c))
  • MsgBox "三角形的三边分别为：a=" & a & "，b=" & b & "，c=" & c & "。面积area=" & area, vbOKOnly, "求三角形的面积"
  • Else
  • MsgBox "边长：a=" & a & "，b=" & b & "，c=" & c & "。不能构成三角形", vbOKOnly, "判断三条边是否可构成三角形"
  • End If
  • End Sub

2条回答 默认 最新

报告相同问题？

相关推荐 更多相似问题