当前位置: 高中信息技术 / 综合题
  • 1. (2019高二上·杭州期末) 某二进制字符串的压缩算法描述如下:

    ①取字符串的首字符为压缩后的第一个字符。

    ②统计该字符连续的个数,两者间使用逗号分隔。

    ③按此方法进行后续字符的压缩,各段压缩结果用“/”分隔。

    ④重复上述过程,直到将所有字符压缩完成。

    例如:字符串"1100000000000011110"压缩后的字符串为"1,2/0,12/1,4/0,1/"。依据上述描述编写VB程序,实现此算法的解压缩功能:在文本框Text1中输入待解压缩的字符串,单击“解压缩”按钮,在文本框2中输出解压缩的字符串。运行效果如下图所示。

    1. (1) 若在文本框1中输入“1,2/0,3/1,2/”,单击“解压缩”按钮后,文本框2中输出的内容为
    2. (2) 实现解压缩功能的程序代码如下,请在划线处填入合适的代码。

      Private Sub Command1_Click()

        Dim i As Integer, x1 As Integer, x2 As Integer, s As String

        Dim ch As String, result As String

        s= Text1.Text

        i= 1: result =”

        Do While i<= Len(s)

             ①  

          If ch< "O" Or ch> "9" Then

            If ch= "/" Then

              x2 = tmp

              For j=1 To x2

                result = result & CSstr(x1)    ‘Cstr函数的功能是将数字转为字符串

              Next j

            Else

                 ②   

            End If

            tmp= 0

          Else

               ③  

          End If

          i=i+ 1

        Loop

        Text2.Text = result

      End Sub

       ② ③ 

微信扫码预览、分享更方便