对输入字符串中重复字符进行压缩,例如:字符串“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)
上述程序段两个方框处的语句分别为:( )