对输入字符串中重复字符进行压缩，例如：字符串“aaabbc”压缩后就成为“3a2b1c”，

实现该功能的 VB 程序段如下：

s = Text1.Text: c = 1

For i = 2 To Len(s)

    If  Then

        c = c + 1

    Else

        s1 = s1 + Trim(Str(c)) + Mid(s, i - 1, 1)      ‘Trim函数用于移除字符串两侧的空字符

   

    End If

Next i

s1 = s1 + Trim(Str(c)) + Mid(s, i - 1, 1)

上述程序段两个方框处的语句分别为：（    ）

A、Mid(s, i, 1) = Mid(s, i - 1, 1) c = 0

B、Mid(s, i, 1) = Mid(s, i - 1, 1) c = 1

C、Mid(s, i, 1) = Mid(s, i + 1, 1) c = 0

D、Mid(s, i, 1) = Mid(s, i + 1, 1) c = 1