根据算法将下列程序补充完整。

Private Sub Command1_Click()

  Dim S As String，ch As String

  Dim ch2 AS String，sum As Double

  Dim n As Integer，i As Integer

  s=Text1．Text

    ①  

  i=1：sum=0

  Do While i<=n

      ch=Mid(s，i，1)

      If ch>=“0”And ch<=“9”Then

        j=i

        ch2=Mid(s，j，1)

        Do While ch2>=“0”And ch2<=“9”

          j=j+1

         ch2=Mid(s，j，1)

        Loop

       sum=sum+    ②   

       i=j

      EndIf

      i=i+1

  Loop

    Label3．Caption=Str(sum)

End Sub

合并规则如下：

⑴当字符串1的长度大于字符串2的长度时，将字符串2中的各个字符从左侧依次插入到字符串1中的各字符后方。例如字符串1为“abcdef”，字符串2为“123”时，合并后的字符串为“a1b2c3def”。

⑵当字符串2的长度大于等于字符串1的长度时，将字符串1中的各个字符从右侧依次插入到字符串2中的各个字符后方。例如字符串1为“abcd”，字符串2为“12345”时，合并后的字符串为“12d3c4b5a”。

程序运行界面如图所示。

从对照表中找出与编号对应的字符完成加密，如下表显示了数字“2018”的加密过程：

小张按照上述原理，设计了一个解密的VB程序，功能如下:单击“解密”按钮Command1,将文本框Text1中的密文(字符数不超过11个)进行解密，并将解密后的明文在文本框Text2中输出。程序运行效果如图a所示。

Private Sub Command1_Click()

Label1.Caption = sj  ‘计算机随机产生一个值

Label2.Caption = Command1.Caption

If cp(Label1.Caption, Label2.Caption) Then ‘判断胜负

    {#blank#}1{#/blank#} = "乙方负"

Else

    Label3.Caption = "乙方胜"

End If

End Sub

Function sj() As String '随机生成石头、剪刀、布

   i = {#blank#}2{#/blank#}  ‘随机生成1~3任一整数

   If i = 1 Then sj = "石头"

   If i = 2 Then sj = "剪刀"

   If i = 3 Then sj = "布"

End Function

图1

图2

s=“491053”

For i=1 To 3

n=Len(s)

k=1

For j=2 To n

If Mid(s， k， 1) >=Mid(s， j， 1) Then

K=j

Else

Exit For .Exit For表示退出循环

End If

Next j

s= Mid(s， 1， k-1) + Mid(s， k+ 1，n-k)

Next i

Label1.Caption =s

执行该程序段后，标签Label1中显示的值是（  ）