Private Sub Command1_Click()

    Dim x As Integer

    x=Val(Text1．Text)

    Label1．Caption=Str(x) & prime(x，2)

End Sud   

Function prime(n A Integer m A Integer)As String

    If n=m Then

        prime=“是素数。”

    ElseIf n<2 Or n Mod m=0 Then

        prime=“不是素数。”

    Else

    prime=prime(n，m+1)

End If

End Function

在文本框Text1中输入的值是123，并执行程序后，自定义函数prime( )被执行的次数是（  ）

Do While i <= 5

If i = 1 Or a(i - 1) <= a(i) Then i = i + 1

Else

t = a(i): a(i) = a(i - 1): a(i - 1) = t i = i - 1

End If Loop

数组元素a(0)到a(8)的初始值依次为“0,4,7,3,5,1,8,6,2”。执行该程序段后，数组元素a(1)到a(8)的值分别是

Dim a(1 to 1000)as long, n as integer

n=Val(Text1.Text)

a(1)= 1:a(2)= 1

For i=3 to n

  a(i)= a(i-1)+a(i-2)

Next i

Label1.Caption=“斐波那契的第”&Str(n)&“是”&a(n)

该程序用到了下列哪一个算法（  ）

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

F(1)=3

F(n)=F(n-1)*2

def f(a , n):

    n=n-1

    if n=0:

        return a

    else:

        return f（a-1, n）+f（a+1, n）

print（f（5, 3））

程序运行后，输出的结果是（   ）