小蓝设计了一个数字字符串的简单加密解密小程序，该程序的加密规则是计算连续升序子串的长度，将该长度字符插入到相应子串后面。例如：
输入2350123456783，先将字符串拆成三段，分别是235，012345678，3要求每一段必须严格有序，如果无法实现连续升序，则单独作为一个拆分。

原字符串	235		012345678		3
连续升序字符数	3		9		1
密文	235	3	012345678	9	3	1

在文本框Text1中输入原文，单击“加密”按钮，可在文本框Text2中输出密文。
在文本框Text2中输入密文，单击“解密”按钮，可在文本框Text3中输出原文。
（1）程序运行时，在文本框Text2中输入“1233012345678910”，则在Text3中显示的内容为

123012345678

123012345678

。
（2）实现上述功能的VB代码段如下，请在横线处填上合适代码。

Private Sub Command1_Click （　　）'
加密过程
Dim a（1 To 100）As String
Dim s1，s2 As String：Dim tmp As Integer
tmp=1：s1=Text1．Text
For i=1 To Len（s1）
a（i）=Mid（s1，i,1）
Next i
s2=a（1）
For i=2 To Len（s1）
If

①

①

 Then
s2=s2+a（i）：tmp=tmp+1
Else
s2=s2+LTrim（Str（tmp））'LTrim

（　　）

（　　）

函数用以移除左边的符号位空字符
s2=s2+a（i）

②

②

End If
Next i
s2=s2+LTrim（Str（tmp））：Text2．Text=s2
End Sub
Private Sub Command2_Click （　　）'解密过程
Dim b（0 To 100）As String
Dim k As String,t As Integer,n As Integer
Dim s As String,s3 As String,j As Integer
s=Text2．Text：n=Len（s）
For i=1 To n
b（i）=Mid（s,i,1）
Next i
t=n-1：k=Val（b（n））
Do While t＞0
If k＜＞0 Then
For j=1 To k

③

③

t=t-1
Next j
k=Val（b（t））
t=t-1
Else
k=10
t=t-1
End If
Loop
Text3．Text=s3
End Sub