实现上述功能的VB程序如下。请在画线处填入适当的语句和代码，把程序补充完整。

Dim w As Integer         ‘变量w用于存储每次最大数字字符的位置

Private Sub Command1_Click()

  Dim t As String

  Dim i As Integer，j As Integer

  Dim max As Integer，S As Integer

  t=Text1．Text

  s=0

  For i=3 To 1 Step-1

    max=0

    For j=1 To Len(t)

       If Val(Mid(t，j，1))>max Then

       max=Val(Mid(t，j，1))

    ①  

      End If

    Next j

    s=s+    ②   

    t=delmax(t)

  Next i

  Text2．Text=Str(s)

End Sub

‘自定义函数功能是去除当前最大数字字符

Function delmax(t As String)As String

  delmax=    ③  

End Function

  Function delStr(S As String，m As Integer)As String

    Dim n As Integer：n=Len(S)

    If m<1 Or m>n Then delStr=“输入位置有误!”

    If m=1 Then delStr=Mid(s，2，n-1)

    If m<n Then delStr=Mid(s，1，m-1)+Mid(s，m+1，n-m)

    If m=n Then delStr=Mid(s，1，n-1)

  End Function

  Private Sub Command1_Click()

    Dim S As String：Dim i As Integer

    S=Text1．Text

    For i=1 To 10 Step 2

      S=delStr(S，i)

    Next i

  Text2.Text=S

  End Sub

文本框Text1中输入Happybirthday，执行该程序段，文本框Text2中显示的是（  ）

明文：HelloWorld

密钥：abcabcabca

密文：HfnlpYosnd

依据上述算法描述设计了如下VB程序。请回答下列问题：

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

请回答下列问题：