设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › 写一个程序，求出给定长和宽的长方形的周长和面积，并输 ...

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

[复制链接]
查看11 | 回复1 | 2011-1-6 23:15:29 | 显示全部楼层 |阅读模式
Dim x As Double, y As DoublePrivate Sub Form_Load()x = InputBox("输入长")y = InputBox("输入宽")s = x * ym = 2 * (x + y)MsgBox ("长为" & x & "宽为" & y & vbCrLf & "面积为" & s & vbCrLf & "周长为" & m)End Sub
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行