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

三角形的三条边,判断能否构成三角形若能则求面积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 ThenPrint "能构成三角形"s = (a + b + c) / 2area = Sqr(s * (s - a) * (s - b) * (s - c))Print "面积为："; areaElsePrint "不能构成三角形"End IfEnd Sub