UC知道一段VB程序，哪里出错了？
来源：百度知道 编辑：UC知道 时间：2024/05/04 22:21:21
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有错吗？
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
If a+b>c:a+c>b:b+c>a Then有错,"a+b>c:a+c>b:b+c>a"不是合法的逻辑表达式
If语句的语法如下:
If <逻辑表达式> then
语句体1
else
语句体2
End If