高中求三角形面积的程序

高中求三角形面积的程序

Public Function Area(a As Double,b As Double,c As Double) As Double
If a + b < c Or a + c < b Or b + c < a Then Exit Function
Dim s As Double
s = 0.5 * (a + b + c)
a = s - a
b = s - b
c = s - c
Area = Sqr(s * a * b * c)
End Function
Private Sub Command1_Click()
Me.Caption = Area(3,4,5)
End Sub
再问： 能不能麻烦你用简单的，我还是新手，想从基础开始起，比如：if···then else、a=text1。text、b=text2.text等等这样的
再答： Public Function Area(a As Double, b As Double, c As Double) As Double If a + b < c Or a + c < b Or b + c < a Then Exit Function Dim s As Double s = 0.5 * (a + b + c) a = s - a b = s - b c = s - c Area = Sqr(s * a * b * c) End Function Private Sub Command1_Click() MSGBOX Area(Val(Text1), Val(Text2), Val(Text3)) End Sub
再问： Private Sub Command1_Click() a = Text1.Text b = Text2.Text c = Text3.Text Text4.Text = s p = (a + b + c) / 2 If a + b < c Or a + c < b Or b + c < a Then Print "不能构成三角形" Else s = Sqr(p * (p - a) * (p - b) * (p - c)) End If End Sub能麻烦你帮我看下哪里错了吗，为什么我老是得不出结果？
再答： Private Sub Command1_Click() a = Text1.Text b = Text2.Text c = Text3.Text Text4.Text = s p = (a + b + c) / 2 If a + b < c Or a + c < b Or b + c < a Then Print "不能构成三角形" Else s = Sqr(p * (p - a) * (p - b) * (p - c)) End If MSGBOX S End Sub