Private Sub Command1_Click()
Label1.Caption = Text1.Text * Text2.Text * Text3.Text
End Sub
界面上就放三个文本框和一个按钮就行了。
'text1、text2、text3俩米娜分别是输入的长宽高
Private Sub Command1_Click()
label1 = "体积为：" & Val(text1) * Val(text2) * Val(text3)
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024