字符串的变换和还原。
“字符串变换”按以下规则生成新字符串：
（1）若当前字符不是数字字符，则将其添加到新的字符串中；
（2）若当前字符是数字字符，且它之后没有后继字符，则将其添加到新的字符串中；
（3）若当前字符是数字字符，且它之后还有后继字符，则将当前字符所表示的数字设为n,并将它的后继字符复制n+1次后添加到新的字符串中。该后继字符不再参与下一次变换。
（4）上述一次变换为一组，在不同组之间另外插入一个下划线字符“_”用于分隔。
例如：字符串“26ab5g8”变换后的结果为“666_a_b_gggggg_8”。
“字符串还原”则是“字符串变换”的相反操作，例如：将字符串“666_a_b_gggggg_8”还原为“26ab5g8”。
实现上述功能的VB程序如下。
（1）在以下代码中出现了

2

2

类控件（填数字）。
（2）请在横线处填入合适的代码。
（3）加框处的代码有错，请改正。
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

（　　）

（　　）

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

。

。

s3=

n＞=1

n＞=1

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