谁能帮我用VB设计一个简单的程序：计算正方形的面积（详细点）

2024-11-27 22:42:12

推荐回答（3个）

回答（1）：

Private Sub Form_Load()
Dim a, b, c As Long
a = InputBox("请输入正方形的长")
b = InputBox("请输入正方形的宽")
c = InputBox("请输入正方形的高")
MsgBox "正方形的体积是" & a * b * c
End Sub

回答（2）：

文本框1（Text1，用于输入边长a），文本框2（Text2，用于输出面积S），按钮（Button1，用于点击计算）。
Private Sub Button1_Click()
Dim a, S as Double
a=Text1.text
S=a*a
Text2.text=S
End Sub

回答（3）：

新建一个工程，双击Form1窗体空白区域，在出现的代码窗口中输入如下代码：
Private
Sub
Form_Load()
a
=
InputBox("请输入边长：",
"计算正方形的面积
")
MsgBox
"面积="
&
a
*
a
End
Sub