vb 计算公式 编程

来源：百度知道 编辑：UC知道 时间：2024/05/19 09:29:43
求教，如何编程把textbook4的计算结果等于(textbook1+textbook2)的平方除以textbook3？
If Val(Text3.Text) <> 0 Then 这句有错，不知道为什么？

Private Sub Text1_Change()
Call jisuan
End Sub

Private Sub Text2_Change()
Call jisuan
End Sub

Private Sub Text3_Change()
Call jisuan
End Sub

Sub jisuan()

If Val(Text3.Text) <> 0 Then text4.Text = (Val(Text1.Text) + Val(Text2.Text)) ^ 2 / Val(Text3.Text)

End Sub

dim a,b,c
a=val(textbook1.text)
b=val(textbook2.text)
c=val(textbook3.text)
textbook4.text=((a+b)^2)/c

text4.text=(val（text1.text)+val(text2.text))^2/val(text3.text)

textbook是什么控件，是text框么？

text4.text=(text1.text+text2.text)*(text1.text+text2.text)/text3.text