采购与库存
一、 实验题目 订货决策仿真 二、 实验内容：
作为金鹰百货公司的库存计划小组，你们的主要责任之一是协助部门经理进行库存决策，电器部门的经理来到你们小组，希望提供部门的库存计划和盈利能力。该部门储存一种品牌为飞利浦的吸尘器。每单位售价555元，成本495元。每次订货成本50元，飞利浦吸尘器的销售数据如下：（具有代表性的10天销售数据，假设金鹰百货公司一年开店360天），
该飞利浦吸尘器订货提前期为10，目前金鹰百货对该飞利浦吸尘器的服务和库存策略如下：①订货策略：EOQ ，满足率
99%
库存持有成本（公司的税前资本机会成本是37%）：库存税率1.6%;保险：0.4%；储存：3.3%；废弃：0.7%；损坏：
2.0% 该经理有几个关于库存策略的问题：
（1）飞利浦吸尘器采用以下哪个满足率（99%，95%，91%，87%）将导致最高的年利润？
（2）飞利浦吸尘器制造商声明，如果价格额外增加1.5%，他们能够雇佣更为可靠的国际承运商，可以将提前期缩短20%，电器经理应该接受这种提议还是拒绝（假设99%的满足率和订货策略不变）
使用EXCEL 工具，采用蒙特卡洛方法进行仿真。
三、 实验数据：
四、 实验结果
五、 实验心得
提示！
1、随机数分配
2、如何得到随机数（1） 生成0-99随机数 int(100*rand())
（2）生成1-100的随机数
用宏。同时按Alt 和F11进入宏界面，点菜单的插入，模块，粘贴如下代码： Sub test() Dim i As Byte
Dim xRng As Object
Cells(1, 1) = Int(Rnd() * 100) + 1 For i = 2 To 100
Set xRng = Range("A1:A" & i) Cells(i, 1) = Int(Rnd() * 100) + 1
Do While Application.WorksheetFunction.CountIf(xRng, Cells(i, 1)) > 1 Cells(i, 1) = Int(Rnd() * 100) + 1 Loop Next i
End Sub
直接在此界面下按F5运行此宏，在A1到A100里形成随机数。