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

程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是（   ）

  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中显示的值是（  ）

Dim a(1 to 1000)as long, n as integer

n=Val(Text1.Text)

a(1)= 1:a(2)= 1

For i=3 to n

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

Next i

Label1.Caption=“斐波那契的第”&Str(n)&“是”&a(n)

该程序用到了下列哪一个算法（  ）

Function fg(n as Integer)As Integer

 If n=1 fg=1

 If n=2 fg=2

 If n>=3 fg=fg(n-1)+fg(n-2)

End Function

请问走完这8阶楼梯的走法有（  ）

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)

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