求助:谁能用Excel 2003的VB帮我弄一个简单的计算程序吗?

来源：百度知道 编辑：UC知道 时间：2024/05/12 19:56:24
程序目的是:有一个木箱子(要求用户输入长,宽,高,这3个是变量),然后自动计算出表面积,然后再输入一种涂料的信息(一瓶多少钱,能涂多少面积)然后自动计算出要多少瓶及多少钱去买涂料,比如说涂料10块一瓶,能图2平方米,箱子表面积2.5平方米,就需要2瓶,一共20块钱;另外一个是用纸来糊木箱,输入纸张的长,宽及价钱,然后计算出要用多少纸,多少钱

请务必用Excel 的VB来编辑啊,最少3个 worksheets老师要求的,呵呵

做好的话可以发到我邮箱或者直接贴出来

邮箱yeye8866@hotmail.com

分不多,奖励80分^_^
- minimum 3 worksheets
- Use control structures such as IF statement, For Loop, Do while loops, Do until loops.
- Minimum 3 user defined procedures, functions

A1:木箱子长
B1:木箱子宽
C1:木箱子高
D1:木箱子表面积
A2,B2,C2分别输入变量.
D2:"=2*(A1*B1+B1*C1+C1*A1)"
(输入A2,B2,C2变量后,D2会自动计算出表面积,单位或小数自己再处理)

A4:涂料的价格
B4:一瓶涂料可图的面积
C4:需要的瓶数
D4:需要的金额
A5,B5中分别输入变量
C5:"=CEILING(D2/B5,1)"
D5:"=C5*A5"

A7:纸张的长
B7:纸张的宽
C7:纸张的价格
D7:须要的纸张
E7:需要的金额
A8,B8,C8输入变量.
D8:"=CEILING(D2/(A8*B8),1)"
E8:"=D8*C8"

当然,只面有些你可以改用函数或其它函数!主要是思想,能实现就得了!