Function f(n As Integer)As Long

    Text1．Text=Trim(Str(n))+Text1．Text             ‘函数Trim的作用是去掉字串首尾空格

    If n=1 Then

       f=1

    Else

       f=3*f(n＼2)

    End If

  End Function

  Private Sub Command1_Click()

    Text1．Text=“”

    Text1．Text=Trim(Str(f(8)))+Text1．Text

  End Sub

单击按钮Command1后，文本框Text1中显示的值是（  ）

  Private Sub Command1_Click()

    Dim k As Integer，a As Integer，b As Integer

    a=Val(Text1．Text)

    b=Val(Text2．Text)

    Label1．Caption=trans(a，b)

  End Sub

  Function trans(m As Integer，n As Integer)As String

    If m<>0 Then

       r=m Mod n

       trans=trans(m＼n，n)+Str(r)

    Else

      trans=0

     End If

    End Function

程序运行时，在文本框Text1和Text2中分别输入11和2，则Label1中的输出结果是（  ）

Private Sub Command1_Click()

  Dim y As Long

  Text1.Text = ""

  y = f(3)

  Label1.Caption = Str(y)

End Sub

Function f(n As Integer) As Long

    Text1.Text = Text1.Text + Str(n)

    If n <= 1 Then

       f = 1

    Else

       f = f(n - 1) + 2

    End If

End Function

Dim i As Integer, sum As Integer

Dim a(1 To 6) As Integer, b(1 To 6) As Integer

sum = 0

a(6) = 18: a(5) = 7: b(6) = 14: b(5) = 16

For i = 4 To 1 Step -1

 a(i) = a(i + 2) - a(i + 1)

 b(i) = b(i + 2) - a(i)

 If b(i) Mod 3 = 0 Then sum = sum + b(i)

Next i

Text1.Text = Str(sum)

该程序段运行后，文本框Text1中显示的内容是（  ）

Dim a( 1 To 10) As Integer

Function Search(L As Integer， R As Integer)

As Integer

     M=(L+R)＼2

     If a(M) <a(M-1) And a(M) >a(M+1) Then

     ①

     ElseIf a(M) >a(Ｍ-1) And a(M) >a(Ｍ+1) Then

     ②

     ElseIf a(M) >a(Ｍ-1) And a(M) <a(M+1) Then

     ③

     End If

End Function

Private Sub Command 1 click()

     Label 1.caption=““峰顶”值是：” +Str(Search (1，10))

End Sub

上述程序中划线处可选语句为：

①Search=Search(M+1，R)

②Search=Search(L，M-1)

③Search=a(M)

则①②③处的语句依次是（  ）