現(xiàn)A港口有n（編號為1到n）個(gè)貨物，需要在d天內(nèi)運(yùn)送到B港口，要求按照貨物編號從小到大進(jìn)行運(yùn)送，求運(yùn)送貨物的貨船的最低載重量。
現(xiàn)有6個(gè)貨物，依次編號為1-6，其重量如下表所示。

編號	1	2	3	4	5	6
重量	9	1	5	13	9	4

若要求在3天內(nèi)完成，則貨船最低載重量為15。其中第一天運(yùn)送9、1、5；第二天運(yùn)送13；第三天運(yùn)送9、4。
編寫VB程序，實(shí)現(xiàn)上述功能。運(yùn)行程序，在文本框Text1中輸入各貨物重量（以逗號分隔），在文本框Text2中輸入要求天數(shù)d,單擊命令按鈕后，在標(biāo)簽Label3中顯示貨船最低載重量。程序運(yùn)行界面如圖所示。
請回答下列問題：
（1）觀察代碼可知，該程序命令按鈕的對象名為

Boat

Boat

。
（2）請?jiān)跈M線處①②③填入合適的代碼。
（3）程序中加框處代碼有誤，請修改。
Dim weight（1 To 100）As Integer
Dim t As Integer
Private Sub Boat_Click （　?。?br />Dim s As String
Dim d As Integer
Dim max,sum As Integer
Dim L，R As Integer
Dim m As Integer
s=Text1.Text
d=Val（Text2.Text）
t=1
'將貨物重量存到weight數(shù)組
For i=1 To Len（s）
c=Mid（s,i,1）
If c=“，“Then t=t+1 Else①

weight（t）=weight（t）*10+Val（c）

weight（t）=weight（t）*10+Val（c）

Next i
'求貨物最大重量和總重量
max=0
For i=1 To t-1
If weight（i）＞max Then max=weight（i）
②

sum=sum+weight（i）

sum=sum+weight（i）

Next i
L=max：R=sum
Do While L＜R
m=（L+R）\2
If③

days（m）＜=d

days（m）＜=d

Then R=m Else L=m+1
Loop
Label1.Caption=“貨船最低載重量為：“+Str（L）
End Sub
Function days（m As Integer）As Integer
Dim temp As Integer
Dim c As Integer
c=1
For i=1 To t-1
temp=temp+weight（i）
If temp＞m Then
temp=0
c=c+1
End If
Next i
days=c
End Function