求一个能够算任意三角形面积的VB程序源码
自己刚刚开始入门啊
高手帮帮我吧

三角形的公式我忘记了...给出公式我能写一个!

我也忘了...

好好谢谢你们
我没发用符号表示了
就用文字表达了 希望能理解..


根号下 :半周长乘以 半周长减A 乘以半周长减B 乘以半周长减C

A B C是三角形三边
不好意思回复晚了....

Private Sub Command1_Click()
Dim s As Double, a As Double, b As Double, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
s = (a + b + c) / 2
Text4.Text = Sqr(s * (s - a) * (s - b) * (s - c))
End Sub

t=(a+b+c)/2
s=sqr(t*(t-a)*(t-b)*(t-c))

比我还快

运气

原来如此 原来要申明下变量的晕,...
忘记了 怪不得弄了半天还不会...

谢谢撒