学进去

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

若要求在3天内完成，则货船最低载重量为15。其中第一天运送9、1、5；第二天运送13；第三天运送9、4。编写VB程序，实现上述功能。运行程序，在文本框Text1中输入各货物重量（以逗号分隔），在文本框Text2中输入要求天数d，单击命令按钮后，在标签Label3中显示货船最低载重量。程序运行界面如图所示。
请回答下列问题：
（1）观察代码可知，该程序命令按钮的对象名为________。
（2）请在划线处①②③填入合适的代码。
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 _____
Next i
'求货物最大重量和总重量
max = 0
For i = 1 To t - 1
If weight(i) > max Then max = weight(i)
___________
Next i
L = max: R = sum
Do While L < R
m = (L + R) \ 2
If ____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

c = c + 1
End If
Next i
days = c
End Function
（3）程序中加框处代码有误，请修改_________。