实现上述功能的VB程序如下，但加框处代码有错，请改正。

Dim n As Integer, cy(30000) As String

Private Sub Form_Load()

'从数据库中读入n条成语，并存数组cy中

'代码略

End Sub

Private Sub Command1_Click()

Dim s As String, i As Integer, j As Integer

Dim m As Integer, flag As, Boolean

Dim s1 As Siring, s2 As String

s=Text1.Text

flag=True

Do While flag

      '①

i=1

j=n

Do While<= j

m= Int((i+j)/2)

s2=Mid(cy(m), 1, 1)

If s2=s1 Then

Exit Do

ElseIf s2<s1 Then

i=m+1

Else

j=m-1

End If

Loop

If  Then      '②

List1.AddItem s+ "— —"+cy(m)

s=cy(m)

Else

List1.AddItem "接不下去了"

flag=False

End If

Loop

End Sub

① ② 

往池中倒入一定的水量V （每1单位水量刚好填充一个格子， 格子大小为1×1），现要求倒入水后，每一列水位高度一致。

如图b所示，往池中倒入V=11的水量，则水位高度为3.5（解释：第一层没有空白单位，首先填满第2层的3个单位，然后填满第3层的5个单位，此时还剩氽11-3-5-3个单位的水量，第4层有6个单位的空白，不足以填满，此时3/6=0.5，故总填充高度为3+0.5=3.5）。

为了解决该问题，小吴设计了二分算法：通过枚举水位高度，计算所儒的水量与实际输入水量比较，如果所需水量大于实际水量（精确到0.01），则需降低水位高度，否则增加水位高度，直到得到正确结果。程序功能：运行程序时，在文本框Text1中输入倒入的水量V，在文本框Text2中输出能达到的水位高度（保留1位小数输出）。程序运行界面如图c所示。

依据对分查找思想，设计一个在数组a中查找数据key的程序，实现该功能的VB程序如下，请回答下列问题：

Private Sub Search_Click()

    Const n = 10

    Dim a(1 To n) As Integer

Dim i As Integer， j As Integer， m As Integer， f As Boolean， key As Integer

‘读取一组正整数，按上述规则存入数组a中。代码略

key = Val (Text1.Text)

If key Mod 2=1 Then i=1 Else i=2

j =n：f= False

Do While i<=j And Not f

    If key Mod 2=0 Then

        m=(i+j)\2-(i+j)\2Mod2

    Else

        m=    ①  

    End If

    If key = a(m) Then

        f = True

    ElseIf  Then

        j=m-2

    Else

        i=   ②  

    End If

Loop

If f Then Label1.Caption = Str(m) Else Label1.Caption =“不存在”

End Sub