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 ...能不能麻煩你用簡(jiǎn)單的，我還是新手，想從基礎(chǔ)開始起，比如：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 "不能構(gòu)成三角形"Elses = Sqr(p * (p - a) * (p - b) * (p - c))End IfEnd Sub能麻煩你幫我看下哪里錯(cuò)了嗎，為什么我老是得不出結(jié)果？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 "不能構(gòu)成三角形"Elses = Sqr(p * (p - a) * (p - b) * (p - c))End IfMSGBOX SEnd Sub