16．小藍(lán)設(shè)計(jì)了一個(gè)數(shù)字字符串的簡單加密解密小程序，該程序的加密規(guī)則是計(jì)算連續(xù)升序子串的長度，將該長度字符插入到相應(yīng)子串后面。例如：
輸入2350123456783，先將字符串拆成三段，分別是235，012345678，3要求每一段必須嚴(yán)格有序，如果無法實(shí)現(xiàn)連續(xù)升序，則單獨(dú)作為一個(gè)拆分。
| 原字符串 |
235 |
012345678 |
3 |
| 連續(xù)升序字符數(shù) |
3 |
9 |
1 |
| 密文 |
235 |
3 |
012345678 |
9 |
3 |
1 |
在文本框Text1中輸入原文，單擊“加密”按鈕，可在文本框Text2中輸出密文。
在文本框Text2中輸入密文，單擊“解密”按鈕，可在文本框Text3中輸出原文。
（1）程序運(yùn)行時(shí)，在文本框Text2中輸入“1233012345678910”，則在Text3中顯示的內(nèi)容為
。
（2）實(shí)現(xiàn)上述功能的VB代碼段如下，請(qǐng)?jiān)跈M線處填上合適代碼。
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
函數(shù)用以移除左邊的符號(hào)位空字符
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
