源码释录2-2 辅助决策-效益问题模拟的设置界面及源码.pdfVIP

源码释录2-2 辅助决策-效益问题模拟的设置界面及源码 注释： 在企业的商务活动中，经常会遇到一些难以用确切的数学模型进行描述或预测的问题。 比如，由一个商店的经营成果，可以推算出每月的平均接待人数。但是，却难以预见每天每时 的接待人数。类似这样的随机问题，大多可以通过计算机进行模拟，从中获得若干近似的行为 再现，以便为企业决策提供参考。 本辅助决策功能仅涉及排队问题和效益问题两个常用的模拟问题。 源码： Dim XSZF As String * 1 修设置否（Y/N） Dim XZCP As String 选中产品 点选存量原则或模拟方式 Private Sub CombLR_Click(Index As Integer) XSZF = Y Select Case Index Case 0 If Me.OpLR(0).Value = True Then If XZCP = Then MsgBox (尚未从下面的产品型号序列中选中一种产品！) Exit Sub End If ChDrive DQLJ WJM = 个品( + XZCP + )数况 + .KBD WJ$ = Dir$(WJM) WJ$ = UCase(WJ$) If WJ$ = WJM Then KZM = Right$(WJM, 4) WJH = FreeFile Call OPWJ(WJM, WJH) Seek WJH, JLC * 6 + 1 Call RDJLN(JLC, WJH) Close Select Case Me.CombLR(0).Text Case 上年同期销量 Dim YF As String * 2 YF = Mid(Date$, 6, 2) If Val(SJZ(Val(YF) + 2, 0)) 0 Then Me.TextLR(4).Text = Int(Val(SJZ(Val(YF) + 2, 0))) + 1 Me.TextLR(5).Text = XZCP Else Me.TextLR(4).Text = 0 Me.TextLR(5).Text = XZCP MsgBox(产品 + XZCP+ 上年 + YF+ 月销量为零！ + Chr(10) + Chr(13) + _ 如坚持模拟该产品，请人为输入[月份销量]值。) Exit Sub End If Case 上年月均销量 If Val(SJZ(2, 0)) 0 Then Me.TextLR(4).Text = Int(Val(SJZ(2, 0)) / 12) + 1 Me.TextLR(5).Text = XZCP Else Me.TextLR(4).Text = 0 Me.TextLR(5).Text = XZCP MsgBox (产品 + XZCP + 上年销量为零！ + Chr(10) + Chr(13) + _