Private Sub Command1_Click()

Text1.Text = f(3)

End Sub

Function f(x As Integer) As String

If x = 1 Then  f = 1  Else  f = f(x - 1) + 2

End Function

运行程序并点击按钮Command1后，文本框Text1中显示的内容是（   ）

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阶楼梯的走法有（  ）

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的值为（  ）

Function f(i As Integer)

    If i=1 Then

      f=2

    Else

      f=2 * 10 ^ (i-1)+f(i-1)

    End If

End Function

Private Sub Command1_Click()

    Dim n As Integer, s As Integer, i As Integer

    n=Val(Text1.Text)

    s=0

    For i=1 To n

      s=s+f(i)

    Next i

    Label1.Caption=Str(s)

End Sub

若在Text1中输入5，则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中显示的内容是（  ）