Dim a(1 To 10)As Integer

    Dim i As Integer，j As Integer，m As Integer，flag As Boolean

    Dim key As Integer，n As Integer，C As Integer，d As Integer

    i=1：J=10：m=0：flag=False

    key=Val(Text1．Text)

    Do While i<=J And Not flag

        If key<a(i)Or key>a(j)Then n=-1：Exit Do  未找到退出

        If a(i) ＜＞a(j) Then

            c=key-a(i)：d=a(j)一a(i)

            m=i+Int(c*(j-i)／d)

        Else

            m=i

        End If

        If key=a(m)Then flag=True：n=m

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

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

    Loop

    If flag=False Then n=-1

其中数组元素a(1)到a(10)分别为“15，25，37，40，63，70，87，90，92，96”，下列说法错误的是（  ）

For i = 1 To 6

a(i) = Int(Rnd * 10) + 1

Next i

For i = 2 To 6

If i Mod 2 = 0 And a(i)>a(i-1) Then

t=a(i)：a(i)=a(i-1)：a(i-1)=t

Else

a(i)=a(i)-1

End If

Next i

执行程序后，数组元素a(1)到a(6)的值可能是(  )