Function f(n As Integer) As Integer

  If n <= 1 Then

    f = 1

  Else

    f = n + f(n - 1)

  End If

End Function

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

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