Private Sub Command1_Click()

  Dim sjzs As Integer

  Dim rjzs As String

  sjzs = Val(Text1.Text)

  rjzs = ""

  Do While Int(sjzs / 2) > 0

    rjzs = Str(sjzs Mod 2) + rjzs

    sjzs = Int(sjzs / 2)

  Loop

  Label1.Caption = rjzs

End Sub

    a(1) = 1

    For i = 2 To 12

      a(i) = a(i - 1) + Int(Rnd * 2) + 1

    Next i

    Key = Val(Text1.Text)

    i = 1: j = 12: cnt = 1: flag = False

    Do While i <= j And flag = False

      cnt = cnt + 1

      m = (i + j + 1) \ 2

      If a(m) = Key Then

        flag = True

      ElseIf Key > a(m) Then

        i = m + 1

      Else

        j = m - 1

      End If

    Loop

程序运行后，下列说法正确的是（  ）