题型：综合题 题类：常考题 难易度：困难
浙江省诸暨市牌头中学2018-2019学年高一下学期信息技术期中考试试卷
Private Sub cmd1_Click()
Dim i As Integer, n As Integer
Dim max As Integer, count As Integer
Dim s As String s = Text1.Text
n =
count = 1: max = 1
For i = 2 To n
If Then count = count + 1
Else
If count > max Then max = count
End If
count = End If
Next i
Label1.Caption = "最长连续子串字符数为：" + Str(max) End Sub
试题篮
