📄 frm_gaoxy.frm
字号:
Width = 1200
End
Begin VB.Label Label16
Alignment = 2 'Center
BackColor = &H008080FF&
Height = 500
Left = 5760
TabIndex = 12
Top = 4440
Width = 1200
End
Begin VB.Label Label17
Alignment = 2 'Center
BackColor = &H008080FF&
Height = 495
Left = 7680
TabIndex = 11
Top = 4440
Width = 1200
End
Begin VB.Label Label18
Alignment = 2 'Center
BackColor = &H008080FF&
Height = 495
Left = 9600
TabIndex = 10
Top = 4440
Width = 1200
End
Begin VB.Label Label19
Alignment = 2 'Center
BackColor = &H008080FF&
Height = 495
Left = 11520
TabIndex = 9
Top = 1440
Width = 1200
End
Begin VB.Label Label20
Alignment = 2 'Center
BackColor = &H008080FF&
Height = 495
Left = 11520
TabIndex = 8
Top = 2880
Width = 1200
End
Begin VB.Label Label21
Alignment = 2 'Center
BackColor = &H008080FF&
Height = 495
Left = 11520
TabIndex = 7
Top = 4440
Width = 1200
End
End
End
Attribute VB_Name = "frm_gaoXY"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim a1 As Double
Dim a2 As Double
Dim a3 As Double
Dim a4 As Double
Dim a5 As Double
Dim a6 As Double
Dim aa As Double
Dim bb As Double
Dim cc As Double
Dim dd As Double
Dim ee As Double
Dim ff As Double
a1 = CDbl(Text1.Text)
a2 = CDbl(Text2.Text)
a3 = CDbl(Text3.Text)
a4 = CDbl(Text4.Text)
a5 = CDbl(Text5.Text)
a6 = CDbl(Text6.Text)
If a1 < a2 And a1 < a3 Then
Label19.Caption = "第一个进入"
Label10.Caption = Str(Text1.Text)
Label11.Caption = Str(a4 + Label10.Caption)
If Label11.Caption >= a2 And Label11.Caption >= a3 Then
MsgBox "作业2 和 作业3 进入"
aa = (CDbl(Label11.Caption) - a2 + a5) / a5
bb = (CDbl(Label11.Caption) - a3 + a6) / a6
MsgBox "作业2的优先级为：" & aa & " " & "作业3的优先级为：" & bb
Label15.Caption = Str(aa)
Label18.Caption = Str(bb)
If aa > bb Then
MsgBox "作业2的优先级高于作业3的优先级，则接下来作业2先得到CPU"
Label13.Caption = Label11.Caption
Label14.Caption = a5 + Label13.Caption
Label20.Caption = "第二个进入"
Label16.Caption = Label14.Caption
Label17.Caption = a6 + Label16.Caption
Label21.Caption = "第三个进入"
Else
MsgBox "作业3的优先级高于作业2的优先级，则接下来作业3先得到CPU"
Label16.Caption = Label11.Caption
Label17.Caption = a6 + Label16.Caption
Label21.Caption = "第二个进入"
Label13.Caption = Label17.Caption
Label14.Caption = a5 + Label13.Caption
Label20.Caption = "第三个进入"
End If
Else
If a2 < a3 Then
Label13.Caption = Text2.Text
Label14.Caption = a5 + Label13.Caption
Label20.Caption = "第二个进入"
Label16.Caption = Label14.Caption
Label17.Caption = a6 + Label16.Caption
Label21.Caption = "第三个进入"
Else
Label16.Caption = Text3.Text
Label17.Caption = a6 + Label16.Caption
Label21.Caption = "第二个进入"
Label13.Caption = Label17.Caption
Label14.Caption = a5 + Label13.Caption
Label20.Caption = "第三个进入"
End If
End If
ElseIf a2 < a1 And a2 < a3 Then
Label20.Caption = "第一个进入"
Label13.Caption = Text2.Text
Label14.Caption = Str(a5 + Label13.Caption)
If Label14.Caption >= a1 And Label14.Caption >= a3 Then
MsgBox "作业1 和 作业3 进入"
cc = (CDbl(Label14.Caption) - a1 + a4) / a4
dd = (CDbl(Label14.Caption) - a3 + a6) / a6
MsgBox "作业1的优先级为：" & cc & " " & "作业3的优先级为：" & dd
Label12.Caption = Str(cc)
Label18.Caption = Str(dd)
If cc > dd Then
MsgBox "作业1的优先级高于作业3的优先级，则接下来作业1先得到CPU"
Label10.Caption = Label14.Caption
Label11.Caption = a4 + Label10.Caption
Label19.Caption = "第二个进入"
Label16.Caption = Label11.Caption
Label17.Caption = a6 + Label16.Caption
Label21.Caption = "第三个进入"
Else
MsgBox "作业3的优先级高于作业2的优先级，则接下来作业3先得到CPU"
Label16.Caption = Label14.Caption
Label17.Caption = a6 + Label16.Caption
Label21.Caption = "第二个进入"
Label10.Caption = Label17.Caption
Label11.Caption = a4 + Label10.Caption
Label19.Caption = "第三个进入"
End If
Else
If a1 < a3 Then
Label10.Caption = Text1.Text
Label11.Caption = a4 + Label10.Caption
Label19.Caption = "第二个进入"
Label16.Caption = Label11.Caption
Label17.Caption = a6 + Label16.Caption
Label21.Caption = "第三个进入"
Else
Label16.Caption = Text3.Text
Label17.Caption = a6 + Label16.Caption
Label21.Caption = "第二个进入"
Label10.Caption = Label17.Caption
Label11.Caption = a4 + Label10.Caption
Label19.Caption = "第三个进入"
End If
End If
ElseIf a3 < a1 And a3 < a2 Then
Label16.Caption = Text3.Text
Label17.Caption = Str(a6 + Label16.Caption)
Label21.Caption = "第一个进入"
If Label17.Caption >= a2 And Label17.Caption >= a1 Then
MsgBox "作业1 和 作业2 进入"
ee = (CDbl(Label17.Caption) - a1 + a4) / a4
ff = (CDbl(Label17.Caption) - a2 + a5) / a5
MsgBox "作业1的优先级为：" & ee & " " & "作业2的优先级为：" & ff
Label12.Caption = Str(ee)
Label15.Caption = Str(ff)
If ee > ff Then
MsgBox "作业1的优先级高于作业2的优先级，则接下来作业1先得到CPU"
Label10.Caption = Label17.Caption
Label11.Caption = a4 + Label10.Caption
Label19.Caption = "第二个进入"
Label13.Caption = Label11.Caption
Label14.Caption = a5 + Label13.Caption
Label20.Caption = "第三个进入"
Else
MsgBox "作业2的优先级高于作业1的优先级，则接下来作业2先得到CPU"
Label13.Caption = Label17.Caption
Label14.Caption = a5 + Label13.Caption
Label20.Caption = "第二个进入"
Label10.Caption = Label14.Caption
Label11.Caption = a4 + Label10.Caption
Label19.Caption = "第三个进入"
End If
Else
If a1 < a2 Then
Label10.Caption = Text1.Text
Label11.Caption = a4 + Label10.Caption
Label19.Caption = "第二个进入"
Label13.Caption = Label11.Caption
Label14.Caption = a5 + Label13.Caption
Label20.Caption = "第三个进入"
Else
Label13.Caption = Text2.Text
Label14.Caption = a5 + Label13.Caption
Label20.Caption = "第二个进入"
Label10.Caption = Label14.Caption
Label11.Caption = a4 + Label10.Caption
Label19.Caption = "第三个进入"
End If
End If
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -