①检查产生号码是否重复：把产生的中奖号码放在数组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

'顺序查找代码，查找次数用变量p表示

For i = 1 To 10

 If a(i) = Key Then

p = i

 End If

Next i

'二分查找代码，查找次数用变量q表示

i=1 ：j=10 ：find=Fasle

Do While i<=j And find=fasle

x =（i＋j）\2

q = q＋1

If a(x)=Key Then find=True

If a(x)>Key Then j=x－1

If a(x)<Key Then i=x＋1

Loop

若变量key的值为13，程序运行后，则变量p和q的值分别是（  ）

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 中显示的内容不可能是（  ）

a(1)=1：a(2)=2：a(3)=3：a(4)=3：a(5)=1

n=5：k=3

L=3：R=10     ‘L值可以为数组元素最大值，R可以为数组所有元素和

Do While L+1<R

    m=(L+R)\2

    t=0：s=0

    For i=1 To n

        If t+a(i)>=m Then

            s=s+1

            t =a(i)

        Else

            t =t+a(i)

        End If

    Next i

    If t>0 then s=s+1

    If s<=k Then①  Else  ②

Loop

Label1.Caption=“最小值为”&Str(L)

要使程序实现上述算法思想，则代码中①②处应为（  ）

key＝Val(Text1.Text)

s＝“ ”

i ＝ 1 : j ＝ 10

Do While i ＜＝ j

  m ＝(i＋j)\2

  s ＝ s＋ Str(a(m))

  If a(m)＞ key Then j ＝ m -1 Else i ＝ m ＋1

Loop

Text2.Text ＝ s

数组元素a(1)到a(10)的值依次为“2，3，5，8，9，10，13，17，19，20”。在文本框Text1中输入待查找的数，执行该程序段，则文本框text2中显示的内容可能的是 （  ）