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