tushi.bas

来自「操作系统试验二（算法演示实验）」· BAS 代码 · 共 30 行

Attribute VB_Name = "Module1"
Type ProType
    name As String
    rtime As Integer
    stime As Integer
    ftime As Integer
    ttime As Integer
    btime As Integer
    wtime As Single
    respond As Single
    flag As Boolean
End Type


Dim pro(1 To 6) As ProType
Dim t As ProType

Public Sub arraybyrtime()
 For i = 1 To work        '以到达时间先后排序
   imin = i
   For j = i + 1 To work + 1
     If pro(j).rtime < pro(imin).rtime Then imin = j
     If pro(j).rtime = pro(imin).rtime And pro(j).stime < pro(imin).stime Then imin = j
   Next j
   t = pro(i)
   pro(i) = pro(imin)
   pro(imin) = t
 Next i
End Sub