学进去

校服烘干。五校联考要求学生统一穿校服参加，但是不幸的是，考试前所有考生的校服全都打湿了。一件衣服在自然条件下用一秒的时间可以晒干a点湿度。现在学校里有且仅有一台烘衣机，且目前烘衣机全部断货（即无法购入新机器）使用用一秒烘衣机可以让一件衣服额外烘干b点湿度（一秒晒干a+b湿度），但在同一时间内只能烘一件衣服。现在有n件衣服，第i衣服的湿度为w(i)（保证互不相同），要你求出弄干所有衣服的最少时间（湿度为0为干）。编写VB程序，实现上述功能。运行程序，显示窗体From1，在文本框Text1输入衣服总数n，在文本框Text2中输入a，在文本框Text3中输入b，在文本框Text4中输入各件衣服的湿度（共n个数据，数据与数据使用空格隔开），点击命令按钮Command1后，在标签Label1中显示弄干所有衣服的最少时间。程序运行界面如图所示。请回答下列问题：

（1）若要使程序运行时，命令按钮Command1上显示为“计算”，可以在_____________事件处理过程中添加语句Command1．Caption="计算"。（单选，填字母：
A．Form_Load/B．Form1_Load/C．Command1_Click/D．Form1_Start）
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
（3）程序中加框处代码有错，请改正。
Const maxn = 500005
Dim n As Long， a As Long， b As Long
Dim f(1 To maxn) As Long
Dim i As Long， tby As Long
Private Sub Command1_Click()
       tby = 1
       n = Val(Text1.Text) : a = Val(Text2.Text) : b = Val(Text3.Text)
       For i = 1 To n
             f(i) = Getin()
       Next i
       Dim l As Long， r As Long， m As Long
       l = 0: r = n
       Do While l <= r
             m = (l + r) / 2
             If ______ Then
                    r = m - 1
             Else
                    l = m + 1
             End If
       Loop
       Label1.Caption = Str(r + 1)
End Sub
Function check(x As Long)
       Dim y As Long
       y = x
       For i = 1 To n
             Dim tmp As Long
             ________
             If tmp > 0 Then ______
             If y < 0 Then
                    check = True
                    Exit Function
             End If
       Next i
       check = False
End Function
Function Getin() As Long
       Dim aaa As String
       aaa = Mid(Text4.Text， tby， 1)
       If aaa = " " Then tby = tby + 1
       aaa = Mid(Text4.Text， tby， 1)
       Dim bbb As Long
       bbb = 0
       Do While aaa <> " " And tby <= Len(Text4.Text)
             bbb = bbb * 10 + Val(aaa) : tby = tby + 1
             aaa = Mid(Text4.Text， tby， 1)
       Loop
       Getin = bbb
End Function