作业帮 > 综合 > 作业

写一个程序,求出给定长和宽的长方形的周长和面积,并输出计算结果.其中长和宽的值由用户输入,用双精度

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/04/29 00:02:47
写一个程序,求出给定长和宽的长方形的周长和面积,并输出计算结果.其中长和宽的值由用户输入,用双精度
Dim x As Double, y As Double
Private Sub Form_Load()
x = InputBox("输入长")
y = InputBox("输入宽")
s = x * y
m = 2 * (x + y)
MsgBox ("长为" & x & "宽为" & y & vbCrLf & "面积为" & s & vbCrLf & "周长为" & m)
End Su