编写一个验证哥德巴赫猜想的VB程序:程序运行时，在文本框Text1中输入一个大于或等于4的偶数，单击“验证”按钮Command1后，如果哥德巴赫猜想验证成功，则在文本框Text2中显示“Yes”，并在列表框List1中显示用两个素数表示该偶数的等式，否则显示“No”。程序运行效果如图所示。

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Function judge(x As Integer)As Boolean

 ‘函数judge的功能是判断整数x是不是素数，若是素数则返回True，否则返回False

 Dim j As Integer

 judge=True

 j=2

 Do While j<=x-1 And judge=True

If x Mod j=0 Then

judge=False

Else

j=j+1

End If

 Loop

End Function

Private Sub Command1_Click()

 Dim n As Integer, p As Integer, q As Integer, flag As Boolean

 n=Val(Text1.Text)

 p=1

 flag=False

 Do While  And p<n    ‘{#blank#}1{#/blank#}

 p=p+1

      ‘{#blank#}2{#/blank#}

If judge(p)And judge(q)Then

Text2.Text=“Yes”

flag=True

List1.AddItem Str(n)+“=”+Str(p)+“+”+Str(q)

  End If

 Loop

 If flag=False Then

Text2.Text=“No”

End Sub

例如：如图所示，有4个队8位队员，地上一排格子的数字依次为2、1、1、7、9、2、5、6。若某队甲队员站在第4个格子，则其分数为2+1+1+7=11；乙队员站在第7个格子，则其分数为5+6=11。两者相等，则该队获胜。

def f(k):

    if k<=3:

        print(k)

        return

    for i in range(1,4):

        f(k-i)

    return

执行语句f(6)，则f(3)被调用的次数为（   ）

方法1：设置左右两个索引，从两边往中间逐次判断。补充完整代码。

def fun_1(s):

L=0

R={#blank#}1{#/blank#}

    while {#blank#}2{#/blank#}:

        if s[L]!=s[R]:

            return False        #函数返回False并退出

        L=L+1

        {#blank#}3{#/blank#}

    return True                 #函数返回True并退出

方法2：只设置左边一个索引，利用对应关系获取右边索引位置。按提示要求补充完整代码。

def fun_2(s):

    n=len(s)

    for i in range({#blank#}4{#/blank#}):    #请写出最小的遍历区间值，即不可写n

        if {#blank#}5{#/blank#}:

            return False

return True

deff(x):

    if x==1:

        return 2

    else:

        return f(x- 1)**2

y=f(3)

print(y)

执行该程序段后，输出的结果是(  )

def fun（x, i）:

if x<i:

return i

elif x%i==0:

return x

else:

return fun（x-i, i+1）

执行语句k=fun（37, 3）后，k的值为（    ）