关于VB编程的一个题。。。急！！

来源：百度知道 编辑：UC知道 时间：2024/06/03 14:56:03
给定三角形的三个边长。计算三角形的面积。编写程序。首先判断给出的3条边能否构成三角形。，如果可以。。。则计算该三角形的面积，否则要求重新输入。当输入-1时结束程序

Dim x, y, z, s As Double
Do
x = CDbl(InputBox("输入第一边"))
y = CDbl(InputBox("输入第二边"))
z = CDbl(InputBox("输入第三边"))
Loop Until x + y > z And x + z > y And y + z > x
s = (x + y + z) / 2
MsgBox "三角形面积为" & Sqr(s * (s - x) * (s - y) * (s - z))