Question

在命令按钮Command1的单击事件内编程完成:对文本框Text1、Text2、Text3中依次输

在命令按钮Command1的单击事件内编程完成:对文本框Text1、Text2、Text3中依次输入的上底a、下底长b和高h，求梯形的面积，并要求结果保留小数两位后放入文本框Text4中。计算公式为:S=(a+b)h/2。为什么我做的结果总是不对? Private Sub Command1_Click() a = Text1.Text b = Text2.Text h = Text3.Text s = (Val(a) + Val(b)) * h / 2 Text4.Text = Format(s, "0.00") End Sub

Answer 1

没什么错啊你把你的结果发出来看看另外为s = (Val(a) + Val(b)) * val(h) / 2 应该会更好的