现A港口有n（编号为1到n）个货物，需要在d天内运送到B港口，要求按照货物编号从小到大进行运送，求运送货物的货船的最低载重量。
现有6个货物，依次编号为1-6，其重量如下表所示。

编号	1	2	3	4	5	6
重量	9	1	5	13	9	4

若要求在3天内完成，则货船最低载重量为15。其中第一天运送9、1、5；第二天运送13；第三天运送9、4。
编写VB程序，实现上述功能。运行程序，在文本框Text1中输入各货物重量（以逗号分隔），在文本框Text2中输入要求天数d,单击命令按钮后，在标签Label3中显示货船最低载重量。程序运行界面如图所示。
请回答下列问题：
（1）观察代码可知，该程序命令按钮的对象名为

Boat

Boat

。
（2）请在横线处①②③填入合适的代码。
（3）程序中加框处代码有误，请修改。
Dim weight（1 To 100）As Integer
Dim t As Integer
Private Sub Boat_Click （　　）
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数组
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