老張要準(zhǔn)備一道晚宴，需要上n個(gè)菜，為了省事他在n個(gè)不同的餐廳訂好了這些菜?，F(xiàn)在他需要盡快取回這些菜，對(duì)于每一道菜，有兩種取菜方式：
第1種：讓各店的外賣員送貨上門，對(duì)于第i個(gè)菜需要花費(fèi)a（i）的時(shí)間。
第2種：自己去餐廳取回家，每次出門僅能取回一道菜，對(duì)于第i個(gè)菜，從出門到回家整個(gè)過程需要花費(fèi)b（i）的時(shí)間。
每家餐廳都有各自的外賣員送菜，并且無論老張是否在家，他們都能把菜送到，為了節(jié)省時(shí)間，能由外賣員送的菜盡量由外賣員各自送達(dá)，現(xiàn)在需要知道最少花費(fèi)多少時(shí)間才能集齊所有的菜。
比如n=4，a（i）=（30，70，40，50），b（i）={20，10，20，30}，那么花費(fèi)最少的方案是第一個(gè)菜和第三個(gè)菜讓外賣員送，第二個(gè)菜和第四個(gè)菜老張自己取，一共需要40分鐘。
設(shè)計(jì)VB程序計(jì)算最少時(shí)間，界面如下圖。

實(shí)現(xiàn)上述功能的VB程序如下，回答以下問題：
（1）根據(jù)程序語句判斷對(duì)象Lab3屬于

B

B

類。
（單選，填字母：A.Form/B.Label/C.TextBox/D.CommandButton）
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
①

max=a（i）

max=a（i）

；
②

check（m）或check（m）=true

check（m）或check（m）=true

；
③

total+b（i）

total+b（i）

。
（3）程序中加框處代碼有錯(cuò)，請(qǐng)改正。
改正：

total＜=t

total＜=t

。
Const n=4
Dim a（1 To n）As Integer'n道菜由每家餐廳外賣員送達(dá)耗時(shí)
Dim b（1To n）As Integer'n道菜自取耗時(shí)
Private Sub Form_Load

（　?。?/div>

（　?。?/div>。
'產(chǎn)生外賣送貨各道菜耗時(shí)，并存儲(chǔ)到數(shù)組a中，并顯示，
'產(chǎn)生自取各道菜耗時(shí)，并存儲(chǔ)到數(shù)組b中，并顯示
'代碼略
End Sub
Private Sub Command1_Click

（　?。?/div>

（　?。?/div>
Dim i As Integer,max As Integer,ans As Integer
Dim left As Integer,right As Integer,m As Integer
For i=1 1 To n
If a（i）＞max Then ①

max=a（i）

max=a（i）

'外賣員送菜的最長(zhǎng)時(shí)間
Next i
left=1：right=max：ans=max.
m=（left+right）\2
If  ②

check（m）或check（m）=true

check（m）或check（m）=true

Then
ans=m：right=m-1
Else
left=m+1
End If
Loop
Lab3.Caption=“最快“+str（ans）+“分鐘“
End Sub
private Function check（t As Integer）As Boolean
Dim total As Integer
check=False
For i=1 To n
If a（i）＞t Then
total=③

total+b（i）

total+b（i）

'如果外賣來不及就自己取
End If
Next i
If  tital＞=t  Then  check=True
End Function