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        '以到達(dá)時(shí)間先后排序
   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