用VB求一个矩形面积

来源：百度知道 编辑：UC知道 时间：2024/09/20 22:57:31
老师要求用VB编写一个求矩形面积的程序，具体要求是将长方体定义成一个类，然后宽和高定义为矩形的属性，并且数值由键盘输入

最好能有一个完整清晰的程序...

谢谢谢谢谢大家了...紧急紧急

新建一个模块，在里面写下列代码：
Public Type ju
L As Long
W As Long
End Type
然后在窗体画一按钮，在按钮的click事件中写正确代码：
Dim r As ju, s As Long

r.L = InputBox("请输入长方形的长：")
r.W = InputBox("请输入长方形的宽：")
s = r.L * r.W
Print s
运行就行了。

最简单的代码如下：
Private Sub Command1_Click()
Dim a, b As Integer
a = Val(InputBox("输入矩形的长"))
b = Val(InputBox("输入矩形的宽"))
MsgBox "矩形的面积为" & a * b
End Sub

新建Text1和按钮FF

在Form1—Load中写
L = InputBox("请输入长方形的长：")
W = InputBox("请输入长方形的宽：")
在FF中写
Text1 = L * W

到底是长方形还是 长方体 ？？？