编程题 输入三个数，求组成三角形的面积？谢谢

Private Sub Command1_Click()
BackToStart:
Dim A, B, C, P, S As Double
A = InputBox("A = ", "请输入三角形的边长")
B = InputBox("B = ", "请输入三角形的边长")
C = InputBox("C = ", "请输入三角形的边长")
If A + B <= C Or A + C <= B Or B + C <= A Then
If MsgBox("无法构成三角形，请重新输入。", vbYesNo + vbQuestion, "提示") = vbYes Then
GoTo BackToStart
Else
Exit Sub
End If
End If
'假设有一个三角形，边长分别为a、b、c，三角形的面积S可由以下公式求得：s=根号下(p(p-a)(p-b)(p-c))；而公式里的p：(a+b+c)/2
If A = "" Or B = "" Or C = "" Then
MsgBox "三角形三边边长为空，无法计算其面积。", vbOKOnly + vbCritical, "错误"
Exit Sub
End If
P = (CDbl(A) + CDbl(B) + CDbl(C)) / 2
S = Sqr(P * (P - A) * (P - B) * (P - C))
MsgBox S
End Sub

我用c++写的:
#i