实现上述功能的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程序如下，请回答下列问题：

解决此问题可采用自底至顶分析的方法。如图a所示的数塔中，先从第3层开始分析：如果路径经过第3层的第1个数字12，那么从12到尾结点的路径上数字之和的最大值是当前结点值加上该结点左下方、右下方结点中的较大值，记作f（3，1）=12+141同理，f(3，2)=7+15、f(3，3)=26+15：再分析第2层，计算f(2，1)、f(2，2)：最后计算出第1层f(1，1)，即为所求结果。

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

Dim a(1 To 50) As Integer

Private sub Command1_Click()

    Dim i As Integer

    k=0: i=3

    Do While i<= 100

        If Not prime(i) Then

            k=k+1

        End If

        i=i+2

    Loop

    For i=2 To k

        If         Then

            List1 AddItem Str(a(i-1))+"和"+ Str(a(i))

        End if

    Next i

End Sub

Function prime (x As Integer)As Boolean

    prime=False

    For i=2 To Int(sar(x))

        If x Mod i=0 Then

            prime=True

            Exit for

        End If

    Next i

End Function

利用海伦公式求解三角形面积。已知a，b，c为三角形的三条边长，p为三角形的半周长，即p＝（a＋b＋c）/2，计算此三角形面积s的海伦公式为：S＝。

def hl（a, b, c）：   #定义求三角形面积的函数

    p＝{#blank#}1{#/blank#}

    s＝{#blank#}2{#/blank#}   #计算三角形面积

    return {#blank#}3{#/blank#}   #返回面积的值

a, b, c＝3, 4, 5   #边长依次赋值

print（"此三角形的面积S为：", hl（a, b, c））