📄 wfj.frm
字号:
OleObjectBlob = "wfj.frx":19F6
TabIndex = 113
Top = 1500
Width = 1755
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel41
Height = 255
Left = 2280
OleObjectBlob = "wfj.frx":1A68
TabIndex = 114
Top = 1140
Width = 1335
End
End
End
Begin VB.Frame frm4
Height = 4155
Left = 1920
TabIndex = 72
Top = 120
Width = 4755
Begin VB.Frame Frame10
Caption = "【M|M|n】输出区"
Height = 1935
Left = 180
TabIndex = 84
Top = 2040
Width = 4395
Begin VB.TextBox txtDengHua4
BackColor = &H0080FF80&
Height = 285
Left = 1800
TabIndex = 91
Text = "0.0"
ToolTipText = "系统内排队等候所花费时间的平均值"
Top = 1500
Width = 2415
End
Begin VB.TextBox txtHuaPing4
BackColor = &H0080FF80&
Height = 270
Left = 3420
TabIndex = 90
Text = "0.0"
ToolTipText = "系统内完成服务所花费时间的平均值"
Top = 1140
Width = 795
End
Begin VB.TextBox txtDengPing4
BackColor = &H0080FF80&
Height = 270
Left = 3420
TabIndex = 89
Text = "0.0"
ToolTipText = "系统内排队等候顾客的平均值"
Top = 780
Width = 795
End
Begin VB.TextBox txtXiaoGai4
BackColor = &H0080FF80&
Height = 270
Left = 1440
TabIndex = 88
Text = "1.0"
ToolTipText = "系统的消失概率"
Top = 1140
Width = 675
End
Begin VB.TextBox txtJue4
BackColor = &H0080FF80&
Height = 270
Left = 1440
TabIndex = 87
Text = "0.0"
ToolTipText = "系统的绝对通过能力"
Top = 780
Width = 675
End
Begin VB.TextBox txtXiang4
BackColor = &H0080FF80&
Height = 270
Left = 1440
TabIndex = 86
Text = "0.0"
ToolTipText = "系统的相对通过能力"
Top = 420
Width = 675
End
Begin VB.TextBox txtGuPing4
BackColor = &H0080FF80&
Height = 270
Left = 3420
TabIndex = 85
Text = "0.0"
ToolTipText = "系统内待服务顾客的平均值"
Top = 420
Width = 795
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel24
Height = 255
Left = 2280
OleObjectBlob = "wfj.frx":1AD4
TabIndex = 92
Top = 780
Width = 1155
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel25
Height = 255
Left = 2280
OleObjectBlob = "wfj.frx":1B42
TabIndex = 93
Top = 420
Width = 1335
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel26
Height = 315
Left = 120
OleObjectBlob = "wfj.frx":1BAE
TabIndex = 94
Top = 420
Width = 1335
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel27
Height = 195
Left = 120
OleObjectBlob = "wfj.frx":1C1C
TabIndex = 95
Top = 780
Width = 1575
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel28
Height = 195
Left = 120
OleObjectBlob = "wfj.frx":1C8A
TabIndex = 96
Top = 1140
Width = 1515
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel29
Height = 255
Left = 120
OleObjectBlob = "wfj.frx":1CF4
TabIndex = 97
Top = 1500
Width = 1755
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel30
Height = 255
Left = 2280
OleObjectBlob = "wfj.frx":1D66
TabIndex = 98
Top = 1140
Width = 1335
End
End
Begin VB.Frame Frame11
Caption = "【M|M|n】输入区"
Height = 1755
Left = 180
TabIndex = 73
Top = 180
Width = 4395
Begin VB.TextBox Text8
BackColor = &H0080FF80&
Enabled = 0 'False
Height = 285
Left = 3540
TabIndex = 79
Text = "∞"
Top = 960
Width = 735
End
Begin VB.CommandButton Reset4
Caption = "重置"
Height = 255
Left = 2340
TabIndex = 78
Top = 1380
Width = 915
End
Begin VB.CommandButton Cal4
Caption = "计算"
Height = 255
Left = 780
TabIndex = 77
Top = 1380
Width = 915
End
Begin VB.TextBox txtFuWu4
BackColor = &H0080FF80&
Height = 255
Left = 3540
TabIndex = 76
Text = "0.0"
Top = 540
Width = 735
End
Begin VB.TextBox txtDaoDa4
BackColor = &H0080FF80&
Height = 255
Left = 1680
TabIndex = 75
Text = "0.0"
Top = 540
Width = 735
End
Begin VB.TextBox txtFuShu4
BackColor = &H0080FF80&
ForeColor = &H00C00000&
Height = 270
Left = 1680
TabIndex = 74
Text = "0"
Top = 960
Width = 735
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel31
Height = 195
Left = 2520
OleObjectBlob = "wfj.frx":1DD2
TabIndex = 80
Top = 960
Width = 975
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel32
Height = 195
Left = 240
OleObjectBlob = "wfj.frx":1E3C
TabIndex = 81
Top = 960
Width = 1395
End
Begin ACTIVESKINLibCtl.Skin Skin4
Left = 2460
OleObjectBlob = "wfj.frx":1EA8
Top = 1680
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel33
Height = 255
Left = 240
OleObjectBlob = "wfj.frx":20DC
TabIndex = 82
Top = 540
Width = 1335
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel34
Height = 255
Left = 2460
OleObjectBlob = "wfj.frx":2150
TabIndex = 83
Top = 540
Width = 1515
End
End
End
Begin VB.Frame frm6
Height = 4155
Left = 1920
TabIndex = 147
Top = 120
Width = 4815
Begin RichTextLib.RichTextBox Rich6
Height = 2895
Left = 300
TabIndex = 151
ToolTipText = "显示排队系统原理的说明"
Top = 660
Width = 4215
_ExtentX = 7435
_ExtentY = 5106
_Version = 393217
BackColor = 8454016
BorderStyle = 0
ScrollBars = 2
Appearance = 0
TextRTF = $"wfj.frx":21BE
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel53
Height = 255
Left = 480
OleObjectBlob = "wfj.frx":225B
TabIndex = 150
Top = 3780
Width = 1335
End
Begin VB.HScrollBar Hscro6
Height = 315
Left = 1740
Max = 15
Min = 10
TabIndex = 149
Top = 3720
Value = 10
Width = 2655
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel52
Height = 315
Left = 1260
OleObjectBlob = "wfj.frx":22C7
TabIndex = 148
Top = 240
Width = 2055
End
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim temp0 As Double
Dim q, A, P As Double
Dim n As Integer
Dim queueL As Integer
Dim Miu, Row As Double
Dim l, Lq, W, Wq As Double
Dim lambda As Double
Dim isKai As Boolean
Private Sub Cal0_Click()
On Error Resume Next
temp0 = 1 / Val(Trim(txtFuWu.Text))
q = temp0 / (Val(Trim(txtDaoda.Text)) + temp0)
A = Val(Trim(txtDaoda.Text)) * q
P = 1 - q
txtXiang.Text = Format(Round(q, 3), "0.000")
txtJue.Text = Format(Round(A, 3), "0.000")
txtXiaoGai.Text = Format(Round(P, 3), "0.000")
End Sub
Private Sub Cal1_Click()
On Error Resume Next
Dim temp1 As Double
Dim qTemp As Double
Dim nTempI As Integer
Dim nTempD As Double
Dim k As Integer
JiGaiN0 = 1
nTempI = Val(Trim(txtFuShu1.Text))
nTempD = nTempI
temp1 = 1 / Val(Trim(txtFuWu1.Text))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -