UC知道vb 求高手解答
来源：百度知道 编辑：UC知道 时间：2024/05/15 11:36:39
用VB来实现短作业优先算法的交互性演示，输入作业的长度来判断先执行谁，比如有A B C D 4个进程，通过输入一些数据（作业长度），然后进行比较哪个作业先优先，希望能有代码，主要是4个长度的比较判断不知道怎么比较，望高手解答
你的作业长度到底是什么数据？
Private Sub cmd1_Click()
Dim a(4) As Double
Dim b(4) As Double
Dim i As Integer
Dim k As Integer
Dim c As Double
''''''''''''''''''''''做业长度是 数字 的话
a(0) = Val(Text1.Text)
a(1) = Val(Text2.Text)
a(2) = Val(Text3.Text)
a(3) = Val(Text4.Text)
For i = 0 To 3
For k = 0 To 3
If a(i) > a(k) Then
c = a(k)
a(k) = a(i)
a(i) = c
End If
Next
Next
For i = 0 To 3
Label1(i).Caption = a(i) & " 优先等级 " & i + 1 & "级"
Next
End Sub
Private Sub cmd2_Click()
End
End Sub
'''''''''''''''''''''''''