vb 计算公式 编程

Posted 2023-04-09

求教，如何编程把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 参考技术A dim a,b,c
a=val(textbook1.text)
b=val(textbook2.text)
c=val(textbook3.text)
textbook4.text=((a+b)^2)/c 参考技术B text4.text=(val（text1.text)+val(text2.text))^2/val(text3.text) 参考技术C textbook是什么控件，是text框么？

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

VB计算矩形的长和宽，面积

我要代码
长和宽都要自己输入的 然后计算出他的面积 怎么编程

参考技术A Private Sub Command1_Click()
w = inputbox("输入宽")
h = inputbox("输入长")
msgbox "面积为：" & val(w) * val(h)
End Sub 参考技术B 什么意思？
怎么计算长和宽？
连长和宽都不知道怎么计算面积？

Private Sub Command1_Click()
MsgBox "矩形面积为" & Val(Text1) * Val(Text2)
End Sub

需要一个按纽，两个textbox本回答被提问者采纳 参考技术C private
sub
command1_click()
dim
a
as
single,
b
as
single
a
=
inputbox("请输入矩形的长度")
b
=
inputbox("请输入矩形的宽度")
dim
s
as
single
s
=
a
*
b
msgbox
("矩形的面积是：s＝"
&
a
&
"×"
&
b
&
"＝"
&
s)