题型：综合题 题类：常考题 难易度：普通
浙江省嘉兴市、丽水市2017-2018学年选考信息技术教学测试试卷（3月）
Private Sub Command1_Click()
Dim s As String
Dim m As Integer，n As Integer，k As Integer，t As Integer，i As Integer
s=Text1.Text
n=Len(s)
k=1：m=0：t=0
For i=2 To n
If Mid(s，i，1)> ① Then
k=k+1
t=0
Else
t=1
End If
If k>3 And( ② )Then
m=m+1
k=1
End If
Next i
Text2.Text=Str(m)
End Sub
① ②
试题篮
