一段VB程序，哪里出错了？

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single, x As Single

a = imputbox("请输入a的值")

b = imputbox("请输入b的值")

c = imputbox("请输入c的值")

x = (a + b + c) / 2

If a+b>c:a+c>b:b+c>a Then

s = Sqr(x * (x - a) * (x - b) * (x - c))

Else

s = 0

End If

End Sub

If a+b>c:a+c>b:b+c>a Then有错吗？

有错，你是想用：表示与关系吗？vb是用and的。

if a+b>c and a+c>b and b+c>a then