VB求三角形面积,结果老是为零,帮忙看以下代码.

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/21 14:00:42

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

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的

VB求三角形面积,结果老是为零,帮忙看以下代码. 求一vb程序代码,输入三个数字判断是等腰三角形,等边三角形,一般三角形还是不是三角形.只要是输出结果有4个的vb代码都可 C语言求三角形面积代码 vb程序设计问题,求代码请问一下在VB里面计算三角形面积的代码是什么? 计算圆的面积 VB代码, VB中已知圆的半径求圆的周长和面积,求代码某直角三角形的三条边都是整数,当一条直角边长度为15且斜边不超过200时,求出所有满足条件的三角形,求流程图,VB代码用VB程序设计已知三角形三条边,求三角形面积求帮忙看一下这段代码是什么意思求VB代码_数字金字塔编写一个求三角形面积的VB应用程序