擠牛奶問(wèn)題：如有三個(gè)農(nóng)民每天清晨5點(diǎn)起床，然后去牛棚分別給3頭牛擠 奶。第一個(gè)農(nóng)民在300時(shí)刻（從5點(diǎn)開(kāi)始計(jì)時(shí)，秒為單位）給他的牛擠奶，一直到1000時(shí)刻（總共擠了700個(gè)時(shí)刻），第二個(gè)農(nóng)民在700時(shí)刻開(kāi)始，在1200時(shí)刻結(jié)束（總共擠了500個(gè)時(shí)刻）。第三個(gè)農(nóng)民在1500時(shí)刻開(kāi)始2100時(shí)刻結(jié)束（總共擠了600個(gè)時(shí)刻）。期間最長(zhǎng)擠奶的連續(xù)時(shí)間為900秒（從300時(shí)刻到1200時(shí)刻），而最長(zhǎng)的無(wú)人擠奶的連續(xù)時(shí)間為300時(shí)刻（因第二個(gè)農(nóng)民在1200時(shí)刻已結(jié)束，而第三個(gè)農(nóng)民從1500時(shí)刻才開(kāi)始，中間有300時(shí)刻沒(méi)有人在擠牛奶）。相應(yīng)時(shí)刻如圖所示：
下面提供的程序是，從N個(gè)農(nóng)民（1＜N＜=5000）擠N頭牛的工作時(shí)間列表，計(jì)算出最長(zhǎng)有人在擠牛奶的時(shí)間段與最長(zhǎng)的無(wú)人擠牛奶的時(shí)間段。
如圖為兩組不同數(shù)據(jù)程序運(yùn)行后界面；
 
請(qǐng)?jiān)跈M線處填入相應(yīng)的代碼，使程序功能 完善。
Dim a（1 To 100）As Integer'存放農(nóng)民 擠牛奶開(kāi)始時(shí)刻
Dim b（1 To 100）As Integer'存放農(nóng)民擠牛奶結(jié)束時(shí)刻
Dim n As Integer'存放農(nóng)民人數(shù)
Private Sub Form_Load （　?。?br />‘獲取農(nóng)民的人數(shù)與各個(gè)農(nóng)民開(kāi)始擠牛奶與結(jié)束擠牛奶的時(shí)間，并在list1中輸出‘相應(yīng)的代碼略
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=“最長(zhǎng)擠牛奶時(shí)間為：“+Str（ymax）+“時(shí)刻“
Label3．Caption=“最長(zhǎng)無(wú)人擠牛奶時(shí)間為：“+Str（nmax）+“時(shí)刻“
End Sub