s = “QUOTES:keep on going never give up!”
flag = False: m = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= “a” And ch <= “z” Then
If Not flag Then
m = m + 1
flag = True
End If
Else
flag = False
End If
Next i
Text1.Text = Str(m)
程序执行后文本框Text1显示的内容是( )