2016年10月技术选考VB算法加试题周练消消乐.docxVIP

命题：杜宗飞 算法加试题一周一练 (6) 行政班： 教学班： 姓名： 学号： 【加试题】小明非常喜欢玩消消乐游戏，因此编写了一个简单的消消乐程序，当相邻 重复字符个数大于等于 3 时消掉字符。例如输入 ABBBC ，消掉后变成 AC 。程序运行 如下：在文本框 Text1 中输入一个字符串。单击按钮 Command1 后，在标签 Labe1 上 显示消掉后的字符长度，文本框 Text2 上显示消后的字符。程序运行界面如下图所示： D A B C 图 a 图 b 1 图 c （ 1） 如图 b 所示要在窗体上添加 Command1对象，应该选择 （2）如图 c 所示，要修改窗体左上角“消消乐”为“消消乐游戏” （填字母） 。 ，应该修改该对象 的 （填对应的属性名）属性。 （3）如图 c 所示，其中①所示的 H8000000F是 （填字母： A. 对象名 /B. 类名 /C. 属性值 /D. 属性名） 。 （ 4）代码 Command1_Click( ) /C. 事件名 /D. 属性名） 。 （5）根据题意规则，字符串“ ”中的 Command1是 （填： A. 对象名 /B. 方法名 AAAYBBBOKKKU, 则消掉后的字符串为 1 命题：杜宗飞 （6）实现上述功能的 VB程序如下。请在划线处填入合适代码。 Private Sub Command1_Click() Dim s As String, i As Integer, j As Integer Dim a(1 To 100) As String Dim b(1 To 100) As String 依次存储输入的每个字符 依次存储消后每个字符 Dim n As Integer Dim pa As Integer Dim pb As Integer 输入字符串的长度 数组 a 当前下标位置 数组 b当前下标位置 Dim count As Integer 存储当前相邻重复个数 n = Len(s) For i = 1 To n a(i) = Mid(s, i, 1) Next i pa = 1: pb = 1 Do While pa = n - 1 If a(pa) a(pa + 1) Then 相邻无重复 b(pb) = a(pa) pa = pa + 1 pb = pb + 1 Else j = pa + 1 Do While If j = j + 1 Else Exit Do End If Loop count = 相邻有重复 j = n - 1 Then 退出 Do循环 If count = 2 Then b(pb) = a(pa) b(pb + 1) = a(pa + 1) pa = pa + 2 pb = pb + 2 Else pa = End If End If Loop If pa = n Then b(pb) = a(pa) pb = pb + 1 End If Label1.Caption = 消后的长度为： + Text2.Text = For i = 1 To pb - 1 Text2.Text = Text2.Text + b(i) Next i End Sub 2 命题：杜宗飞 程序参考答案 s = Text1.Text a(j) = a(j + 1) j - pa + 1 pa + count Str(pb - 1) 3