Dim n As Integer     ‘存储随机数的个数

Dim f(1 To 100) As Boolean     ‘f (i)为true时表示随机整数i已经产生过

Dim a(1 To 100) As Integer     ‘依次存放升序排序后的n个随机数

Private Sub Command1_Click()     ‘命令按钮“产生随机数并升序排列”的单击事件

Dim i As Integer

Randomize

For i=1 To 100

 f(i)=False

Next i

n=Val(Text1. Text)

For i=1 To n

 t=Int(Rnd * 100+1)

 Do While f(i)=True

  t=Int (Rnd * 100+1)

 Loop

 {#blank#}1{#/blank#}

Next i

j=0

For i=1 To 100     ‘实现排序并输出

 If f(i)=True Then

  {#blank#}2{#/blank#}

  a(j)=i

  List1.AddItem Str(i)

 End If

Next i

End Sub

Private Sub Command2_Click()     ‘命令按钮“查找”的单击事件

Dim key As Integer

key=Val(Text2. Text)

If key <=a(1) Then Label3. Caption=Str(a(1)) : Exit Sub

If key >=a(n) Then Label3. Caption=Str(a(n)) : Exit Sub

L=1: R=n

Do While L <=R     ‘找到与key较为接近的两个数a(R)和a(L)

 m=(L+R) \2

 If key <=a(m) Then

  R=m-1

 Else

  L=m+1

 End If

Loop

If{#blank#}3{#/blank#}Then      ‘在a(R)和a(L)中选出更接近key的数

 Label3. Caption=Str(a(R))

Else

 Label3. Caption=Str(a(L))

End If

End Sub

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”，执行该程序段后，下列说法正确的是（  ）

已知数据逐行存储在数组a中，在杨氏矩阵数组中查找某数字是否存在的VB程序段如下：

cz = False : i = 1 : j = n

Do While j >= 1 And i <= n

    If key < a(s) Then

          ⑵ 

    ElseIf key > a(s) Then

          ⑶ 

    Else

      cz = True:Exit Do

    End If

Loop

方框中的代码由以下三部分组成：

①j = j - 1

②s = (i - 1) * n + j

③i = i + 1

代码顺序正确的选项是（  ）