Dim d(1 to 10) as Integer

n=10 : count = 0

For i = 1 To n

count = count + 1

If               Then

Label1.Caption = “顺序查找在数组的第” & i & “位找到了” & v

Exit For

End If

Next i

If                Then

Label1.Caption = “顺序查找没有找到” & v

End If

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

i=1: j=7: s=“”:flag=False

Key=Int(Rnd()* 50)

Do While i <=j 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

 s=s+Str(a(m))

Loop

Text1.Text=s

数组中a(1)到a(7)的值依次为“23，33，45，56，68，77，89”，则Text1 中显示的内容不可能是（  ）

i=1：j=12：k=0：s=””

key= Va1(TextI Text)： c=N： flag= False

Do While i<= j And flag= False

m=(i1+j+1)\2：k=k+1

If key= a(m) Then c=Y： flag=True

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

s=s& Str(a(m))

Loop

Text2 Text s： Text3 Text= c

数组a(1)到a(12)的值依次为“991．85．76，68．61，53，42．34，27，20，13”，执行该程序段后，下列说法正确的是（  ）

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，下列说法正确的是（  ）

i=1: j=6: n=0: f=False

key=Val(Text1.Text)

Do While i<=j and Not f

    n=n+1

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

    If key=a(m)then f=True

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

Loop

数组元素a(1)到a(6)的值依次为“12，19，27，31，46，55”，文本框Text 1中输入“31”后运行该程序，则以上程序段运行结束后，下列说法不正确的是（   ）