VB求三角形面积,结果老是为零,帮忙看以下代码.
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/15 18:43:26
VB求三角形面积,结果老是为零,帮忙看以下代码.
Private Sub Text1_Change()
a = Val(Text1)
End Sub
Private Sub Text2_Change()
b = Val(Text2)
End Sub
Private Sub Text3_Change()
c = Val(Text3)
End Sub
Private Sub Command1_Click()
Label1 = Sqr(s * (s - a) * (s - b) * (s - c))
s = (a + b + c) / 2
End Sub
Private Sub Text1_Change()
a = Val(Text1)
End Sub
Private Sub Text2_Change()
b = Val(Text2)
End Sub
Private Sub Text3_Change()
c = Val(Text3)
End Sub
Private Sub Command1_Click()
Label1 = Sqr(s * (s - a) * (s - b) * (s - c))
s = (a + b + c) / 2
End Sub
![VB求三角形面积,结果老是为零,帮忙看以下代码.](/uploads/image/z/3559699-19-9.jpg?t=VB%E6%B1%82%E4%B8%89%E8%A7%92%E5%BD%A2%E9%9D%A2%E7%A7%AF%2C%E7%BB%93%E6%9E%9C%E8%80%81%E6%98%AF%E4%B8%BA%E9%9B%B6%2C%E5%B8%AE%E5%BF%99%E7%9C%8B%E4%BB%A5%E4%B8%8B%E4%BB%A3%E7%A0%81.)
dim a,b,c
Private Sub Text1_Change()
a = Val(Text1)
End Sub
Private Sub Text2_Change()
b = Val(Text2)
End Sub
Private Sub Text3_Change()
c = Val(Text3)
End Sub
Private Sub Command1_Click()
Label1 = Sqr(s * (s - a) * (s - b) * (s - c))
s = (a + b + c) / 2
End Sub
再问: 还是不行啊
再答: Private Sub Command1_Click() s = (a + b + c) / 2 Label1 = Sqr(s * (s - a) * (s - b) * (s - c)) End Sub
再问: 为什么顺序也有影响?
再答: 就讨论你的问题 1,abc必须是全局变量,才能在不同过程之间用。 2,VB是按顺序执行的,首先必须计算s的值,下面才能用s,要不然会是s=0的
Private Sub Text1_Change()
a = Val(Text1)
End Sub
Private Sub Text2_Change()
b = Val(Text2)
End Sub
Private Sub Text3_Change()
c = Val(Text3)
End Sub
Private Sub Command1_Click()
Label1 = Sqr(s * (s - a) * (s - b) * (s - c))
s = (a + b + c) / 2
End Sub
再问: 还是不行啊
再答: Private Sub Command1_Click() s = (a + b + c) / 2 Label1 = Sqr(s * (s - a) * (s - b) * (s - c)) End Sub
再问: 为什么顺序也有影响?
再答: 就讨论你的问题 1,abc必须是全局变量,才能在不同过程之间用。 2,VB是按顺序执行的,首先必须计算s的值,下面才能用s,要不然会是s=0的