运筹学课程设计报告书---不允许缺货,补充时间较长.docVIP

运筹学课程设计报告书 专业 班级 学号 姓名 LMZZ 日期 2011.9.1 设计题目：不允许缺货，补充时间较长 设计方案：本设计是在VB环境下运行的，添加了10个文本框，21个标签和3个命令按钮。首先设计运行界面，使其简单美观，并填写所需要的文字；接着编写代码，简单明了；最后调试程序，修改个别地方，进一步完善程序。 方案实施：在VB程序下运行，根据说明在第一列文本框内输入所需要的数字，点击计算按键，在第二列文本框中将会得到相应的结果；点击清空按键，文本框中的数字将会被清空，光标回到第一列的第一个文本框中；结束运行点击结束按键。 结果与结论：当生产速度P=2件/天，需求速度R=1件/天，存储费C1=0.2元/件·天，订货费C3=20元/批时，运行结果为： 用此程序成功的运行出正确的结果，能够快速简洁的计算出未知变量。 收获与致谢：通过这次课程设计，学会了利用所学的运筹学知识,结合所学的计算机语言，进行程序设计，学会了用计算机解决现实中的问题，深刻的体会到了理论联系实际的重要性，深入了解了关于运筹学中关于确定型存贮模型的应用。 感谢老师的悉心指导。 参考文献：《运筹学教程（第三版）》 《VB程序设计》 附件：本程序的代码如下： Private Sub Command1_Click() Dim R, P, C1, C2, C3, t1, Q, t3, A, C As Integer P = Val(Text1.Text) R = Val(Text2.Text) C1 = Val(Text3.Text) C2 = Val(Text4.Text) C3 = Val(Text5.Text) t1 = Sqr(2 * C3 * P / C1 * R * (P - R)) Text6.Text = t1 Q = R * t1 Text7.Text = Q t3 = t1 * R / P Text8.Text = t3 A = R * (t1 - t3) Text9.Text = A C = 2 * C3 / t1 Text10.Text = C End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Text1.Text = Text2.Text = Text3.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text10.Text = Text1.SetFocus End Sub 指导教师评语： 课程设计报告成绩： ，占总成绩比例：20% 答辩成绩： ，占总成绩比例：30% 课程设计作品 ，占总成绩比例：50% 总成绩： 。