Question

VB6的简单编程

Private Sub Command1_Click()
a = "Text1.Text"
b = "Text2.Text"
c = "Text3.Text"
If a + b > c And a + c > b And b + c > a Then
p = (a + b + c) / 2
S = p * (p - a) * (p - b) * (p - c)
d = Abs(S)
Print d
Else
Print "This kind of triangle doesn't exist."
End If

End Sub

输入三角形三边，判断它们是否构成一个三角形。若能，求出其面积。

Answer 1

Private Sub Command1_Click()

a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a + b > c And a + c > b And b + c > a Then
p = (a + b + c) / 2
S = p * (p - a) * (p - b) * (p - c)
d = Sqr(S)
Print d
Else
Print "This kind of triangle doesn't exist."
End If

End Sub