有一種壓縮算法，基本原理是：特殊字符+重復(fù)次數(shù)+字符．
比如有文本字符串：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后面跟著的數(shù)字就表示出重復(fù)的次數(shù)．編程實(shí)現(xiàn)將從Text1輸入的一個(gè)字符串，點(diǎn)壓縮按鈕后用上述方法壓縮，壓縮后的編碼在Text2中輸出，text3中輸入特殊字符．壓縮算法：
a）給壓縮串添加開關(guān)的特殊字符
b）逐個(gè)判斷輸入字符串的字符（當(dāng)前的字符與后一個(gè)比較），如果兩個(gè)字符不同，則連到了壓縮串中，如果有連續(xù)的重復(fù)字符則計(jì)數(shù)n+1
c）最后一組重復(fù)字符或單個(gè)字符再連到壓縮串中．
?連入壓縮串方法：單個(gè)的直接連入，有重復(fù)的連入特殊字符開頭+數(shù)字+重復(fù)的字符

程序如下：
Private Sub Command1_Click （　?。?br />Dim src As String,t As String‘src保存輸入的字符串
Dim desc As String‘desc保存壓縮后的字符串
Dim c As String‘c保存特殊字符
Dim n As Integer‘n用來記連續(xù)重復(fù)字符個(gè)數(shù)
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）

．