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

  Dim P As String，k As String，x As Integer

  Function f(a As Integer)As Boolean

    f=false

    If Mid(p，a，Len(k))=k Then f=True

  End Function

  Private Sub Command1_Click()

  Dim x As Integer，result As Strin9，flag As Boolean

    result=""

    p=Text1．Text

    k=Text2．Text

    For x=1 To Len(P)-Len(k)+1

         If Not f(x) Then

            result=result+Mid(p，x，1)

         Else

                              ‘（1）

         End If

    Next x

    Text3．Text=result+      ‘（2）

  End Sub

实现上述功能的VB代码如下：

Dim a(1 To 100) As Integer Private Sub Command1_Click()

Dim i As Integer, s As Integer, smax As Integer ‘用于随机生成数据，并将阵列按规则在列表框中输出，该部分功能的代码略。

smax = 0

For i = 1 To 100

If a(i) = 0 Then s = search(i) If s > smax Then smax = s

Next i

Label1.Caption = "最大面积的矩形，占" + Str(smax) + "个单位。" End Sub

Function search(i As Integer) As Integer

Dim x As Integer, x1 As Integer, xend As Integer Dim y As Integer, y1 As Integer

Dim s As Integer

x = (i - 1) Mod 10 + 1   '起始列号 y = (i - 1) \ 10 + 1    '起始行号 x1 = x

y1 = y xend = 10

search = 0

Do While y1 <= 10

If a((y1 - 1) * 10 + x) = 1 Then Exit Do   '判断 x1 = x

Do While x1 <= xend

If a((y1 - 1) * 10 + x1) = 1 Then

x1 = x1 – 1   '改错

Else

x1 = x1 + 1

End If Loop

y1 = y1 + 1

s = (x1 - x) * (       )   '填空 If s > search Then search = s

Loop

End Function

请回答下列问题：

Function fact(n As Integer) As String

If n = 1 Then

    fact = fact & 1

Else

    fact = fact(n \ 2) & n Mod 2

End If

End Function

Private Sub Command1_Click()

Dim x As String, i As Integer, r As Integer

x = Text1.Text

For i = 1 To Len(Text1.Text)

If Mid(x, i, 1) = "." Then Exit For Next i

r = Val(Mid(x, i + 1, Len(Text1.Text) - i)) Text2.Text = fact(r)

End Sub

在文本框Text1中输入2019.70，则执行程序段，在文本框Text2中显示的内容是（  ）

Function Search(m As Integer, pre As Integer) As Integer

Dim i As Integer

If m < 0 Then

Search = 0

ElseIf m = 0 Then

Search = 1

Else

For i = pre To m

Search = Search + Search(m - i, i) Next i

End If

End Function

Private Sub Command1_Click() Dim n As Integer

n = Val(Text1.Text) Label1.Caption = Search(n, 1)

End Sub

若在文本框 Text1 中输入“4”，则标签 Label1 中显示的内容为（  ）

方法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