Public Function Area(a As Double,b As Double,c As Double) As DoubleIf a + b < c Or a + c < b Or b + c < a Then Exit FunctionDim s As Doubles = 0.5 * (a + b + c)a = s - ab = s - bc = s - cArea = Sqr(s ...能不能麻烦你用简单的，我还是新手，想从基础开始起，比如：if···then else、a=text1。text、b=text2.text等等这样的Public Function Area(a As Double, b As Double, c As Double) As DoubleIf a + b < c Or a + c < b Or b + c < a Then Exit FunctionDim s As Doubles = 0.5 * (a + b + c)a = s - ab = s - bc = s - cArea = Sqr(s * a * b * c)End FunctionPrivate Sub Command1_Click()MSGBOX Area(Val(Text1), Val(Text2), Val(Text3))End SubPrivate Sub Command1_Click()a = Text1.Textb = Text2.Textc = Text3.TextText4.Text = sp = (a + b + c) / 2If a + b < c Or a + c < b Or b + c < a ThenPrint "不能构成三角形"Elses = Sqr(p * (p - a) * (p - b) * (p - c))End IfEnd Sub能麻烦你帮我看下哪里错了吗，为什么我老是得不出结果？Private Sub Command1_Click()a = Text1.Textb = Text2.Textc = Text3.TextText4.Text = sp = (a + b + c) / 2If a + b < c Or a + c < b Or b + c < a ThenPrint "不能构成三角形"Elses = Sqr(p * (p - a) * (p - b) * (p - c))End IfMSGBOX SEnd Sub