下列说法正确的是( )
Private Sub Command1_Click()
Dim s1 As String,s2 As String,pos As Integer
Dim num As Integer
s1=Text1. Text:s2=“”
①
pos=2
Do While pos<=Len(s1)
If Mid(s1, pos, 1)=Mid(s1, pos-1, 1)Then
num=num+1
Else
s2= ②
num=1
End If
③
Loop
Text2. Text=s2+Str(num)+Mid(s1, Len(s1), 1)
End Sub
① ② ③