RLE压缩方法是Windows系统中使用的一种图像文件压缩方法,用两个数据表示,第一个记录指定像素重复的次数,第二个记录具体的像素值。例如,有一表示颜色像素值的字符串RRRRGGBB,用RLE压缩方法压缩后可用4R2G3B表示。小芳设计了一个VB程序实现RLE算法功能。在Text1中输入原始数据,点击“压缩”按钮Command1后,在Text2中显示经过压缩后的数据,程序运行界面如图所示。
(1)
这里采用的压缩技术属于(选填:有损压缩/无损压缩)。
(2)
若想修改文本框Text2中的字体大小,需对它的属性值进行修改(选填:BackColor/Font/Text).
(3)
实现上述功能的VB程序如下,请在画线处填入合适的代码。
Private
Sub Commandl_Click( )
Dim s1
As String,s2 As String
Dim c
As Integer,p As Integer
sl=Text1.Text:s2= ""
c=1:p=2
Do
While p<Len(sl)
If Mid(s1,p,1)=Mid(s1,p-1,1)Ther
c=c+1
Else
s2 =
s2+Str(c)+
Mid(s1,р-1,1)
①
End If
p=р+1
Loop
Text2.Text = ②
End
Sub
以上程序段运行时,为了实现上述功能,画线处应填入的代码分别为:①;②。
答案: 【1】无损压缩
【1】Font
【1】c=1【2】s2+Str(c)+Mid(s1,p-1,1)