Dim ID（ ） As String    '用于存放客户卡号

Dim total（ ） As Long      '用于存放积分数

Dim sc As Long                  'VIP客户人数

Dim jf As Long                  '积分数

Private Sub Command1_Click（ ）

  Dim k As String                '客户卡号

  Dim q As Long               '代金券额度

  Dim i As Long

  k = Text1.Text

  For i = 1 To sc     ’顺序查找

      If ID（i） = k Then

          jf = total（i）     

          cash（jf） = q               ’ ①

          Exit For

      End If

      Text2.Text = Str（jf）

      Label3.Caption = “您可换购的代金券总额为：”+ Str（q） + “元”

    Next i

  End If

End Sub

' cash函数用于计算VIP客户可换购的代金券额度

Function cash（jf As Long） As Long

  If jf >= 2000 And jf <= 20000 Then

       Cash = jf\2000*10

ElseIf jf > 20000 And jf <= 50000 Then

       Cash = jf\2000*11

ElseIf jf > 50000 And jf <= 100000 Then

       Cash = jf\2000*12

ElseIf jf > 100000 And jf <= 150000 Then

       Cash = jf\2000*13

 Else jf > 150000 Then         ’ ②

       Cash = jf\2000*14

End If

End Function

Private Sub Form_Load（）

   Dim conn As New ADODB.Connection, rs As New ADODB.Recordset

   Dim intSQL As Long

   conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\ customer.accdb"

    conn.Open

   intSQL = "SELECT score  FROM Integral" 

     Set rs.ActiveConnection = conn

     rs.CursorType = adOpenStatic

     rs.Open intSQL

     sc = 0

     Do While Not rs.EOF

       sc = sc + 1

       total（sc） = rs.Fields（"score"）

       rs.MoveNext

     Loop

rs.Close

     conn.Close

     Set rs = Nothing

     Set conn = Nothing

End Sub

依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。

Private Sub Command1_Click（）

    Const n = 6

    Dim a（1 To n）As Integer，flag As Boolean

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

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

    key = VaKText1. Text）

    i = 1

    j = （n + 1） \ 2

    flag = False

    Do While  And Not flag       ‘① 

        m = （i + j） \ 2

        If key = a（m） Then

            flag = True

        ElseIf key< a（m） Then

            j = m - 1

        Else

            i = m + 1

        End If

    Loop

    If Not flag And j > 0 Then

        m =    ‘②

        If key = a（m） Then flag = True

    End If

    If flag Then

        Text2. Text = Str（m）

    Else

        Text2. Text = "找不到"

    End If

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

key = Val(Text1.Text)

i = 0: j = 9:  s = 0

Do While i <= j

  m = Fix((i + j) \ 2 + 0.5)

  s = s + 1

  If key = a(m) Then

     Label1.Caption = Label1.Caption + "→" + Str(m)

     Exit Do  'Exit Do表示退出循环

  End If

  If key < a(m) Then j = m - 1 Else i = m + 1

  Label1.Caption = Label1.Caption + "→" + Str(m)

Loop

Label2.Caption = "历经" + CStr(s) + "步

n=0: i= 1:j-6

key = Val(Text1.Tex1)

Do While i<=j

  m=(i+j)\2

  n=n+1

  If key = d(m) Then Exit Do

  If key> d(m) Then j=m-1 Else i=m+ 1

Loop

d(1)到d(6)的值依次为"88，77，53，47，39，23"，并且输入key值为40，下列说法正确的是（  ）