题型：综合题 题类：常考题 难易度：困难
浙江省绍兴市诸暨中学2017-2018学年高二下学期信息技术期中考试试卷
Private Sub Command1_Click()
Dim s As String, result As String， i As Integer, j As Integer, t As Integer
s = Text1．Text ：t = Len(s) ：result = ""
i=1
Do While i <= t
j = i
Do While i < t
If Asc(Mid(s, i + 1, 1)) = Asc(Mid(s, i, 1)) + 1 Then
i = i + 1
Else
Exit Do
End If
Loop
If i > j Then
result = ①
Else
result = result + Mid(s, i, 1)
End If
i = i + 1
Loop
Text2.Text = ②
End Sub
试题篮
