由键盘输入3个数字,试编程判断他们是否可以构成一个三角形.如果能构成一个三角形,请计算三角形的面积

由键盘输入3个数字,试编程判断他们是否可以构成一个三角形.如果能构成一个三角形,请计算三角形的面积
是VB的书面作业

Private Sub Command1_Click()
Dim a As Double,b As Double,c As Double
Dim p As Double,S As Double
a = InputBox(a?)
b = InputBox(b?)
c = InputBox(c?)
If a >= b + c Or b >= a + c Or c >= a + b Then
MsgBox 由长为 & a & 、 & b & 、 & c & 的三条线段不能形成三角形!
Exit Sub
Else
p = (a + b + c) / 2
S = Sqr(p * (p - a) * (p - b) * (p - c))
MsgBox 由长为 & a & 、 & b & 、 & c & 的三条线段形成三角形面积是： & S
End If
End Su