1、海倫公式:p為三角形的周長的一半,而a,b,c分別為三角形三邊的長度,S=p(p-a)(p-b)(p-c)=[(a+b+c)(a+b-c)(a+c-b)(b+c-a)]/22、已知底邊和高，計算就簡單了3、已知兩邊和夾角，先求出第三邊，再使用第一項計算其他的類似。源程式如下：OptionExplicitDimAAsDouble,BAsDouble,CAsDoubleDimJaAsDouble,JbAsDouble,JcAsDoubleDimSAsDoublePrivateSubForm_Load()S=S1(3,6,8)"已知三邊,求面積MsgBox"三邊:3、6、8，面積是"&SS=S1(3,6,C1(3,6,30*3.142/180))"已知兩邊和夾角,求面積MsgBox"兩邊及夾角:3、6、30，面積是"&SS=S2(3,6)"已知底和高,求面積MsgBox"底和高:3、6，面積是"&SEndSubPrivateFunctionC1(AAsDouble,BAsDouble,JcAsDouble)AsDoubleC1=Sqr(A*A+B*B-2*A*B*Cos(Jc))EndFunctionPrivateFunctionS1(AAsDouble,BAsDouble,CAsDouble)AsDoubleS1=(A+B+C)*(A+B-C)*(A+C-B)*(B+C-A)/2EndFunctionPrivateFunctionS2(DAsDouble,GAsDouble)AsDoubleS2=D*G/2EndFunction
1、海倫公式:p為三角形的周長的一半,而a,b,c分別為三角形三邊的長度,S=p(p-a)(p-b)(p-c)=[(a+b+c)(a+b-c)(a+c-b)(b+c-a)]/22、已知底邊和高，計算就簡單了3、已知兩邊和夾角，先求出第三邊，再使用第一項計算其他的類似。源程式如下：OptionExplicitDimAAsDouble,BAsDouble,CAsDoubleDimJaAsDouble,JbAsDouble,JcAsDoubleDimSAsDoublePrivateSubForm_Load()S=S1(3,6,8)"已知三邊,求面積MsgBox"三邊:3、6、8，面積是"&SS=S1(3,6,C1(3,6,30*3.142/180))"已知兩邊和夾角,求面積MsgBox"兩邊及夾角:3、6、30，面積是"&SS=S2(3,6)"已知底和高,求面積MsgBox"底和高:3、6，面積是"&SEndSubPrivateFunctionC1(AAsDouble,BAsDouble,JcAsDouble)AsDoubleC1=Sqr(A*A+B*B-2*A*B*Cos(Jc))EndFunctionPrivateFunctionS1(AAsDouble,BAsDouble,CAsDouble)AsDoubleS1=(A+B+C)*(A+B-C)*(A+C-B)*(B+C-A)/2EndFunctionPrivateFunctionS2(DAsDouble,GAsDouble)AsDoubleS2=D*G/2EndFunction