Private Sub Command1 click( )

  Dim a(1 to 3) as integer,k as integer,t as integer,s as integer

  a(1)=15: a(2)=36: a(3)=7

  s=0

  For k=2 to 3

if a(k)>a(1) then

  t=a(1):a(1)=a(k):a(k)=t

  s=s+1

End if

  Next k

  text1.text=str(a(1))

  text2.text=str(s)

End sub

Private Function f(x As Single, n As Integer) As Single

  If n ＝0 Then

    f ＝1

  Else

    If n Mod 2 ＝1 Then

      f＝x * f(x, n\2)

    Else

      f＝f(x, n\2) \x

    End If

  End If

End Function

Private Sub Command1_Click()

  Label1.Caption＝Str(f(4, 6))

End Sub

程序运行时，单击按钮Command1，标签Label1显示的内容是（  ）

Private Sub Command1_Click()

Dim x As Integer, m As Integer

m = 3

For x = 1 To 5

   If m > 3 Then m = m + 2 Else m = m - 1

Next x

Text1.Text = Str(m)

End Sub

Private Sub Command1_Click()

  Dim a(0 To 5) As Integer

  Dim i As Integer               '①

  a(0) = 1                       '②

  For i = 1 To 5

    a(i) = 2 * a(i - 1) + 1      '③

  Next i

  Text1.Text = Str(a(6))         '④

End Sub

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