“字符串消消乐”游戏说明:从Text1框输入一串字符,程序会把相邻的相同字符消除,所有相邻的相同字符被消除后,剩余字符会重新拼接成新的字符串,再按照相同的规则消除字符,直到所有相邻的字符都不相同或变成空串为止,输出最后获得的字符串。
例如,输入字符串“addded”点击“运行”按钮后输出字符串“bd”;输入字符串“adddedb”,点击“运行”按钮后输出空字符串:输入字符串“abbba”点击“运行”按钮后输出字符串“bea”。
(1)
要使窗体Form1标题显示“字符串消消乐”,可修改窗体的(单选,填字母:A .Text/B .Caption/C .Name)属性来实现。
(2)
若输入字符串"ABCOCCDBA",点击“运行"按钮后输出字符事为:。
(3)
算法的VB程序如下,请在划线处填入合适的代码。
Private Sub Command1_Click( )
Din s1 As String, s2 As String
Dim i As Integer, j As Integer
S1 = Text1.Text
Do While Len(s1) > 1
s2=“”:i=1
Do While i<= Len(s1)
For j= i +1 To Len(s1)
If Mid(s1, i, 1) < Mid(s1, j, 1) Then Exit For
Next j
If j=i+1 Then s2= s2 + Mid(s1, i, 1)
Loop
If s2= s1 Then Exit Do
s1 =
Loop
Label1.Caption = s1
End Sub
答案: 【1】B
【1】"ABCBA"
【1】i=j【2】s2