题型：综合题 题类：模拟题 难易度：普通
浙江省普通高校招生信息技术选考模拟卷（一）
Private Sub Command1_Click（）
Dim s1 As String, s2 As String
Dim c As Integer, p As Integer
s1=Text1.Text
s2＝“”
c = 1
p = 2
Do While p <= Len(s1)
If Mid(s1, p, 1) = Mid(s1, p- 1, 1) Then
c = c + 1
Else
s2 = s2 + Str(c) + Mid(s1, p-1, 1)
End If
p=p+1
Loop
Text2.Text＝
End Sub
试题篮
