行程编码（Rim-length Coding）是一种相对简单的压缩技术，是将一个相同字符的连续 串用一个串长和字符来代替。例如，有一个字符串“aaabccddddd”，经过行程编码压缩后 可以用“3a1b2c5d”来表示。小李编写了一个行程编码的 VB 程序，功能如下：在文本框 Text1 中输入原码，单击“压缩”按钮 Command1 后，在文本框 Text2 中显示压缩码。程序设计界 面和运行界面分别如图 a 和图 b 所示。
（1）在设计程序界面时，要使文本框 Text2 显示为空，可在其属性窗口中将

Text

Text

 属性的 属性值修改为空。
（2）实现上述功能的 VB 程序如下。请在横线处填入合适代码。
Private  Sub  Command1_Click （　　）
Dim i As Integer,count  As Integer,length  As Integer
Dim ch As String,key As  String,s As String s=Text1．Text
length=Len（s）
key=①

Mid（s,1，1）

Mid（s,1，1）

i=2：count=1
Do  While  i＜=length ch=Mid（s,i,1）If ch=key Then
count=count+1
Else
Text2．Text=Text2．Text+Str（count）+key
count=1key=ch
End  If
②

i=i+1

i=i+1

Loop
Text2．Text=Text2．Text+Str（count）+key'③
End Sub
（3）如果删除“③”所处的那一行代码，运行该程序，在文本框 Text1 中输入 aaabccddddd,单击“压缩”按钮，则文本框 Text2 中显示的内容为

3a1b2c

3a1b2c

。