“字符串消消樂(lè)”游戲說(shuō)明：從Text1框輸入一串字符，程序會(huì)把相鄰的相同字符消除，所有相鄰的相同字符被消除后，剩余字符會(huì)重新拼接成新的字符串，再按照相同的規(guī)則消除字符，直到所有相鄰的字符都不相同或變成空串為止，輸出最后獲得的字符串。
例如，輸入字符串″aabcdddcd″，點(diǎn)擊“運(yùn)行”按鈕后輸出字符串“bd“；輸入字符串″aabdcdddcdb″，點(diǎn)擊“運(yùn)行”按鈕后輸出空字符串；輸入字符串″aabccbbbca″，點(diǎn)擊“運(yùn)行”按鈕后輸出字符串“bca“。
（1）要使窗體Form1標(biāo)題顯示“字符串消消樂(lè)”，可修改窗體的

B

B

（單選，填字母：A.Text/B.Caption/C.Name）屬性來(lái)實(shí)現(xiàn)。
（2）若輸入字符串″ABCDCCDBA″，點(diǎn)擊“運(yùn)行”按鈕后輸出字符串為：

“ABCBA”

“ABCBA”

。
（3）算法的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。PrivateSubCommand1_Click （　?。?br />Dims1AsString,s2AsStringDimiAsInteger,jAsIntegers1=Text1.Text
DoWhileLen（s1）＞1s2=″″：i=1
DoWhilei＜=Len（s1）
Forj=i+1ToLen（s1）
IfMid（s1，i,1）＜＞Mid（s1，j,1）ThenExitFor
Nextj
Ifj=i+1
Then
s2=s2+Mid（s1，i,1）

i=j

i=j

Loop
Ifs2=s1
ThenExitDos1=

s2

s2

LoopLabel1.Caption=s1
EndSub