如何用VB实现秦九昭算法?

求三角形面积?
三边为a b c
设p=(a+b+c)/2
面积s=sqr(p*(p-a)*(p-b)*(p-c))

程序:
Private Sub Command1_Click()
'输入三角形的三条边长
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
'判断是否能组成三角形
If a + b > c And a + c > b And b + c > a Then
Text4 = s(a, b, c)
Else
MsgBox "三边不能组成三角形"
End If
End Sub

Function s(a, b, c) As Single
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
End Function

呵呵
必修三吧
算了 没什么用的
一定要的话，+QQ 82570635
我是04级山东毕业生。
--------------------------
算了，改一下吧
[输入a(0)~a(5),这里先假设5个，具体见P30的框图]
【输入x(0)】
[上面的都是数组]
下面的是代码，相应Command.Click之类的
n=1
v=a(5)
while n<=5
v=v*x(0) + a(5-n)
n=n+1
wend
msgbox "v=",v