有一种压缩算法，基本原理是：特殊字符+重复次数+字符．
比如有文本字符串：A A A A A B C C C C B C C C，编码后得到：B B 5A B B 4C B B 3C．编码串的最开始说明特殊字符B，以后B后面跟着的数字就表示出重复的次数．编程实现将从Text1输入的一个字符串，点压缩按钮后用上述方法压缩，压缩后的编码在Text2中输出，text3中输入特殊字符．压缩算法：
a）给压缩串添加开关的特殊字符
b）逐个判断输入字符串的字符（当前的字符与后一个比较），如果两个字符不同，则连到了压缩串中，如果有连续的重复字符则计数n+1
c）最后一组重复字符或单个字符再连到压缩串中．
•连入压缩串方法：单个的直接连入，有重复的连入特殊字符开头+数字+重复的字符

程序如下：
Private Sub Command1_Click （　　）
Dim src As String,t As String‘src保存输入的字符串
Dim desc As String‘desc保存压缩后的字符串
Dim c As String‘c保存特殊字符
Dim n As Integer‘n用来记连续重复字符个数
src=Text1．Text
c=Text3．Text
n=0
desc=①

C

C

For i=1To②

len（src）-1

len（src）-1

n=n+1
t=Mid（src,i,1）
If t＜＞③

mid（src,i+1，1）

mid（src,i+1，1）

 Then
desc=desc & zipstring（n,c,t）
n=0
End If
Next i
Text2．Text=desc & zipstring（n,c,④

mid（src,i,1）

mid（src,i,1）

）
End Sub
Private Function zipstring（n As Integer,c As String,sr As String） As String
If n＜=1Then
zipstring=sr
Else
zipstring=c & Trim（Str（n）） & sr
End If
End Function
①

C

C

②

len（src）-1

len（src）-1

③

mid（src,i+1，1）

mid（src,i+1，1）

④

mid（src,i,1）

mid（src,i,1）

．