字符串的變換和還原。
“字符串變換”按以下規(guī)則生成新字符串：
（1）若當(dāng)前字符不是數(shù)字字符，則將其添加到新的字符串中；
（2）若當(dāng)前字符是數(shù)字字符，且它之后沒有后繼字符，則將其添加到新的字符串中；
（3）若當(dāng)前字符是數(shù)字字符，且它之后還有后繼字符，則將當(dāng)前字符所表示的數(shù)字設(shè)為n,并將它的后繼字符復(fù)制n+1次后添加到新的字符串中。該后繼字符不再參與下一次變換。
（4）上述一次變換為一組，在不同組之間另外插入一個(gè)下劃線字符“_”用于分隔。
例如：字符串“26ab5g8”變換后的結(jié)果為“666_a_b_gggggg_8”。
“字符串還原”則是“字符串變換”的相反操作，例如：將字符串“666_a_b_gggggg_8”還原為“26ab5g8”。
實(shí)現(xiàn)上述功能的VB程序如下。
（1）在以下代碼中出現(xiàn)了

2

2

類控件（填數(shù)字）。
（2）請?jiān)跈M線處填入合適的代碼。
（3）加框處的代碼有錯(cuò)，請改正。
PrivateSubCommand1_Click （　　）'字符串變換
Dims1AsString,s2AsString,ch1AsString,ch2AsString
DimiAsInteger’jAsInteger,nAsInteger
s1=Text1.Text
s2=″″
Fori=1ToLen（s1）
ch1=Mid（s1，i,1）
Ifch1＞=″0″Andch1＜=″9″Andi＜Len（s1）Then

n=Val（ch1）+1

n=Val（ch1）+1

ch2=Mid（s1，i+1，1）
Forj=1Ton
s2=s2+ch2
Nextj

i=i+1

i=i+1

Else
s2=s2+ch1
EndIf
Ifi＜＞Len（s1）Thens2=s2+″_″
Nexti
Text2.Text=s2
EndSub
PrivateSubCommand2_Click （　?。?字符串還原
Dims2AsString,s3AsString,chAsString
DimiAsInteger,jAsInteger,nAsInteger
s2=Text2.Text
s3=″″
Fori=1ToLen（s2）
ch=Mid（s2，i,1）
n=0
j=i+1
DoWhileMid（s2，j,1）=ch
j=j+1
n=n+1
Loop
i=j
IfThens3=s3+CStr（n）'Cstr

（　?。?/div>

（　　）

的作用是去掉字符串前面的空格

。

。

s3=

n＞=1

n＞=1

Ifch=″_″Theni=i+1
Nexti
Text3.Text=s3
EndSub