学进去

寒假期间，小王在学习VB的过程中自行编写了如下压缩算法：用两个数据表示一段连续相同的字符，第一个数据记录指定字符的重复次数，第二个数据记录具体字符的值，例如：字符串RRRRGGBBB，采用该压缩算法表示为4R2G3B，程序运行截图如下：

(1)该程序中共有_______(填数字)个对象拥有Caption属性。
(2)实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
       Dim s1, s2 As String
       Dim c, p As Integer
       s1 = Text1.Text
       c = 1
       p = 2
       Do While p <= Len(s1)
             If _______ Then
                    c = c + 1
             Else
                    s2 = s2 + Str(c) + Mid(s1, p - 1, 1)
                    ________
             End If
             ________

       Text2.Text = s2 + Str(c) + Mid(s1, p - 1, 1)
End Sub
(3)若将加框的代码去掉，则输入字符串“RRRRGGBBB”单击压缩后，显示的结果是：________