您所在位置：主题：各位大虾帮忙解答个问题
997327851
[专家分：0] 发布于 2009-07-21 13:55:00
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim p As Single, s As Single
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
If a + b > c And b + c > a And c + a > b Then
p = (a + b + c) / 3
s = Sqr(p * (p - a) * (p - b) * (p - c))
Text4 = s
Else
Text4 = "error"
End If
End Sub
我在复习时做一个求面积的程序 发现 p = (a + b + c) / 2这个语句被我打成3了 运行时发现如果a b c三个数字分别为4 4 5时出现错误 其他类似5 5 6这样的同样
各位大侠这是怎么回事呢 小弟菜鸟一个承蒙照顾
Dim a As Integer, b As Integer, c As Integer
Dim p As Single, s As Single
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
If a + b > c And b + c > a And c + a > b Then
p = (a + b + c) / 3
s = Sqr(p * (p - a) * (p - b) * (p - c))
Text4 = s
Else
Text4 = "error"
End If
End Sub
我在复习时做一个求面积的程序 发现 p = (a + b + c) / 2这个语句被我打成3了 运行时发现如果a b c三个数字分别为4 4 5时出现错误 其他类似5 5 6这样的同样
各位大侠这是怎么回事呢 小弟菜鸟一个承蒙照顾