Question

怎么用vb求三角形面积 不用msgbox的

编写窗体的单击事件代码，求任意三角形的面积，三角形三条边a、b、c通过文本框获取，计算结果存入变量S中，并将变量中的内容在text4文本框中显示。
提示：任意三角形的面积公式s=(t*(t-a)*(t-b)*(t-c))1/2,t=(a+b+c)/2

Answer 1

假如 Text1,Text2,Text3 分别表示 a,b,c三个变量的值，计算出来的面积显示在Text4中.
窗体上放置一个“计算”的按纽 Command1,在其Click()事件中添加下面程序:

dim a,b,c as Double
dim t as Double
dim s as Double

a=val(Text1)
b=Val(Text2)
c=val(Text3)

t=(a+b+c)/2
s=(t*(t-1)*(t-b)*(t-c))/2

Text4=Format$(s,"#0.00")

你的公式不知道是否对哦！
程序应该应该这样写的。Format$(s,"#0.00") 保留两位小数