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

Dim a(4) As Integer

Private Sub Command1_Click()

 Dim s As String

a(1)=10:a(2)=30:a(3)=20:a(4)=40

 s=doit(4)

 Label1.Caption=s

End Sub

Function doit(k As Integer) As String

 If k=1 Then

  doit=Str(a(1))

  Else

  doit=doit(k-1) & Str(a(k))

 End If

End Function

程序运行后,标签Label1中显示的内容是（  ）

Function s(n As Integer) As Integer

 If n=1 Then

   s=1

 Else

   s=s(n-1)+n

 End If

End Function

Private Sub Form_Click()

 Dim x As Integer

 x=s(4)

 Print x

End Sub

程序运行时,单击窗体后,变量x的值为（  ）

从前有座山，山里有座庙，庙里有个老和尚在给小和尚讲故事：“从前有座山，山里有座庙，庙里有个老和尚在给小和尚讲故事：‘从前有座山，山里有座庙，庙里有个老和尚给小和尚讲故事……’”

    def fibs(n):

      if n==1 or n==2:

        return ____①____

      else:

        return _____②_____

    m=int(input("请输入一个整数："))

    for i in range(1,m+1):

      print(___③___ ,end=",")

已知斐波拉契数列1，1，2，3，5，8，1321……其定义如下：

f（a）＝

求斐波拉奖数列第n项的值。

def f(n)：   #定义递归函数

    if n＝＝1 {#blank#}1{#/blank#} n＝＝2:

        return 1

    else：

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

n＝int(input("请输入正整数n的值："))

print({#blank#}3{#/blank#})   #打印结果