①检查产生号码是否重复：把产生的中奖号码放在数组a中，新产生的号码与已经产生的号码进行一一对比，如果找到相等的数，则重新产生新号码。

②找到新产生号码存放的数组下标：从下标为1的数组元素开始，新号码（第i个号码）分别与他们进行一一比较，找到第一个比新号码大的数，该数所在的下标就是新号码应存放的下标。如果在已经产生的数中没有找到比新号码大的数，则新号码应存放在下标为i的数组元素中。下表以产生第5个号码为例，如果产生的号码是150，第一个比他大的数是a(2)，下标为2的数组元素应存放新号码；如果产生的号码是300，则新号码应存放在下标为5的数组元素中。

③移动数组元素到新的位置：如果在已经产生的号码中找到比新号码大的数，从上一个产生的号码开始，到新号码应存放的数组元素，依次把他们向后面移动。以②中产生150为例，从a(4)开始，让a(5)的值等于a(4)，a(4)的值等于a(3)，依次类推，直到新号码应存放的数组元素a(2)为止。

④将新产生的号码放在相应的数组元素中。

程序运行的界面如图所示，实现上述功能的VB程序代码如下：

Dim a(10) As Single

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim temp As Single, k As Integer ‘temp产生随机数，k随机数存放数组元素的下标

    Randomize

    a(1) = Int(Rnd() * 900 + 100)

    For i = 2 To 10

        temp = Int(Rnd() * 900 + 100)

        If  seach(temp, i - 1)= True  Then

            i = i – 1

        Else

            For j = i - 1 To k Step -1

               a(j + 1) = a(j)

            Next j

                     ①        

      End If

    Next i

    List1.Clear

    For i = 1 To 10

       List1.AddItem Str(a(i))

    Next i

End Sub

‘函数实现在数组a中，从下标为1的数组元素到下标为t数组元素，查找有无pp的数值

Function seach(pp As Single, t As Integer) As Boolean

    Dim i As Integer

    seach = False

    For i = 1 To t

        If       ②          Then seach = True : Exit For

    Next i

End Function

i = 1: j = 7: x = 55

Do While i <= j

     m = (i + j) \ 2

     If a(m) = x Then Exit Do

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

Loop

经过上述代码查找后，下列表达式正确的是(   )

    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”，下列说法错误的是（  ）

Dim n As Integer, i As Integer, left As Integer, right As Integer, m As Integer

Dim a(1 To 10) As String, t As String, key As String n = 6

a(1) = "35": a(2) = "20": a(3) = "18": a(4) = "8": a(5) = "274": a(6) = "47" For i = 1 To n - 1

For j = n To i + 1 Step -1

If a(i) < a(j) Then

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Next i

key = Text1.Text

left = 1: right = n

Do While left <= right

m = (left + right) \ 2

If a(m) = key Then Exit Do

If a(m) < key Then right = m - 1 Else left = m + 1

Loop

若在文本框 Text1 中输入“212”，则程序运行结束后，m 的值为（  ）

Const n = 100

Dim a(n) As Integer

Private Sub Form_Load()

′产生n个2位正整数，并显示在文本框Text1中，代码略

End Sub

Private Sub Command1_Click( )

    Dim i As Integer, j As Integer, left As Integer

    Dim right As Integer, m As Integer, t As Integer

    i = n-1

    Do While i > = 1

        ________

        right = n

        t = a(i)

        Do While left < = right

            m = Int((left + right)/2)

            If a(m) = t Then right = m: Exit Do

            If a(m) < t Then

                left = m + 1

            Else

                right = m-1

            End If

        Loop

        For j = i To right-1

            a(j) = a(j + 1)

        Next j

        ________________

        i = i-1

        s = “”

        For j = 1 To n

            s = s + Str(a(j))

        Next j

        List1.AddItem s

    Loop

End Sub