出一道简单的VB题

来源：百度知道 编辑：UC知道 时间：2024/05/11 05:13:21
出一道简单的VB题

其实很简单的.

写一个房屋总价计算工具
例如,设定房间1,房间2,....厨房,卫生间.等等
要求输入房间边长,每平方米价钱,求出面积和总价

很简单的,大家试试吧~

呵呵，把下面代码复制就可以了，如果需要完善版的，我下午给你写，呵呵

Private Sub Form_Click()
Dim c(10)
Dim k(10)
n = Int(InputBox("输入房间的个数"))
m = InputBox("输入每平米的单价（元）")
Print "你输入的房间个数为：" & n
Print "每平米造价是" & m & "元"
For i = 1 To n
c(i) = InputBox("输入房间" & i & "的长(米)")
k(i) = InputBox("输入房间" & i & "的宽（米）")
Next
For i = 1 To n
Print "房间" & i & "的造价是：" & c(i) * k(i) * m & "元"
Next
For i = 1 To n
Sum = Sum + c(i) * k(i) * m
Next
Print "总造价是：" & Sum & "元"
End Sub

呵呵,房子不是那么规范的,最好不要输入边长求面积,最好是直接给出面积,来算总价.