挤牛奶问题：如有三个农民每天清晨5点起床，然后去牛棚分别给3头牛挤 奶。第一个农民在300时刻（从5点开始计时，秒为单位）给他的牛挤奶，一直到1000时刻（总共挤了700个时刻），第二个农民在700时刻开始，在1200时刻结束（总共挤了500个时刻）。第三个农民在1500时刻开始2100时刻结束（总共挤了600个时刻）。期间最长挤奶的连续时间为900秒（从300时刻到1200时刻），而最长的无人挤奶的连续时间为300时刻（因第二个农民在1200时刻已结束，而第三个农民从1500时刻才开始，中间有300时刻没有人在挤牛奶）。相应时刻如图所示：
下面提供的程序是，从N个农民（1＜N＜=5000）挤N头牛的工作时间列表，计算出最长有人在挤牛奶的时间段与最长的无人挤牛奶的时间段。
如图为两组不同数据程序运行后界面；
 
请在横线处填入相应的代码，使程序功能 完善。
Dim a（1 To 100）As Integer'存放农民 挤牛奶开始时刻
Dim b（1 To 100）As Integer'存放农民挤牛奶结束时刻
Dim n As Integer'存放农民人数
Private Sub Form_Load （　　）
‘获取农民的人数与各个农民开始挤牛奶与结束挤牛奶的时间，并在list1中输出‘相应的代码略
End Sub
Private Sub Command1_Click （　　）
Dim i As Integer,j As Integer
Dim t As Integer,ymax As Integer,nmax As Integer
Dim btime As Integer,etime As Integer,flag As Boolean
flag=True：i=1
Do While i＜=   1       And flag
 flag=False
 For j=1 To n-i
  If a（j）＞a（j+1）Then
   t=a（j）：a（j）=a（j+1）：a（j+1）=t
   t=b（j）：b（j）=b（j+1）：b（j+1）=t
   flag=True
  End If
 Next j
 i=i+1
Loop
btime=a（1）：etime=b（1）
ymax=etime-btime：nmax=0
For i=2 To n
 If              2                     Then
    etime=b（i）
  If etime-btime＞ymax Then ymax=etime-btime
  ElseIf etime＜a（i） Then
     If a（i）-etime＞nmax Then nmax=a（i）-etime
     btime=a（i）：etime=b（i）
 End If
Next i
Label2．Caption=“最长挤牛奶时间为：“+Str（ymax）+“时刻“
Label3．Caption=“最长无人挤牛奶时间为：“+Str（nmax）+“时刻“
End Sub