图中“鸽子”图层第1帧至第15帧的补间动画实现“鸽子”从舞台右侧飞入舞台中央的动画，第45帧至第60帧的补间动画实现“鸽子”从舞台中央飞出舞台左侧的动画，则“鸽子”停留在舞台中央的时间约为秒。

Private Sub Command1_Click( )

Dims As String, c As String，d As String

Dim n As Integer, b1 As Integer, b2 As Integer, v As Integer, i As Integer

s=Text1.Text：n=Len（s）：i=1

Do While i<=n

    c=Mid（s，i，2）

    If c="00"Then

      d="东"

    ElseIfc="01"Then

      d=“南"

    ElseIf c="10" Then

      d="西（vi）"

    Else

      d="北"

    End If

    b1=Val（Mid（s, i+2, 1））

    b2=Val（Mid（s ,i+3, 1））

    v=   ①  

    List1.AddItemd+""+Str（v）

       ②  

Loop

End Sub

① ② 

Const n = 9

Dim a(1 To n) As Integer,i As Integer, j As Integer

Private Sub Form_Load()

  Dim s As String, k As Integer

  a(1) = 9: a(2) = 13: a(3) = 11: a(4) = 3: a(5) = 20

  a(6) = 6: a(7) = 18: a(8) = 15: a(9) = 8

  For i = n To 2 Step -1

    k = i

    For j =  

      If a(j) < a(k) Then t = a(j): a(j) = a(k): a(k) = t

    Next j

            '③改错

  Next i

  Label1.Caption = s End Sub

Private Sub Command1_Click()

Dim L As Integer, R As Integer, m As Integer, key As Integer

  key = Val(Text1.Text)

  For i = 1 To n - 1

    L = 1: R = n

    Do While L <= R

      m = (L + R) \ 2

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

        Label2.Caption = Str(a(i)) & Str(a(m))

        Exit For

      ElseIf   Then

        L = m + 1

      Else

        R = m - 1

      End If

    Loop

  Next i

  If L > R Then Label2.Caption = "没有找到数对"

End Sub